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

Proper Moose setup for addRevision...

Browse source
This commit is contained in:
Colin Kuskie 2010-04-06 16:13:02 -07:00
parent 64f7bd9365
commit dee5bbe5d0
8 changed files with 58 additions and 120 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Event.pm
View file

@ -158,9 +158,9 @@ Extent the method from the super class to handle iCalSequenceNumbers.
=cut
sub addRevision {
override addRevision => sub {
my $self = shift;
my $newRev = $self->SUPER::addRevision(@_);
my $newRev = super();
my $sequenceNumber = $newRev->iCalSequenceNumber;
if (defined $sequenceNumber) {
$sequenceNumber++;
@ -174,7 +174,7 @@ sub addRevision {
$newRev->update({storageId => $newStorage->getId});
}
return $newRev;
}
};
#-------------------------------------------------------------------