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

Move Calendar feeds into the Calendar Asset table as JSON collateral.

Browse source 
Update tests and workflows to follow.
This commit is contained in:
Colin Kuskie 2009-08-26 22:14:04 +00:00
parent bfd25d6de2
commit 22d462166f
5 changed files with 425 additions and 309 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -22,6 +22,8 @@ use Getopt::Long;
use WebGUI::Session;
use WebGUI::Storage;
use WebGUI::Asset;
use WebGUI::Asset::Wobject::Calendar;
use JSON;
my $toVersion = '7.7.19';
@ -33,6 +35,7 @@ my $session = start(); # this line required
# upgrade functions go here
addInboxSmsNotificationTemplateIdSetting($session);
upgradeJSONDatabaseFields($session);
moveCalendarFeedsToJSON($session);
finish($session); # this line required
#----------------------------------------------------------------------------
@ -92,6 +95,30 @@ sub upgradeJSONDatabaseFields {
print "DONE!\n" unless $quiet;
}
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);
while (my $calendar = $getCalendar->()) {
my $feeds = $session->db->buildHashRefOfHashRefs(
"select * from Calendar_feeds where assetId=?",
[$calendar->getId],
"feedId"
);
foreach my $feedParams (values %{ $feeds }) {
delete $feedParams->{assetId};
$calendar->addFeed($feedParams);
}
##Copy the JSON across all the revisions of this Calendar.
my $jsonFeeds = $session->db->quickScalar('select icalFeeds from Calendar where assetId=? and revisionDate=?', [ $calendar->getId, $calendar->get('revisionDate')]);
$session->db->write('update Calendar set icalFeeds=? where assetId=?', [$jsonFeeds, $calendar->getId]);
}
$session->db->write(q|DROP TABLE Calendar_feeds|);
print "DONE!\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
#----------------------------------------------------------------------------