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

bug fixes from running t/FormGetName.t

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 05:18:11 +00:00
parent 3b06849a80
commit 6a9a63c4b0
26 changed files with 70 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Form/Group.pm
View file

@ -108,10 +108,10 @@ Returns a group pull-down field. A group pull down provides a select list that p
sub toHtml {
my $self = shift;
my $where;
if ($self->get("excludeGroups")[0] ne "") {
if ($self->get('excludeGroups')->[0] ne "") {
$where = "and groupId not in (".$self->session->db->quoteAndJoin($self->get("excludeGroups")).")";
}
$self->get("options") = $self->session->db->buildHashRef("select groupId,groupName from groups where showInForms=1 $where order by groupName");
$self->set('options', $self->session->db->buildHashRef("select groupId,groupName from groups where showInForms=1 $where order by groupName"));
return $self->SUPER::toHtml();
}