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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-24 10:06:11 -0400 (Wed, 24 Jun 2009)
New Revision: 13455

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
based hold queue on un-fulfilled holds, not un-captured holds.

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-06-24 13:54:18 UTC (rev 13454)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-06-24 14:06:11 UTC (rev 13455)
@@ -777,7 +777,7 @@
             {   target => $hold->target, 
                 hold_type => $hold->hold_type,
                 cancel_time => undef,
-                capture_time => undef
+                fulfillment_time => undef
             },
             {order_by => {ahr => 'request_time asc'}}
         ], 
@@ -786,8 +786,8 @@
 
     my $qpos = 1;
     for my $hid (@$hold_ids) {
+        last if $hid == $hold->id;
         $qpos++;
-        last if $hid == $hold->id;
     }
 
     my $potentials = $e->search_action_hold_copy_map({hold => $hold->id}, {idlist => 1});