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

[svn at svn.open-ils.org]

Author: phasefx
Date: 2010-07-15 17:34:06 -0400 (Thu, 15 Jul 2010)
New Revision: 16948

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
allow open-ils.circ.hold.update.batch to apply nulls to fields


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2010-07-15 21:34:02 UTC (rev 16947)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2010-07-15 21:34:06 UTC (rev 16948)
@@ -741,7 +741,13 @@
     unless($hold) {
         $hold = $e->retrieve_action_hold_request($values->{id})
             or return $e->die_event;
-        $hold->$_($values->{$_}) for keys %$values;
+        for my $k (keys %$values) {
+            if (defined $values->{$k}) {
+                $hold->$k($values->{$k});
+            } else {
+                my $f = "clear_$k"; $hold->$f();
+            }
+        }
     }
 
     my $orig_hold = $e->retrieve_action_hold_request($hold->id)