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

Migrate calendars seems to work. Uncomment appropriate lines in upgrade_7.2.3-7.3.0.pl to test. If you get it working, commit the uncommented lines please.

Browse source
This commit is contained in:
Doug Bell 2006-12-02 18:19:51 +00:00
parent 5b29b0dfcb
commit 8da3e259a0
1 changed files with 13 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -226,35 +226,32 @@ sub migrateCalendars {
{ {
my $properties = {%{$asset->get}}; my $properties = {%{$asset->get}};
$properties->{defaultDate} = delete $properties->{defaultMonth}; $properties->{defaultDate} = delete $properties->{defaultMonth};
warn "Found calendar ".$properties->{title}; #warn "Found calendar ".$properties->{title};
$properties->{className} = "WebGUI::Asset::Wobject::Calendar"; $properties->{className} = "WebGUI::Asset::Wobject::Calendar";
# Add the new asset # Add the new asset
my $newAsset = $asset->getParent->addChild($properties); my $newAsset = $asset->getParent->addChild($properties);
warn "Added Calendar ".$newAsset->get("title")." ".$newAsset->get("className"); #warn "Added Calendar ".$newAsset->get("title")." ".$newAsset->get("className");
# Get this calendar's events and change to new parent # Get this calendar's events and change to new parent
my $events = $asset->getLineage(['descendants'], my $events = $asset->getLineage(['descendants'],
{ {
includeOnlyClasses => ['WebGUI::Asset::Event'], includeOnlyClasses => ['WebGUI::Asset::Event'],
}); });
warn "Got lineage"; #warn "Got lineage";
# Set the new asset's rank
$newAsset->swapRank($asset->getRank);
warn "Swapped rank";
for my $event (@{$events}) for my $event (@{$events})
{ {
warn "Got event: $event"; #warn "Got event: $event";
# Add a child to the new calendar using the properties # Add a child to the new calendar using the properties
# from EventsCalendar_event # from EventsCalendar_event
my %eventProperties = $session->db->quickHash("select * from asset left join assetData on asset.assetId=assetData.assetId left join EventsCalendar_event on asset.assetId = EventsCalendar_event.assetId where asset.assetId = ?",[$event]); my %eventProperties = $session->db->quickHash("select * from asset left join assetData on asset.assetId=assetData.assetId left join EventsCalendar_event on asset.assetId = EventsCalendar_event.assetId where asset.assetId = ?",[$event]);
delete $eventProperties{assetId};
my ($startDate, $startTime) = split / /, WebGUI::DateTime->new(delete $eventProperties{eventStartDate})->toMysql; my ($startDate, $startTime) = split / /, WebGUI::DateTime->new(delete $eventProperties{eventStartDate})->toMysql;
my ($endDate, $endTime) = split / /, WebGUI::DateTime->new(delete $eventProperties{eventEndDate})->toMysql; my ($endDate, $endTime) = split / /, WebGUI::DateTime->new(delete $eventProperties{eventEndDate})->toMysql;
@ -268,18 +265,18 @@ sub migrateCalendars {
$newAsset->addChild(\%eventProperties); $newAsset->addChild(\%eventProperties);
# Remove this event from the old calendar # Remove this event from the old calendar
#$session->db->write("delete from EventsCalendar_event where assetId=?",[$event]); $session->db->write("delete from EventsCalendar_event where assetId=?",[$event]);
#$session->db->write("delete from asset where assetId=?",[$event]); $session->db->write("delete from asset where assetId=?",[$event]);
#$session->db->write("delete from assetData where assetId=?",[$event]); $session->db->write("delete from assetData where assetId=?",[$event]);
#$session->db->write("delete from assetIndex where assetId=?",[$event]); $session->db->write("delete from assetIndex where assetId=?",[$event]);
#$session->db->write("delete from assetHistory where assetId=?",[$event]); $session->db->write("delete from assetHistory where assetId=?",[$event]);
} }
warn "Set parents on events"; #warn "Set parents on events";
# Remove the old asset # Remove the old asset
$asset->purge; $asset->purge;
warn "Purged old calendar"; #warn "Purged old calendar";
} }
} }