fixed a bug in the new oo page tree stuff

removed a bunch of crap that somehow got readded
added new stuff for autogroups
got rid of magic groups
This commit is contained in:
JT Smith 2004-02-04 02:36:12 +00:00
parent bd4bf924f2
commit 0cb06e0e17
18 changed files with 102 additions and 1548 deletions

View file

@ -832,9 +832,9 @@ sub group {
tie %hash, 'Tie::IxHash';
my $exclude = $_[0]->{excludeGroups};
if ($$exclude[0] ne "") {
$where = "where groupId not in (".join(",",@$exclude).")";
$where = "and groupId not in (".join(",",@$exclude).")";
}
%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups $where order by groupName");
%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups where showInForms=1 $where order by groupName");
return selectList({
options=>\%hash,
name=>$_[0]->{name},