[open-ils-commits] r9108 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-21 15:24:22 -0400 (Fri, 21 Mar 2008)
New Revision: 9108

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-03-21 19:23:27 UTC (rev 9107)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2008-03-21 19:24:22 UTC (rev 9108)
@@ -905,7 +905,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;