[open-ils-commits] r9107 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-21 15:23:27 -0400 (Fri, 21 Mar 2008)
New Revision: 9107

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
protecting against undefined copy array

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-03-21 04:36:17 UTC (rev 9106)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-03-21 19:23:27 UTC (rev 9107)
@@ -902,7 +902,7 @@
 		}
 
 		# now update any attached copies
-		if( @$copies and !$vol->isdeleted ) {
+		if( $copies and @$copies and !$vol->isdeleted ) {
 			$_->call_number($vol->id) for @$copies;
 			$evt = update_fleshed_copies( $editor, $override, $vol, $copies, $delete_stats );
 			return $evt if $evt;