bugfix, array refs that contain undef are true. Default values not properly set

This commit is contained in:
Colin Kuskie 2005-04-08 05:41:39 +00:00
parent 2e25c5b498
commit f6ffdeb148
3 changed files with 4 additions and 4 deletions

View file

@ -719,7 +719,7 @@ sub www_editField {
-name=>"tid", -name=>"tid",
-options=>$tab, -options=>$tab,
-label=>WebGUI::International::get(104,"Asset_DataForm"), -label=>WebGUI::International::get(104,"Asset_DataForm"),
-value=>[ $field{DataForm_tabId}] || [0] -value=>[ $field{DataForm_tabId} || 0 ]
); );
$f->text( $f->text(
-name=>"subtext", -name=>"subtext",
@ -730,7 +730,7 @@ sub www_editField {
-name=>"status", -name=>"status",
-options=>\%fieldStatus, -options=>\%fieldStatus,
-label=>WebGUI::International::get(22,"Asset_DataForm"), -label=>WebGUI::International::get(22,"Asset_DataForm"),
-value=>[ $field{status} ] || [ "editable" ] -value=> [ $field{status} || "editable" ] ),
); );
$f->fieldType( $f->fieldType(
-name=>"type", -name=>"type",

View file

@ -116,7 +116,7 @@ sub getGroupSearchForm {
); );
$f->selectList( $f->selectList(
-name=>"modifier", -name=>"modifier",
-value=>([$session{scratch}{groupSearchModifier}] || ["contains"]), -value=>([$session{scratch}{groupSearchModifier} || "contains"]),
-options=>{ -options=>{
startsWith=>WebGUI::International::get("starts with"), startsWith=>WebGUI::International::get("starts with"),
contains=>WebGUI::International::get("contains"), contains=>WebGUI::International::get("contains"),

View file

@ -120,7 +120,7 @@ sub getUserSearchForm {
); );
$f->selectList( $f->selectList(
-name=>"modifier", -name=>"modifier",
-value=>([$session{scratch}{userSearchModifier}] || ["contains"]), -value=>([$session{scratch}{userSearchModifier} || "contains"]),
-options=>{ -options=>{
startsWith=>WebGUI::International::get("starts with"), startsWith=>WebGUI::International::get("starts with"),
contains=>WebGUI::International::get("contains"), contains=>WebGUI::International::get("contains"),