fixing bugs related to new form system

This commit is contained in:
JT Smith 2005-07-28 22:10:28 +00:00
parent 74cd198203
commit 3058d839c0
15 changed files with 68 additions and 11 deletions

View file

@ -121,7 +121,6 @@ sub getUserSearchForm {
$f->selectList(
-name=>"modifier",
-value=>([$session{scratch}{userSearchModifier} || "contains"]),
-label=>"",
-options=>{
startsWith=>WebGUI::International::get("starts with"),
contains=>WebGUI::International::get("contains"),
@ -130,13 +129,11 @@ sub getUserSearchForm {
);
$f->text(
-name=>"keyword",
-label=>"",
-value=>$session{scratch}{userSearchKeyword},
-size=>15
);
$f->selectList(
-name => "status",
-label=>"",
-value => [$session{scratch}{userSearchStatus} || "users.status like '%'"],
-options=> {
"" => WebGUI::International::get(821),