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

Remove all unnecessary usage of SUPER from Assets

Browse source
This commit is contained in:
Colin Kuskie 2011-12-07 08:26:08 -08:00
parent c2baef0bde
commit 5f9f1e6dec
46 changed files with 175 additions and 171 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Asset/File.pm
View file

@ -142,15 +142,15 @@ locations
=cut
sub commit {
override commit => sub {
my ( $self, @args ) = @_;
for my $rev ( grep { $_->get("revisionDate") < $self->get("revisionDate") } @{$self->getRevisions} ) {
$rev->getStorageLocation->trash;
}
return $self->SUPER::commit( @args );
}
return super();
};
#-------------------------------------------------------------------
@ -474,11 +474,11 @@ Override trash restore to restore storage location
=cut
sub restore {
my ( $self, @args ) = @_;
override restore => sub {
my ( $self ) = @_;
$self->setPrivileges;
return $self->SUPER::restore( @args );
}
return super();
};
#----------------------------------------------------------------------------
@ -573,14 +573,14 @@ Override to put the attached file in the trash too
=cut
sub trash {
my ( $self, @args ) = @_;
my $return = $self->SUPER::trash( @args );
override trash => sub {
my ( $self ) = @_;
my $return = super();
$self->getStorageLocation->trash;
return $return;
}
};
#----------------------------------------------------------------------------