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

3
lib/WebGUI/Operation/Profile.pm
View file

@ -17,6 +17,7 @@ use WebGUI::DateTime;
use WebGUI::ErrorHandler;
use WebGUI::FormProcessor;
use WebGUI::Grouping;
use WebGUI::HTML;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Macro;
@ -206,7 +207,7 @@ sub www_editProfileSave {
$u = WebGUI::User->new($session{user}{userId});
foreach $fieldName (keys %{$profile}) {
$u->profileField($fieldName,${$profile}{$fieldName});
$u->profileField($fieldName,WebGUI::HTML::filter(${$profile}{$fieldName},"javascript"));
}
return WebGUI::Operation::Auth::www_displayAccount();
}

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 "";
}