From 4da972d96faf93d326d101cf26f03557dba3f3e1 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 21 Mar 2008 19:24:22 +0000 Subject: [PATCH] protecting against undefined copy array git-svn-id: svn://svn.open-ils.org/ILS/trunk@9108 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index 32be42afba..d3eeb1f562 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -905,7 +905,7 @@ sub fleshed_volume_update { } # 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; -- 2.43.2