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

Fix: Added appropriate workflow activities for new Calendar

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
docs/upgrades/upgrade_7.2.3-7.3.0.pl
View file

@ -188,6 +188,12 @@ ENDSQL
); );
$session->config->addToArray('assets', 'WebGUI::Asset::Wobject::Calendar'); $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");
} }

4
lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
View file

@ -78,6 +78,8 @@ sub execute {
my $self = shift; my $self = shift;
$self->session->user({userId => 3}); $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 $ua = LWP::UserAgent->new(agent => "WebGUI");
my $dt = WebGUI::DateTime->new(time)->toMysql; my $dt = WebGUI::DateTime->new(time)->toMysql;
@ -288,7 +290,6 @@ sub execute {
if ($event) if ($event)
{ {
$event->update($properties); $event->update($properties);
$event->requestCommit;
$updated++; $updated++;
} }
} }
@ -296,7 +297,6 @@ sub execute {
{ {
my $calendar = WebGUI::Asset->newByDynamicClass($self->session,$feed->{assetId}); my $calendar = WebGUI::Asset->newByDynamicClass($self->session,$feed->{assetId});
my $event = $calendar->addChild($properties); my $event = $calendar->addChild($properties);
$event->requestCommit;
$added++; $added++;
} }