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

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