oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add Archive Old Stories workflow to Daily Workflow.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-25 02:15:01 +00:00
parent 4e198ed3f8
commit ae28bf79c8
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
docs/upgrades/upgrade_7.6.14-7.7.0.pl
View file

@ -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 --------------------------------