not check for holds on shelf for non-cats
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 8 Sep 2006 14:31:53 +0000 (14:31 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 8 Sep 2006 14:31:53 +0000 (14:31 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@6028 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm

index 60e9c0e..4c4a577 100644 (file)
@@ -523,6 +523,8 @@ sub check_captured_holds {
    my $copy    = $self->copy;
    my $patron  = $self->patron;
 
    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");
        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");