deref the property hash inside processPropertiesFromFormPost

This commit is contained in:
Colin Kuskie 2007-01-26 19:54:50 +00:00
parent d37bf74175
commit 8ee6fc71af

View file

@ -1480,9 +1480,9 @@ sub processPropertiesFromFormPost
else else
{ {
# Just update related events # Just update related events
my $properties = $self->get; my %properties = %{ $self->get };
delete $properties->{startDate}; delete $properties{startDate};
delete $properties->{endDate}; delete $properties{endDate};
my $events = $self->getLineage(["siblings"], my $events = $self->getLineage(["siblings"],
{ {
@ -1495,10 +1495,10 @@ sub processPropertiesFromFormPost
for my $event (@$events) for my $event (@$events)
{ {
# Add a revision # Add a revision
$properties->{startDate} = $event->get("startDate"); $properties{startDate} = $event->get("startDate");
$properties->{endDate} = $event->get("endDate"); $properties{endDate} = $event->get("endDate");
$event->addRevision($self->get); $event->addRevision(\%properties);
$event->requestAutoCommit; $event->requestAutoCommit;
} }
} }