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

Change all upgrade subs to use returnAll with getIsa

Browse source
This commit is contained in:
Colin Kuskie 2009-12-08 17:28:22 -08:00
parent 27a7c099ba
commit 3cb7970a91
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/upgrades/upgrade_7.6.35-7.7.17.pl
View file

@ -1442,7 +1442,7 @@ sub addTemplateAttachmentsTable {
sub revertUsePacked {
my $session = shift;
print "\tReverting use packed... " unless $quiet;
my $iter = WebGUI::Asset->getIsa( $session );
my $iter = WebGUI::Asset->getIsa( $session, 0, { returnAll => 1 } );
while ( my $asset = $iter->() ) {
$asset->update({ usePackedHeadTags => 0 });
if ( $asset->isa('WebGUI::Asset::Template') || $asset->isa('WebGUI::Asset::Snippet') ) {

2
docs/upgrades/upgrade_7.7.18-7.7.19.pl
View file

@ -112,7 +112,7 @@ sub moveCalendarFeedsToJSON {
my $session = shift;
print "\tMoveing Calendar feeds from database collateral to JSON... " unless $quiet;
$session->db->write(q|ALTER TABLE Calendar ADD COLUMN icalFeeds LONGTEXT|);
my $getCalendar = WebGUI::Asset::Wobject::Calendar->getIsa($session);
my $getCalendar = WebGUI::Asset::Wobject::Calendar->getIsa($session, 0, { returnAll => 1 } );
while (my $calendar = $getCalendar->()) {
my $feeds = $session->db->buildHashRefOfHashRefs(
"select * from Calendar_feeds where assetId=?",

2
docs/upgrades/upgrade_7.7.5-7.7.6.pl
View file

@ -158,7 +158,7 @@ sub addTemplateAttachmentsTable {
sub revertUsePacked {
my $session = shift;
print "\tReverting use packed... " unless $quiet;
my $iter = WebGUI::Asset->getIsa( $session );
my $iter = WebGUI::Asset->getIsa( $session, 0, { returnAll => 1 } );
while ( my $asset = $iter->() ) {
$asset->update({ usePackedHeadTags => 0 });
if ( $asset->isa('WebGUI::Asset::Template') || $asset->isa('WebGUI::Asset::Snippet') ) {

2
docs/upgrades/upgrade_7.8.6-7.8.7.pl
View file

@ -72,7 +72,7 @@ sub clearOrphanedCSMailCronJobs {
sub deleteExtraCronJobsForCS {
my $session = shift;
print "\tGuarantee that each CS has one and only one Cron job. Older jobs will be deleted... " unless $quiet;
my $cses = WebGUI::Asset::Wobject::Collaboration->getIsa($session);
my $cses = WebGUI::Asset::Wobject::Collaboration->getIsa($session, 0, { returnAll => 1 } );
CS: while( my $cs = $cses->() ) {
my @cronIds = $session->db->buildArray('select distinct(getMailCronId) from Collaboration where assetId=?',[$cs->getId]);
next CS unless @cronIds > 1;