fixed: storage locations for some assets in packages not imported correctly

This commit is contained in:
Graham Knop 2008-06-20 08:57:20 +00:00
parent 97b773e8c5
commit 8f9568c887
5 changed files with 7 additions and 8 deletions

View file

@ -47,7 +47,7 @@ sub addRevision {
my $newSelf = $self->SUPER::addRevision(@_);
if ($newSelf->getRevisionCount > 1) {
foreach my $field (qw(image1 image2 image3 brochure manual warranty)) {
if ($self->get($field)) {
if ($self->get($field) && $self->get($field) ne $newSelf->get($field)) {
my $newStorage = WebGUI::Storage->get($self->session,$self->get($field))->copy;
$newSelf->update({$field=>$newStorage->getId});
}