Avoid warnings about odd numbers of form elements. session->form->process

will return () when called in list context so force scalar context and it
nicely gives us an undef.
This commit is contained in:
Scott Walters 2010-08-09 14:39:53 -04:00
parent 13e7d4c6d5
commit b7cb774e60

View file

@ -406,7 +406,7 @@ sub view {
$var{'search_'.$fieldName.'_form'} = $self->getFormElement(\%formElementProperties); $var{'search_'.$fieldName.'_form'} = $self->getFormElement(\%formElementProperties);
$var{'search_'.$fieldName.'_text'} = WebGUI::Form::Text($self->session, { $var{'search_'.$fieldName.'_text'} = WebGUI::Form::Text($self->session, {
-name => 'search_'.$fieldName, -name => 'search_'.$fieldName,
-value => $form->process('search_'.$fieldName), -value => scalar $form->process('search_'.$fieldName),
}); });
$formElementProperties{value} = $form->process('search_Exact'.$fieldName); $formElementProperties{value} = $form->process('search_Exact'.$fieldName);
@ -414,7 +414,7 @@ sub view {
$var{'searchExact_'.$fieldName.'_form'} = $self->getFormElement(\%formElementProperties); $var{'searchExact_'.$fieldName.'_form'} = $self->getFormElement(\%formElementProperties);
$var{'searchExact_'.$fieldName.'_text'} = WebGUI::Form::Text($self->session, { $var{'searchExact_'.$fieldName.'_text'} = WebGUI::Form::Text($self->session, {
-name => 'searchExact_'.$fieldName, -name => 'searchExact_'.$fieldName,
-value => $form->process('searchExact_'.$fieldName), -value => scalar $form->process('searchExact_'.$fieldName),
}); });
$var{'includeInSearch_'.$fieldName.'_hidden'} = WebGUI::Form::Hidden($self->session, { $var{'includeInSearch_'.$fieldName.'_hidden'} = WebGUI::Form::Hidden($self->session, {
@ -425,7 +425,7 @@ sub view {
$var{'includeInSearch_'.$fieldName.'_checkBox'} = WebGUI::Form::Checkbox($self->session, { $var{'includeInSearch_'.$fieldName.'_checkBox'} = WebGUI::Form::Checkbox($self->session, {
-name => 'includeInSearch_'.$fieldName, -name => 'includeInSearch_'.$fieldName,
-value => '1', -value => '1',
-checked=> $form->process('includeInSearch_'.$fieldName), -checked=> scalar $form->process('includeInSearch_'.$fieldName),
}); });
} }
@ -607,7 +607,7 @@ sub view {
}); });
$var{searchFormQuery_form} = WebGUI::Form::text($self->session,{ $var{searchFormQuery_form} = WebGUI::Form::text($self->session,{
name => 'search', name => 'search',
value => $form->process("search"), value => scalar $form->process("search"),
}); });