Fix the WikiPage title auto fill-in by using a Moose builder method that can be overridden by child classes.

perlDreamer · perlDreamer · commit e4de128f7649 · 2011-11-24T10:31:54.000-08:00
diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.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;
diff --git a/lib/WebGUI/Asset/WikiPage.pm b/lib/WebGUI/Asset/WikiPage.pm
@@ -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" }) 
