From 8ee6fc71af8c10176413e083ea501d7b3595d5a6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 26 Jan 2007 19:54:50 +0000
Subject: [PATCH] deref the property hash inside processPropertiesFromFormPost

---
 lib/WebGUI/Asset/Event.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
index 0499f407e..f205f533b 100644
--- a/lib/WebGUI/Asset/Event.pm
+++ b/lib/WebGUI/Asset/Event.pm
@@ -1480,9 +1480,9 @@ sub processPropertiesFromFormPost
 		else
 		{
 			# Just update related events			
-			my $properties	= $self->get;
-			delete $properties->{startDate};
-			delete $properties->{endDate};
+			my %properties	= %{ $self->get };
+			delete $properties{startDate};
+			delete $properties{endDate};
 			
 			my $events = $self->getLineage(["siblings"], 
 				{
@@ -1495,10 +1495,10 @@ sub processPropertiesFromFormPost
 			for my $event (@$events)
 			{
 				# Add a revision
-				$properties->{startDate}	= $event->get("startDate");
-				$properties->{endDate}		= $event->get("endDate");
+				$properties{startDate} = $event->get("startDate");
+				$properties{endDate}   = $event->get("endDate");
 				
-				$event->addRevision($self->get);
+				$event->addRevision(\%properties);
 				$event->requestAutoCommit;
 			}
 		}