Fix: Added appropriate workflow activities for new Calendar

This commit is contained in:
Doug Bell 2006-12-07 00:07:48 +00:00
parent a5c1cc7e90
commit c55feb8bcd
2 changed files with 8 additions and 2 deletions

View file

@ -188,6 +188,12 @@ ENDSQL
);
$session->config->addToArray('assets', 'WebGUI::Asset::Wobject::Calendar');
my $workflows = $session->config->get("workflowActivities");
push @{$workflows->{None}},"WebGUI::Workflow::Activity::CalendarUpdateFeeds";
$session->config->set("workflowActivities",$workflows);
WebGUI::Workflow::new("pbworkflow000000000004")->addActivity($session,"WebGUI::Workflow::Activity::CalendarUpdateFeeds");
}

View file

@ -78,6 +78,8 @@ sub execute {
my $self = shift;
$self->session->user({userId => 3});
### TODO: If we take more than a minute, return WAITING so that some
# other activity can run
my $ua = LWP::UserAgent->new(agent => "WebGUI");
my $dt = WebGUI::DateTime->new(time)->toMysql;
@ -288,7 +290,6 @@ sub execute {
if ($event)
{
$event->update($properties);
$event->requestCommit;
$updated++;
}
}
@ -296,7 +297,6 @@ sub execute {
{
my $calendar = WebGUI::Asset->newByDynamicClass($self->session,$feed->{assetId});
my $event = $calendar->addChild($properties);
$event->requestCommit;
$added++;
}