From ae28bf79c8262630604d4aa2285f812967ad7c8b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 25 Mar 2009 02:15:01 +0000
Subject: [PATCH] Add Archive Old Stories workflow to Daily Workflow.

---
 docs/upgrades/upgrade_7.6.14-7.7.0.pl | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/docs/upgrades/upgrade_7.6.14-7.7.0.pl b/docs/upgrades/upgrade_7.6.14-7.7.0.pl
index b75b901d5..5bc2dd5c3 100644
--- a/docs/upgrades/upgrade_7.6.14-7.7.0.pl
+++ b/docs/upgrades/upgrade_7.6.14-7.7.0.pl
@@ -41,7 +41,8 @@ installAssetHistory($session);
 
 # Story Manager
 installStoryManagerTables($session);
-upgradeConfigFiles($session);
+sm_upgradeConfigFiles($session);
+sm_updateDailyWorkflow($session);
 
 # Passive Analytics
 pa_installLoggingTables($session);
@@ -373,7 +374,7 @@ EOTOPIC
     print "DONE!\n" unless $quiet;
 }
 
-sub upgradeConfigFiles {
+sub sm_upgradeConfigFiles {
     my ($session) = @_;
     print "\tAdding Story Manager to config file... " unless $quiet;
     my $config = $session->config;
@@ -399,6 +400,19 @@ sub upgradeConfigFiles {
     print "DONE!\n" unless $quiet;
 }
 
+sub sm_updateDailyWorkflow {
+    my ($session) = @_;
+    print "\tAdding Archive Old Stories to Daily Workflow... " unless $quiet;
+    my $workflow = WebGUI::Workflow->new($session, 'pbworkflow000000000001');
+    foreach my $activity (@{ $workflow->getActivities }) {
+        return if $activity->getName() eq 'WebGUI::Workflow::Activity::ArchiveOldStories';
+    }
+    my $activity = $workflow->addActivity('WebGUI::Workflow::Activity::ArchiveOldStories');
+    $activity->set('title',       'Archive Old Stories');
+    $activity->set('description', 'Archive old stories, based on the settings of the Story Archives that own them');
+    print "DONE!\n" unless $quiet;
+}
+
 
 
 # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------