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 =cut
sub prepareView { override prepareView => sub {
my $self = shift; my $self = shift;
$self->addHeaderLinks; $self->addHeaderLinks;
return $self->next::method(@_); return super();
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -582,11 +582,14 @@ Adds an RSS tab to the Edit Tabs.
=cut =cut
sub getEditTabs { around getEditTabs => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $tabs = $self->$orig(@_);
my $i18n = WebGUI::International->new($self->session,'AssetAspect_RssFeed'); 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; 1;