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

bug fixes

Browse source
This commit is contained in:
JT Smith 2004-11-04 21:20:55 +00:00
parent 7c25b0f22c
commit b3c7aa5eb3
3 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Wobject/USS.pm
View file

@ -60,6 +60,13 @@ sub _xml_encode {
return $_[0];
}
#-------------------------------------------------------------------
sub deleteAllCachedSubmissions {
my $self = shift;
my $cache = WebGUI::Cache->new("USS_submission_");
$cache->deleteByRegex(qr/USS_submission_/);
}
#-------------------------------------------------------------------
sub deleteCachedSubmission {
my $self = shift;
@ -436,6 +443,12 @@ sub www_edit {
);
}
#-------------------------------------------------------------------
sub www_editSave {
$_[0]->deleteAllCachedSubmissions;
$_[0]->SUPER::www_editSave()
}
#-------------------------------------------------------------------
sub www_editSubmission {
@ -709,6 +722,7 @@ sub www_editSubmissionSave {
sub www_moveSubmissionDown {
return WebGUI::Privilege::insufficient() unless ($_[0]->canEdit);
$_[0]->moveCollateralDown("USS_submission","USS_submissionId",$session{form}{sid}, "USS_id", $_[0]->get("USS_id"));
$_[0]->deleteAllCachedSubmissions;
return "";
}
@ -716,6 +730,7 @@ sub www_moveSubmissionDown {
sub www_moveSubmissionUp {
return WebGUI::Privilege::insufficient() unless ($_[0]->canEdit);
$_[0]->moveCollateralUp("USS_submission","USS_submissionId",$session{form}{sid}, "USS_id", $_[0]->get("USS_id"));
$_[0]->deleteAllCachedSubmissions;
return "";
}