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

a little better handling of scratch variables

Browse source
This commit is contained in:
JT Smith 2008-11-12 21:17:53 +00:00
parent 07519c7e98
commit 2a7ffdc7fe
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Workflow/Activity/GetSyndicatedContent.pm
View file

@ -80,11 +80,18 @@ sub execute {
# start time to check for timeouts # start time to check for timeouts
my $time = time(); my $time = time();
my $ttl = $self->getTTL; my $ttl = $self->getTTL;
# get asset list
my $scratch = $instance->getScratch("syndicatedassets");
my $assets = [];
if ($scratch) {
$assets = JSON->new->decode($scratch);
}
else {
$assets = $self->session->db->buildArrayRef("select assetId from asset where className like 'WebGUI::Asset::Wobject::SyndicatedContent'");
}
my $assets = JSON->new->decode($instance->getScratch("syndicatedassets") || '[]'); # process each syndicated content asset
if (scalar @$assets < 1) {
$assets = $self->session->db->buildArrayRef("select assetId from asset where className like 'WebGUI::Asset::Wobject::SyndicatedContent'");
}
while (my $id = shift(@{$assets})) { while (my $id = shift(@{$assets})) {
# Get RSS data, which will be stored in the cache # Get RSS data, which will be stored in the cache
$log->info("GetSyndicatedContent: Caching for $id"); $log->info("GetSyndicatedContent: Caching for $id");
@ -107,6 +114,8 @@ sub execute {
$instance->setScratch("syndicatedassets", JSON->new->encode($assets)); $instance->setScratch("syndicatedassets", JSON->new->encode($assets));
return $self->WAITING; return $self->WAITING;
} }
# if we've completed the list, clean up
$instance->deleteScratch("syndicatedassets"); $instance->deleteScratch("syndicatedassets");
return $self->COMPLETE; return $self->COMPLETE;
} }