Added missing croak arg to use Carp line.

Stored recurId into the object and db after it is created in setRecurrence.
This commit is contained in:
Colin Kuskie 2007-03-24 03:47:44 +00:00
parent b9e6914f34
commit e58f062114
2 changed files with 6 additions and 2 deletions

View file

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

View file

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