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",
-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",

View file

@ -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"),

View file

@ -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"),