sub GetSearchForm { return T('Search:') . ' ' . $q->textfield(-name=>'search', -size=>20) . ' ' . $q->submit('dosearch', T('Go!')); }
$SearchButton= 1; # 1 = with search-button , 0 = no search-button
sub GetSearchForm { my ($result); $result = T('Search:') . ' ' . $q->textfield(-name=>'search', -size=>20); if ($SearchButton) { $result = $result . $q->submit('dosearch', T('Go!')); } else { $result = $result . &GetHiddenValue("dosearch", 1); } return $result; }