diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm index a890e9a83..c4425fb88 100644 --- a/lib/WebGUI/Asset/Wobject/DataForm.pm +++ b/lib/WebGUI/Asset/Wobject/DataForm.pm @@ -719,7 +719,7 @@ sub www_editField { -name=>"tid", -options=>$tab, -label=>WebGUI::International::get(104,"Asset_DataForm"), - -value=>[ $field{DataForm_tabId}] || [0] + -value=>[ $field{DataForm_tabId} || 0 ] ); $f->text( -name=>"subtext", @@ -730,7 +730,7 @@ sub www_editField { -name=>"status", -options=>\%fieldStatus, -label=>WebGUI::International::get(22,"Asset_DataForm"), - -value=>[ $field{status} ] || [ "editable" ] + -value=> [ $field{status} || "editable" ] ), ); $f->fieldType( -name=>"type", diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm index 65ab30a19..bf02930b1 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} || "contains"]), -options=>{ startsWith=>WebGUI::International::get("starts with"), contains=>WebGUI::International::get("contains"), diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm index 9d28a0af2..2c96b8326 100644 --- a/lib/WebGUI/Operation/User.pm +++ b/lib/WebGUI/Operation/User.pm @@ -120,7 +120,7 @@ sub getUserSearchForm { ); $f->selectList( -name=>"modifier", - -value=>([$session{scratch}{userSearchModifier}] || ["contains"]), + -value=>([$session{scratch}{userSearchModifier} || "contains"]), -options=>{ startsWith=>WebGUI::International::get("starts with"), contains=>WebGUI::International::get("contains"),