Cleaning up some left over unnamed parameter in Form methods.

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