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

Moose appropriate SUPER for RssFeed role.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-23 12:42:32 -07:00
parent 22bbf2e23c
commit 4fb5a55d2f
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Role/Asset/RssFeed.pm
View file

@ -485,11 +485,11 @@ Extend the master class to insert head links via addHeaderLinks.
=cut
sub prepareView {
override prepareView => sub {
my $self = shift;
$self->addHeaderLinks;
return $self->next::method(@_);
}
return super();
};
#-------------------------------------------------------------------
@ -582,11 +582,14 @@ Adds an RSS tab to the Edit Tabs.
=cut
sub getEditTabs {
around getEditTabs => sub {
my $orig = shift;
my $self = shift;
my $tabs = $self->$orig(@_);
my $i18n = WebGUI::International->new($self->session,'AssetAspect_RssFeed');
return ($self->next::method, ['rss', $i18n->get('RSS tab'), 1]);
}
push @{ $tabs }, ['rss', $i18n->get('RSS tab'), 1];
return $tabs;
};
1;