oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quick bug fix from switching out old forms package.

Browse source
This commit is contained in:
JT Smith 2002-05-30 01:38:36 +00:00
parent 70af188fbb
commit afd404253b
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Operation/User.pm
View file

@ -370,18 +370,22 @@ sub www_editUserProfileSave {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_listUsers { sub www_listUsers {
my ($output, $sth, %data, @row, $p, $i, $search); my ($output, $sth, %data, $f, @row, $p, $i, $search);
tie %data, 'Tie::CPHash'; tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(3)) { if (WebGUI::Privilege::isInGroup(3)) {
$output = helpIcon(8); $output = helpIcon(8);
$output .= '<h1>'.WebGUI::International::get(149).'</h1>'; $output .= '<h1>'.WebGUI::International::get(149).'</h1>';
$output .= '<table class="tableData" align="center" width="75%"><tr><td>'; $output .= '<table class="tableData" align="center" width="75%"><tr><td>';
$output .= '<a href="'.WebGUI::URL::page('op=addUser').'">'.WebGUI::International::get(169).'</a>'; $output .= '<a href="'.WebGUI::URL::page('op=addUser').'">'.WebGUI::International::get(169).'</a>';
$output .= '</td>'.formHeader().'<td align="right">'; $output .= '</td>';
$output .= WebGUI::Form::hidden("op","listUsers"); $f = WebGUI::HTMLForm->new(1);
$output .= WebGUI::Form::text("keyword",20,50); $f->raw('<td align="right">');
$output .= WebGUI::Form::submit(WebGUI::International::get(170)); $f->hidden("op","listUsers");
$output .= '</td></form></tr></table><p>'; $f->text("keyword",'',$session{form}{keyword});
$f->submit(WebGUI::International::get(170));
$f->raw('</td>');
$output .= $f->print;
$output .= '</tr></table><p>';
if ($session{form}{keyword} ne "") { if ($session{form}{keyword} ne "") {
$search = " where (users.username like '%".$session{form}{keyword}."%') "; $search = " where (users.username like '%".$session{form}{keyword}."%') ";
} }