more versioning bug fixes

This commit is contained in:
JT Smith 2005-08-10 19:46:14 +00:00
parent e9f74cdc0f
commit abf4076569
5 changed files with 107 additions and 74 deletions

View file

@ -54,7 +54,7 @@ Override the default method in order to deal with attachments.
sub addRevision {
my $self = shift;
my $newSelf = $self->addRevision(@_);
my $newSelf = $self->SUPER::addRevision(@_);
if ($self->get("storageId")) {
my $newStorage = WebGUI::Storage->get($self->get("storageId"))->copy;
$newSelf->update({storageId=>$newStorage->getId});