Skip to content
Permalink
Browse files

Fix the WikiPage title auto fill-in by using a Moose builder method t…

…hat can be overridden by child classes.
  • Loading branch information...
perlDreamer committed Nov 24, 2011
1 parent ce15690 commit e4de128f7649dbc25e376e6907e707814747f547
Showing with 15 additions and 1 deletion.
  1. +7 −1 lib/WebGUI/Asset.pm
  2. +8 −0 lib/WebGUI/Asset/WikiPage.pm
@@ -33,8 +33,14 @@ property title => (
label => ['99','Asset'],
hoverHelp => ['99 description','Asset'],
fieldType => 'text',
default => 'Untitled',
builder => '_default_title',
lazy => 1,
);

sub _default_title {
return 'Untitled';
}

around title => sub {
my $orig = shift;
my $self = shift;
@@ -51,6 +51,12 @@ property isFeatured => (
noFormPost => 1,
);

override _default_title => sub {
my $self = shift;
my $title = $self->session->form->get('title') || super();
return $title;
};

with 'WebGUI::Role::Asset::AlwaysHidden';
with 'WebGUI::Role::Asset::Subscribable';
with 'WebGUI::Role::Asset::Comments';
@@ -193,6 +199,8 @@ sub getEditTemplate {
protectQuestionLabel => $i18n->get("protectQuestionLabel"),
isProtected => $self->isProtected
};
$session->log->warn("title form variable". $form->get('title', 'text'));
$session->log->warn("title form element". $var->{formTitle});
my $children = [];
if ($self->getId eq "new") {
$var->{formHeader} .= WebGUI::Form::hidden($session, { name=>"assetId", value=>"new" })

0 comments on commit e4de128

Please sign in to comment.
You can’t perform that action at this time.