Fixing a bug introduced by the overhaul of WebGUI::HTMLForm.

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

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),

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"),

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),

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});
 		}