set default group to edit events to be the same as group allowed to edit calendar

This commit is contained in:
Colin Kuskie 2007-03-01 22:03:06 +00:00
parent f800a0d8b0
commit 89686f3fd9
2 changed files with 5 additions and 3 deletions

View file

@ -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.

View file

@ -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);