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

20
lib/WebGUI/Asset/Template.pm
View file

@ -157,13 +157,13 @@ Override the master addRevision to copy attachments
=cut
sub addRevision {
override addRevision => sub {
my ( $self, $properties, @args ) = @_;
my $asset = $self->SUPER::addRevision($properties, @args);
my $asset = super();
delete $properties->{templatePacked};
$asset->addAttachments($self->getAttachments);
return $asset;
}
};
#-------------------------------------------------------------------
@ -193,12 +193,12 @@ copy.
=cut
sub duplicate {
my $self = shift;
my $newTemplate = $self->SUPER::duplicate;
override duplicate => sub {
my $self = shift;
my $newTemplate = super();
$newTemplate->update({isDefault => 0});
return $newTemplate;
}
};
#-------------------------------------------------------------------
@ -710,11 +710,11 @@ Override the master purgeRevision to purge attachments
=cut
sub purgeRevision {
override purgeRevision => sub {
my $self = shift;
$self->removeAttachments;
return $self->SUPER::purgeRevision(@_);
}
return super();
};
#-------------------------------------------------------------------