oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 3.1.0 release

Browse source
This commit is contained in:
JT Smith 2002-02-01 06:57:00 +00:00
parent d1c1445ea1
commit 71cd27d3bc
56 changed files with 2025 additions and 238 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Form.pm
View file

@ -13,6 +13,7 @@ package WebGUI::Form;
use strict qw(vars subs);
use WebGUI::International;
use WebGUI::Session;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub _fixQuotes {
@ -40,6 +41,16 @@ sub file {
return $output;
}
#-------------------------------------------------------------------
sub groupList {
my ($output, %hash, @array);
tie %hash, 'Tie::IxHash';
%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups where groupName<>'Reserved' order by groupName");
$array[0] = $_[1];
$output = selectList($_[0],\%hash,\@array);
return $output;
}
#-------------------------------------------------------------------
sub hidden {
my ($output, $name, $value);