make group search form sticky via Session::Scratch

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

View file

@ -9,7 +9,8 @@
method instead of finding the path manually. method instead of finding the path manually.
- fix: Avatar in Thread & Posts of CS - fix: Avatar in Thread & Posts of CS
- fix: CS Phishing Exploit. - fix: CS Phishing Exploit.
- fix: Groups admin gui - fix: Groups admin gui (1) Default should be contains
- fix: Groups admin gui (2,3) Make group form sticky
- fix: Wiki does not show history correctly - fix: Wiki does not show history correctly
- fix: SQLForm - Field Constraint (Martin Kamerbeek / Oqapi) - fix: SQLForm - Field Constraint (Martin Kamerbeek / Oqapi)
- fix: SQLForm - Default search template uses downloadUrl in stead of - fix: SQLForm - Default search template uses downloadUrl in stead of

View file

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