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

make group search form sticky via Session::Scratch

Browse source
This commit is contained in:
Colin Kuskie 2006-12-19 19:05:19 +00:00
parent 32662367ec
commit c8f7e6fd0c
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Operation/Group.pm
View file

@ -71,6 +71,7 @@ sub doGroupSearch {
my $groupFilter = shift;
push(@{$groupFilter},0);
my $keyword = $session->scratch->get("groupSearchKeyword");
$session->errorHandler->warn("keyword: $keyword");
if ($session->scratch->get("groupSearchModifier") eq "startsWith") {
$keyword .= "%";
} elsif ($session->scratch->get("groupSearchModifier") eq "contains") {
@ -97,8 +98,14 @@ sub getGroupSearchForm {
my $session = shift;
my $op = shift;
my $params = shift;
$session->scratch->set("groupSearchKeyword",$session->form->process("keyword"));
$session->scratch->set("groupSearchModifier",$session->form->process("modifier"));
my $keyword = $session->form->process("keyword");
if (defined $keyword) {
$session->scratch->set("groupSearchKeyword", $keyword);
}
my $modifier = $session->form->process("modifier");
if (defined $modifier) {
$session->scratch->set("groupSearchModifier", $modifier);
}
my $output = '<div align="center">';
my $i18n = WebGUI::International->new($session);
my $f = WebGUI::HTMLForm->new($session,1);