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

12
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -137,9 +137,9 @@ and to put children in their places.
=cut
sub prepareView {
override prepareView => sub {
my $self = shift;
$self->SUPER::prepareView;
super();
my $session = $self->session;
my $templateId;
@ -263,7 +263,7 @@ sub prepareView {
$self->{_viewVars} = \%vars;
$self->{_viewPlaceholder} = \%placeHolder;
}
};
#-------------------------------------------------------------------
@ -369,9 +369,9 @@ Extend the base class to include the userid of the person that made last modific
=cut
sub getContentLastModifiedBy {
override getContentLastModifiedBy => sub {
my $self = shift;
my $mtime = $self->SUPER::getContentLastModified;
my $mtime = super();
my $userId = $self->get('revisedBy');
my $childIter = $self->getLineageIterator(["children"],{excludeClasses=>['WebGUI::Asset::Wobject::Layout']});
while ( 1 ) {
@ -389,7 +389,7 @@ sub getContentLastModifiedBy {
}
}
return $userId;
}
};
#-------------------------------------------------------------------