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

fix: 7.2.3-7.3.0 upgrade now just purges EC in the Trash

Browse source
This commit is contained in:
Doug Bell 2007-01-26 00:31:38 +00:00
parent 6e06db64a2
commit 7c813f4a48
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -223,20 +223,23 @@ sub migrateCalendars {
for my $asset (@{$calendars}) for my $asset (@{$calendars})
{ {
next unless defined $asset; next unless defined $asset;
# If the asset is in the trash, ignore the migration, we're just going
# to purge it.
if ($asset->get("state") =~ m/trash/) {
next;
}
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";
use Data::Dumper;
warn Dumper $properties;
# 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");
warn Dumper $asset->get;
warn "\n\n\n\n\n\n\n\n";
# 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'],