diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index c067ca939..fe9d60263 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,6 +1,7 @@ 7.3.12 - fix: Fixing bad link on the Event page to the search engine. Added a new Event template variable called urlSearch to handle it. (perlDreamer Consulting, LLC) + - fix: Set default groupIdEditEvent to groupIdEdit during upgrade (perlDreamer Consulting, LLC) 7.3.11 - Added an option for enabling coverage tests to testCodebase.pl. diff --git a/docs/upgrades/upgrade_7.2.3-7.3.0.pl b/docs/upgrades/upgrade_7.2.3-7.3.0.pl index 18100921c..d6c5da523 100644 --- a/docs/upgrades/upgrade_7.2.3-7.3.0.pl +++ b/docs/upgrades/upgrade_7.2.3-7.3.0.pl @@ -219,7 +219,7 @@ sub migrateCalendars { includeOnlyClasses => ['WebGUI::Asset::Wobject::EventsCalendar'], returnObjects => 1, }); - + for my $asset (@{$calendars}) { next unless defined $asset; @@ -232,9 +232,10 @@ sub migrateCalendars { my $properties = {%{$asset->get}}; - $properties->{defaultDate} = delete $properties->{defaultMonth}; #warn "Found calendar ".$properties->{title}; - $properties->{className} = "WebGUI::Asset::Wobject::Calendar"; + $properties->{defaultDate} = delete $properties->{defaultMonth}; + $properties->{className} = "WebGUI::Asset::Wobject::Calendar"; + $properties->{groupIdEventEdit} = $properties->{groupIdEdit}; # Add the new asset my $newAsset = $asset->getParent->addChild($properties);