Cleaning up some left over unnamed parameter in Form methods.

lib/WebGUI/AssetExportHtml.pm

@@ -137,7 +137,10 @@ sub www_export {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(13));
         $self->getAdminConsole->setHelp("page export", "Asset");
         my $f = WebGUI::HTMLForm->new(-action=>$self->getUrl);
-        $f->hidden("func","exportStatus");
+        $f->hidden(
+		-name => "func",
+		-value => "exportStatus"
+		);
 	$f->integer(
 			-label=>WebGUI::International::get('Depth',"Asset"),
 			-hoverHelp=>WebGUI::International::get('Depth description',"Asset"),

lib/WebGUI/AssetMetaData.pm

@@ -167,8 +167,14 @@ sub www_editMetaDataField {
 	}
 	my $fid = $session{form}{fid} || "new";
         my $f = WebGUI::HTMLForm->new(-action=>$self->getUrl);
-        $f->hidden("func", "editMetaDataFieldSave");
+        $f->hidden(
-        $f->hidden("fid", $fid);
+		-name => "func", 
+		-value => "editMetaDataFieldSave"
+		);
+        $f->hidden(
+		-name => "fid", 
+		-value => $fid
+	);
         $f->readOnly(
                 -value=>$fid,
                 -label=>WebGUI::International::get('Field Id','Asset'),

lib/WebGUI/Operation/ProfileSettings.pm

@@ -106,11 +106,14 @@ sub www_editProfileCategory {
 		);
 		$f->readOnly(
 			-name => $session{form}{cid},
-			-label => WebGUI::International::get(469,"WebGUIProfile");
+			-label => WebGUI::International::get(469,"WebGUIProfile"),
 		);
 		%data = WebGUI::SQL->quickHash("select * from userProfileCategory where profileCategoryId=".quote($session{form}{cid}));
 	} else {
-                $f->hidden("cid","new");
+                $f->hidden(
+			-name => "cid",
+			-value => "new"
+		);
 	}
 	$f->text(
 		-name => "categoryName",

lib/WebGUI/Operation/User.pm

@@ -107,7 +107,10 @@ sub getUserSearchForm {
 	WebGUI::Session::setScratch("userSearchModifier",$session{form}{modifier});
 	my $output = '<div align="center">';
 	my $f = WebGUI::HTMLForm->new(1);
-	$f->hidden("op",$op);
+	$f->hidden(
+		-name => "op",
+		-value => $op
+		);
 	foreach my $key (keys %{$params}) {
 		$f->hidden(
 			-name=>$key,
@@ -241,9 +244,17 @@ sub www_editUser {
 		Selfdestructed	=>$i18n->get(819)
 		);
 	if ($u->userId eq $session{user}{userId}) {
-		$tabform->getTab("account")->hidden("status",$u->status);
+		$tabform->getTab("account")->hidden(
+			-name => "status",
+			-value => $u->status
+			);
 	} else {
-		$tabform->getTab("account")->selectList("status",\%status,$i18n->get(816),[$u->status]);
+		$tabform->getTab("account")->selectList(
+			-name => "status",
+			-options => \%status,
+			-label => $i18n->get(816),
+			-value => [$u->status]
+			);
 	}
 	my $options;
 	foreach (@{$session{config}{authMethods}}) {