[open-ils-commits] r16201 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-04-12 10:20:56 -0400 (Mon, 12 Apr 2010)
New Revision: 16201

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
w/ in-db circ, if patron permit fails with 'no_item', continue on if this is a noncat checkout

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2010-04-12 13:53:10 UTC (rev 16200)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2010-04-12 14:20:56 UTC (rev 16201)
@@ -998,9 +998,12 @@
 
         my $results = $self->run_indb_circ_test;
         unless($self->circ_test_success) {
-            push(@allevents, OpenILS::Event->new(
-                $LEGACY_CIRC_EVENT_MAP->{$_->{fail_part}} || $_->{fail_part}
-                )) for @$results;
+            # no_item result is OK during noncat checkout
+            unless(@$results == 1 && $results->[0]->{fail_part} eq 'no_item' and $self->is_noncat) {
+                push(@allevents, OpenILS::Event->new(
+                    $LEGACY_CIRC_EVENT_MAP->{$_->{fail_part}} || $_->{fail_part}
+                    )) for @$results;
+            }
         }
 
     } else {