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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-23 15:45:32 -0400 (Tue, 23 Jun 2009)
New Revision: 13453

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
hold queue position starts at 1

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-06-23 19:28:54 UTC (rev 13452)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-06-23 19:45:32 UTC (rev 13453)
@@ -784,7 +784,7 @@
         {idlist => 1} 
     );
 
-    my $qpos = 0;
+    my $qpos = 1;
     for my $hid (@$hold_ids) {
         $qpos++;
         last if $hid == $hold->id;