From 803da7605e5efd05cf21e54276bc9c6b5be51d5f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 23 Jul 2005 00:43:58 +0000
Subject: [PATCH] translate to positional parameters, internationalize default
 value for group search

---
 lib/WebGUI/Operation/Group.pm | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index 49b541347..f816ffdc2 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/lib/WebGUI/Operation/Group.pm
@@ -116,7 +116,7 @@ sub getGroupSearchForm {
                 );
         $f->selectList(
                 -name=>"modifier",
-                -value=>([$session{scratch}{groupSearchModifier} || "contains"]),
+                -value=>([$session{scratch}{groupSearchModifier} || WebGUI::International::get("contains") ]),
                 -options=>{
                         startsWith=>WebGUI::International::get("starts with"),
                         contains=>WebGUI::International::get("contains"),
@@ -407,9 +407,19 @@ sub www_editGrouping {
         $f->hidden("gid",$session{form}{gid});
 	my $u = WebGUI::User->new($session{form}{uid});
 	my $g = WebGUI::Group->new($session{form}{gid});
-        $f->readOnly($u->username,WebGUI::International::get(50));
-        $f->readOnly($g->name,WebGUI::International::get(84));
-	$f->date("expireDate",WebGUI::International::get(369),WebGUI::Grouping::userGroupExpireDate($session{form}{uid},$session{form}{gid}));
+        $f->readOnly(
+		-value => $u->username,
+		-label => WebGUI::International::get(50),
+        );
+        $f->readOnly(
+		-value => $g->name,
+		-label => WebGUI::International::get(84),
+        );
+	$f->date(
+		-name => "expireDate",
+		-label => WebGUI::International::get(369),
+		-value => WebGUI::Grouping::userGroupExpireDate($session{form}{uid},$session{form}{gid}),
+	);
 	$f->yesNo(
 		-name=>"groupAdmin",
 		-label=>WebGUI::International::get(977),