diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm index 7b56ea631..96cf3c6c3 100644 --- a/lib/WebGUI/Operation/User.pm +++ b/lib/WebGUI/Operation/User.pm @@ -370,18 +370,22 @@ sub www_editUserProfileSave { #------------------------------------------------------------------- sub www_listUsers { - my ($output, $sth, %data, @row, $p, $i, $search); + my ($output, $sth, %data, $f, @row, $p, $i, $search); tie %data, 'Tie::CPHash'; if (WebGUI::Privilege::isInGroup(3)) { $output = helpIcon(8); $output .= '
| '; $output .= ''.WebGUI::International::get(169).''; - $output .= ' | '.formHeader().''; - $output .= WebGUI::Form::hidden("op","listUsers"); - $output .= WebGUI::Form::text("keyword",20,50); - $output .= WebGUI::Form::submit(WebGUI::International::get(170)); - $output .= ' |
'; + $output .= ''; + $f = WebGUI::HTMLForm->new(1); + $f->raw('
'; if ($session{form}{keyword} ne "") { $search = " where (users.username like '%".$session{form}{keyword}."%') "; }