From e8292a8a3f54f981a0f89a1e54ce82530e5c1069 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 18 Mar 2009 18:26:20 +0000
Subject: [PATCH] Do not set addStoryUrl unless the user can really add
 Stories.

---
 lib/WebGUI/Asset/Wobject/StoryArchive.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
index 61e9b0969..2cc5290b3 100644
--- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm
+++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
@@ -348,8 +348,10 @@ sub viewTemplateVariables {
         }
     }
 
-    $var->{addStoryUrl}    = $self->getUrl('func=add;class=WebGUI::Asset::Story');
     $var->{canPostStories} = $self->canPostStories;
+    $var->{addStoryUrl}    = $var->{canPostStories}
+                           ? $self->getUrl('func=add;class=WebGUI::Asset::Story')
+                           : '';
     $var->{keywordCloud}   = WebGUI::Keyword->new($session)->generateCloud({
         startAsset  => $self,
         displayFunc => 'view',