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

- fix: New page layout instead of not found

Browse source 
- fix: Rollback
 - fix: debug output
 - fix: Can't delete images at product asset
fixed a problem with file/image form uploads
rearranged group methods for alphabetical order
removed matt's hack for group caching and replaced it with the right way
This commit is contained in:
JT Smith 2006-05-30 22:35:12 +00:00
parent 16bd394434
commit 41e655b452
10 changed files with 296 additions and 356 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/AssetVersioning.pm
View file

@ -291,18 +291,22 @@ sub www_manageRevisions {
sub www_purgeRevision {
my $self = shift;
return $self->session->privilege->insufficient() unless $self->canEdit;
my $revisionDate = $self->session->form->process("revisionDate");
my $session = $self->session;
return $session->privilege->insufficient() unless $self->canEdit;
my $revisionDate = $session->form->process("revisionDate");
return undef unless $revisionDate;
my $asset = WebGUI::Asset->new($self->session,$self->getId,$self->get("className"),$revisionDate);
my $asset = WebGUI::Asset->new($session,$self->getId,$self->get("className"),$revisionDate);
return undef if ($asset->get('revisionDate') != $revisionDate);
my $parent = $asset->getParent;
$asset->purgeRevision;
if ($self->session->form->process("proceed") eq "manageRevisionsInTag") {
$self->session->http->setRedirect($self->getUrl("op=manageRevisionsInTag"));
if ($session->form->process("proceed") eq "manageRevisionsInTag") {
my $working = (defined $self) ? $self : $parent;
$session->http->setRedirect($working->getUrl("op=manageRevisionsInTag"));
return "";
}
unless (defined $self) {
return $parent->www_view;
}
return $self->www_manageRevisions;
}