From e58f0621148e5d035962a14f57a6120cd0103c2c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 24 Mar 2007 03:47:44 +0000
Subject: [PATCH] Added missing croak arg to use Carp line. Stored recurId into
 the object and db after it is created in setRecurrence.

---
 docs/changelog/7.x.x.txt  | 2 ++
 lib/WebGUI/Asset/Event.pm | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index af4510f29..1b5d28b28 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -9,6 +9,8 @@
  - fix: Collaboration System not deleting getCSMail workflows (perlDreamer Consulting, LLC)
  - fix: Calendar event edit should inherit (perlDreamer Consulting, LLC)
     http://www.plainblack.com/bugs/tracker/calendar-event-edit-should-inherit
+ - fix: Calendar: recurrance generates uncommitted version tag (perlDreamer Consulting, LLC)
+    http://www.plainblack.com/bugs/tracker/calendar-recurrance-generates-uncommitted-version-tag
 
 
 7.3.13
diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
index 666471bc3..390c8784c 100644
--- a/lib/WebGUI/Asset/Event.pm
+++ b/lib/WebGUI/Asset/Event.pm
@@ -15,7 +15,7 @@ $VERSION = "0.0.0";
 use strict;
 
 use Tie::IxHash;
-use Carp qw(cluck confess);
+use Carp qw(croak);
 use Storable qw(nfreeze thaw);
 
 use WebGUI::International;
@@ -1540,7 +1540,9 @@ sub setRecurrence {
     
     ## Set to the database
     ## Return the new recurId
-    return $self->session->db->setRow("Event_recur","recurId",$data);
+    my $recurId = $self->session->db->setRow("Event_recur","recurId",$data);
+    $self->update({recurId => $recurId}); 
+    return $recurId;
 }