|
From: Chris W. <la...@us...> - 2001-10-15 04:27:41
|
Update of /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory
In directory usw-pr-cvs1:/tmp/cvs-serv28934/SPOPS/ClassFactory
Modified Files:
DefaultBehavior.pm
Log Message:
ensure that 'fetch_by' doesn't use something as a hashref that isn't
necessarily defined as such
Index: DefaultBehavior.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory/DefaultBehavior.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** DefaultBehavior.pm 2001/10/12 21:00:26 1.10
--- DefaultBehavior.pm 2001/10/15 04:27:39 1.11
***************
*** 259,262 ****
--- 259,263 ----
sub %%CLASS%%::fetch_by_%%FETCH_BY_FIELD%% {
my ( $item, $fb_field_value, $p ) = @_;
+ $p ||= {};
my $obj_list = $item->fetch_group({ where => "%%FETCH_BY_FIELD%% = ?",
value => [ $fb_field_value ],
|