not check for holds on shelf for non-cats

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6028 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 60e9c0e..4c4a577 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -523,6 +523,8 @@ sub check_captured_holds {
    my $copy    = $self->copy;
    my $patron  = $self->patron;
 
+       return undef unless $copy;
+
        my $s = $U->copy_status($copy->status)->id;
        return unless $s == OILS_COPY_STATUS_ON_HOLDS_SHELF;
        $logger->info("circulator: copy is on holds shelf, searching for the correct hold");