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

Use Moose and 8 in the WikiPage.

Browse source
This commit is contained in:
Colin Kuskie 2011-12-06 21:21:44 -08:00
parent c8fdf5852f
commit 13776f9934
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Asset/WikiPage.pm
View file

@ -88,11 +88,12 @@ instead of the default of 12.
=cut
sub canAdd {
around canAdd => sub {
my $orig = shift;
my $class = shift;
my $session = shift;
return $class->next::method($session, undef, '7');
}
return $class->$orig($session, undef, '7');
};
#-------------------------------------------------------------------
@ -355,11 +356,11 @@ Extends the master class to handle preparing the main view template for the page
=cut
sub prepareView {
override prepareView => sub {
my $self = shift;
$self->next::method;
super();
$self->preparePageTemplate;
}
};
#-------------------------------------------------------------------
@ -370,10 +371,10 @@ Extends the master method to handle properties and attachments.
=cut
sub processEditForm {
override processEditForm => sub {
my $self = shift;
my $session = $self->session;
$self->next::method(@_);
super();
my $actionTaken = ($session->form->process("assetId") eq "new") ? "Created" : "Edited";
my $wiki = $self->getWiki;
my $properties = {
@ -425,7 +426,7 @@ sub processEditForm {
}
}
}
}
};
#-------------------------------------------------------------------