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

Use Moose method modifiers for overriding addRev in Story.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-24 10:25:29 -07:00
parent 82bc730a8a
commit a10e65f883
1 changed files with 4 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Asset/Story.pm
View file

@ -117,23 +117,16 @@ Request autocommit.
=cut
sub addRevision {
around addRevision => sub {
my $orig = shift;
my $self = shift;
my $session = $self->session;
my $newSelf = $self->next::method(@_);
my $newProperties = {
isHidden => 1,
};
$newSelf->update($newProperties);
my $newSelf = $self->$orig(@_);
my $newPhotoData = $newSelf->duplicatePhotoData;
$newSelf->setPhotoData($newPhotoData);
#$newSelf->requestAutoCommit;
return $newSelf;
}
};
#-------------------------------------------------------------------