Revision Event storage locations.

This commit is contained in:
Colin Kuskie 2009-08-09 04:35:16 +00:00
parent d2b9be686c
commit af2d858f68
3 changed files with 25 additions and 1 deletions

View file

@ -65,6 +65,10 @@ sub addRevision {
$sequenceNumber = 0;
}
$newRev->update({iCalSequenceNumber => $sequenceNumber});
if ($newRev->get("storageId") && $newRev->get("storageId") eq $self->get('storageId')) {
my $newStorage = WebGUI::Storage->get($self->session,$self->get("storageId"))->copy;
$newRev->update({storageId => $newStorage->getId});
}
return $newRev;
}