[open-ils-commits] r13471 - branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-25 10:02:29 -0400 (Thu, 25 Jun 2009)
New Revision: 13471

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
backporting 13208 (fulfilled holds with status -1).  missed 1.4.0.5, but in case there's a 1.4.0.6...

Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-06-25 13:28:12 UTC (rev 13470)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-06-25 14:02:29 UTC (rev 13471)
@@ -1559,7 +1559,8 @@
 	$e->checkauth or return $e->event;
 	$e->allowed('VIEW_HOLD') or return $e->event;
 
-	$args ||= { fulfillment_time => undef };
+	$args ||= {};
+    $args->{fulfillment_time} = undef; #  we don't want to see old fulfilled holds
 	$args->{cancel_time} = undef;
 
 	my $resp = { volume_holds => [], copy_holds => [] };