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

Moose subclassing for Asset/*.pm.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-09 10:30:54 -07:00
parent 0c003083a0
commit c35f3b9ffb
6 changed files with 65 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Asset/RichEdit.pm
View file

@ -204,9 +204,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_RichEdit');
my %buttons;
tie %buttons, "Tie::IxHash";
@ -441,7 +441,7 @@ sub getEditForm {
name => "allowMedia",
);
return $tabform;
}
};
@ -477,11 +477,11 @@ Returns a toolbar with a set of icons that hyperlink to functions that delete, e
=cut
sub getToolbar {
override getToolbar => sub {
my $self = shift;
return undef if ($self->getToolbarState);
return $self->SUPER::getToolbar();
}
return super();
};