Re: before_create trigger problems

[prev] [thread] [next] [Date index for 2004/12/21]

> > Further on in the triggered sub I sometimes have
> to
> > create a new object in the database, and I'm
> currently
> > unable to get this working. My best try is:
> >
> >                if ($new_end && $new_start >=
> > $old_start && (!$old_end || $new_end <= $old_end )
> ) {
> > 			# case:     nnnn
> >                         #        ooooooooo(...)
> > 			# solution: cut old in 2
> > 			print STDERR "     nnnn\n";
> > 			print STDERR "   ooooooooo(...)\n";
> > 			my $old2 = $old->copy();
> > 			$old2->_attribute_set("start_date", $new_end +
> 1 );
> > 			$old2->update();
> > 			$old->_attribute_set("end_date", $new_start - 1
> );
> > 			$old->update();
> > 		}
> >
> > This get's stuck on line 51 in Trigger.pm again:
> > Can't retrieve a reference at
> >
>
/usr/local/perl-5.6.0/lib/site_perl/5.6.0/Class/Trigger.pm
> > line 51
> 
> Hmm.  Do you happen to know whether the copy() or
> the update() triggers 
> this error?

It's the copy() that causes this. Is there another way
to copy/clone without side-effects, and that
preferably will still work in future versions of CDBI.
I've been looking into that, but I guess I'll have to
write my own 'create' function that doesn't trigger
triggers.

Emile 

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com