From 2cd648d717a6da20a4f454c32c3bef8dca22a96f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 5 Mar 2009 01:00:41 +0000
Subject: [PATCH] override www_add so that it makes or access a folder to hold
 stories.

---
 lib/WebGUI/Asset/Wobject/StoryArchive.pm | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
index 983ae46a0..6b4ca2c99 100644
--- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm
+++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
@@ -264,8 +264,8 @@ sub view {
     #This is an example of debugging code to help you diagnose problems.
     #WebGUI::ErrorHandler::warn($self->get("templateId")); 
     
-    use Data::Dumper;
-    $session->log->warn(Dumper $var);
+    #use Data::Dumper;
+    #$session->log->warn(Dumper $var);
     return $self->processTemplate($var, undef, $self->{_viewTemplate});
 }
 
@@ -322,5 +322,24 @@ sub viewTemplateVariables {
     return 1;
 }
 
+#-------------------------------------------------------------------
+
+=head2 www_add ( )
+
+The only real children of StoryArchive are Folders, which then hold Stories.  So we intercept
+www_add, find the right folder to use, then allow that folder to continue on.
+
+=cut
+
+
+sub www_add {
+    my $self = shift;
+    my $form = $self->session->form;
+    return undef unless $form->get('class') eq 'WebGUI::Asset::Story';
+    my $todayFolder = $self->getFolder;
+    return undef unless $todayFolder;
+    $todayFolder->www_add;
+}
+
 1;
 #vim:ft=perl