fix a bug with duplicating calendars that interfered with deploying packages

This commit is contained in:
Colin Kuskie 2007-03-13 16:37:17 +00:00
parent 2223ce8749
commit b97caae3c8
2 changed files with 3 additions and 2 deletions

View file

@ -371,12 +371,12 @@ sub duplicate {
my $newCalendar = $self->SUPER::duplicate(@_);
# Duplicate the events in this calendar
my @events = $self->getLineage(["descendents"], {
my $events = $self->getLineage(["descendents"], {
returnObjects => 1,
includeOnlyClasses => ['WebGUI::Asset::Event'],
});
for my $event (@events) {
for my $event (@{ $events }) {
my %eventProperties = %{ $event->get() };
$newCalendar->addChild(\%eventProperties);
}