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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-12-08 16:40:33 -0500 (Tue, 08 Dec 2009)
New Revision: 15110

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
search returns an array-ref, doh

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-12-08 21:35:48 UTC (rev 15109)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-12-08 21:40:33 UTC (rev 15110)
@@ -1612,7 +1612,9 @@
         return unless $copy and $circ->due_date;
     }
 
-    if (my $booking_item = $self->editor->search_booking_resource( { barcode => $copy->barcode } )) {
+    my $booking_items = $self->editor->search_booking_resource( { barcode => $copy->barcode } );
+    if (@$booking_items) {
+        my $booking_item = $booking_items->[0];
         my $resource_type = $self->editor->retrieve_booking_resource_type( $booking_item->type );
 
         my $stop_circ_setting = $U->ou_ancestor_setting_value( $self->circ_lib, 'circ.booking_reservation.stop_circ', $self->editor );