[open-ils-commits] r14514 - trunk/Open-ILS/src/perlmods/OpenILS/Application (phasefx)

[svn at svn.open-ils.org]

Author: phasefx
Date: 2009-10-21 04:23:34 -0400 (Wed, 21 Oct 2009)
New Revision: 14514

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
fix a bug where only the first circ_id given was being backdated with the .batch method

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-10-21 08:12:16 UTC (rev 14513)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-10-21 08:23:34 UTC (rev 14514)
@@ -396,7 +396,9 @@
     my $e = new_editor(authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
     if($self->api_name =~ /batch/) {
-        $conn->respond(post_checkin_backdate_circ_impl($e, $_, $backdate)) for $circ_id;
+        foreach my $c (@$circ_id) {
+            $conn->respond(post_checkin_backdate_circ_impl($e, $c, $backdate)) 
+        }
     } else {
         $conn->respond_complete(post_checkin_backdate_circ_impl($e, $circ_id, $backdate));
     }