protecting against undefined copy array
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 21 Mar 2008 19:24:22 +0000 (19:24 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 21 Mar 2008 19:24:22 +0000 (19:24 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@9108 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Cat.pm

index 32be42a..d3eeb1f 100644 (file)
@@ -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;