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

18
lib/WebGUI/Asset/Wobject/Folder.pm
View file

@ -127,9 +127,9 @@ Overridden to check the updated dates of children as well
=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"]);
while ( 1 ) {
@ -147,7 +147,7 @@ sub getContentLastModifiedBy {
}
}
return $userId;
}
};
#-------------------------------------------------------------------
@ -157,9 +157,9 @@ Returns the TabForm object that will be used in generating the edit page for thi
=cut
sub getEditForm {
override getEditForm => sub {
my $self = shift;
my $tabform = $self->SUPER::getEditForm();
my $tabform = super();
my $i18n = WebGUI::International->new($self->session,"Asset_Folder");
if ($self->get("assetId") eq "new") {
$tabform->getTab("properties")->whatNext(
@ -171,7 +171,7 @@ sub getEditForm {
);
}
return $tabform;
}
};
#----------------------------------------------------------------------------
@ -202,9 +202,9 @@ See WebGUI::Asset::prepareView() for details.
=cut
sub prepareView {
override prepareView => sub {
my $self = shift;
$self->SUPER::prepareView();
super();
my $template = WebGUI::Asset::Template->newById($self->session, $self->templateId);
if (!$template) {
WebGUI::Error::ObjectNotFound::Template->throw(
@ -215,7 +215,7 @@ sub prepareView {
}
$template->prepare($self->getMetaDataAsTemplateVariables);
$self->{_viewTemplate} = $template;
}
};
#-------------------------------------------------------------------