diff --git a/lib/WebGUI/Operation/Collateral.pm b/lib/WebGUI/Operation/Collateral.pm index 5c08362d5..e12d80c4a 100644 --- a/lib/WebGUI/Operation/Collateral.pm +++ b/lib/WebGUI/Operation/Collateral.pm @@ -177,7 +177,7 @@ sub www_editCollateral { -value=>$collateral->{name}, -label=>WebGUI::International::get(768) ); - $f->select( + $f->selectList( -name=>"collateralFolderId", -value=>[$folderId], -label=>WebGUI::International::get(769), @@ -334,7 +334,7 @@ sub www_editCollateralFolder { if ($folder->{collateralFolderId} eq "0") { $f->hidden("parentId",0); } else { - $f->select( + $f->selectList( -name=>"parentId", -value=>[$folder->{parentId}], -label=>WebGUI::International::get(769), @@ -421,12 +421,12 @@ sub www_listCollateral { -value=>$session{scratch}{keyword}, -size=>15 ); - $f->select( + $f->selectList( -name=>"collateralUser", -value=>[$session{scratch}{collateralUser}], -options=>\%user ); - $f->select( + $f->selectList( -name=>"collateralType", -value=>[$session{scratch}{collateralType}], -options=>\%type diff --git a/lib/WebGUI/Operation/Page.pm b/lib/WebGUI/Operation/Page.pm index e463315d5..6dfcbc81d 100644 --- a/lib/WebGUI/Operation/Page.pm +++ b/lib/WebGUI/Operation/Page.pm @@ -452,7 +452,7 @@ sub www_editPage { $clause = "userId=".quote($page{ownerId}); } my $users = WebGUI::SQL->buildHashRef("select userId,username from users where $clause order by username"); - $f->getTab("privileges")->select( + $f->getTab("privileges")->selectList( -name=>"ownerId", -options=>$users, -label=>WebGUI::International::get(108), diff --git a/lib/WebGUI/Operation/ProfileSettings.pm b/lib/WebGUI/Operation/ProfileSettings.pm index a33d0dd10..bcbcb7e87 100644 --- a/lib/WebGUI/Operation/ProfileSettings.pm +++ b/lib/WebGUI/Operation/ProfileSettings.pm @@ -181,7 +181,7 @@ sub www_editProfileField { foreach $key (keys %hash) { $hash{$key} = eval $hash{$key}; } - $f->select( + $f->selectList( -name=>"profileCategoryId", -options=>\%hash, -label=>WebGUI::International::get(489,"WebGUIProfile"), diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm index e1c9bcf0e..c811ad72e 100644 --- a/lib/WebGUI/Operation/Settings.pm +++ b/lib/WebGUI/Operation/Settings.pm @@ -237,7 +237,7 @@ sub www_editSettings { foreach (@{$session{config}{authMethods}}) { $options->{$_} = $_; } - $tabform->getTab("auth")->select( + $tabform->getTab("auth")->selectList( -name=>"authMethod", -options=>$options, -label=>$i18n->get(164), diff --git a/lib/WebGUI/Operation/Template.pm b/lib/WebGUI/Operation/Template.pm index 4bc575cd5..9a60d461f 100644 --- a/lib/WebGUI/Operation/Template.pm +++ b/lib/WebGUI/Operation/Template.pm @@ -118,7 +118,7 @@ sub www_editTemplate { if ($session{form}{tid} eq "new") { $namespaces = WebGUI::SQL->buildHashRef("select distinct(namespace),namespace from template order by namespace"); - $f->select("namespace",$namespaces,WebGUI::International::get(721),[$session{form}{namespace}]); + $f->selectList("namespace",$namespaces,WebGUI::International::get(721),[$session{form}{namespace}]); } else { $f->hidden("namespace",$session{form}{namespace}); }