fixing article storage copying

This commit is contained in:
Graham Knop 2008-04-03 16:31:09 +00:00
parent cf30d8f4dc
commit f095337301

View file

@ -70,13 +70,15 @@ Override the default method in order to deal with attachments.
=cut =cut
sub addRevision { sub addRevision {
my $self = shift; my $self = shift;
my $newSelf = $self->SUPER::addRevision(@_); my $oldStorage = $self->get('storageId');
if ($newSelf->getRevisionCount > 1 && $self->get("storageId")) { my $newSelf = $self->SUPER::addRevision(@_);
my $newStorage = WebGUI::Storage->get($self->session,$self->get("storageId"))->copy; my $newStorageId = $newSelf->get('storageId');
$newSelf->update({storageId=>$newStorage->getId}); if ($newStorageId && $newStorageId eq $self->get('storageId')) {
} my $newStorage = WebGUI::Storage->get($self->session, $newStorageId)->copy;
return $newSelf; $newSelf->update({storageId=>$newStorage->getId});
}
return $newSelf;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------