Added scratch filter to groups.

This commit is contained in:
JT Smith 2003-05-10 18:41:40 +00:00
parent 13e1a253dd
commit 4f3859724b
7 changed files with 90 additions and 28 deletions

View file

@ -141,6 +141,11 @@ sub www_editGroup {
-value=>$g->ipFilter,
-label=>WebGUI::International::get(857)
);
$f->textarea(
-name=>"scratchFilter",
-value=>$g->scratchFilter,
-label=>WebGUI::International::get(945)
);
$f->submit;
$output .= $f->print;
return _submenu($output);
@ -155,6 +160,7 @@ sub www_editGroupSave {
$g->expireOffset(WebGUI::DateTime::intervalToSeconds($session{form}{expireOffset_interval},$session{form}{expireOffset_units}));
$g->karmaThreshold($session{form}{karmaThreshold});
$g->ipFilter($session{form}{ipFilter});
$g->scratchFilter($session{form}{scratchFilter});
$g->expireNotify($session{form}{expireNotify});
$g->expireNotifyOffset($session{form}{expireNotifyOffset});
$g->expireNotifyMessage($session{form}{expireNotifyMessage});

View file

@ -19,12 +19,14 @@ our @EXPORT = qw(&www_setScratch &www_deleteScratch);
#-------------------------------------------------------------------
sub www_deleteScratch {
WebGUI::Session::deleteScratch("www_".$session{user}{scratchName});
WebGUI::Session::deleteScratch("www_".$session{form}{scratchName});
return "";
}
#-------------------------------------------------------------------
sub www_setScratch {
WebGUI::Session::setScratch("www_".$session{form}{scratchName},$session{form}{scratchValue});
return "";
}