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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-29 17:44:16 -0400 (Thu, 29 Oct 2009)
New Revision: 14688

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
when changing the pickup lib of a hold that is already on the shelf, create a hold-transit-copy not just a regular transit-copy

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-29 21:43:53 UTC (rev 14687)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-29 21:44:16 UTC (rev 14688)
@@ -569,7 +569,8 @@
 
     $logger->info("putting hold into transit on pickup_lib update");
 
-    my $transit = Fieldmapper::action::transit_copy->new;
+    my $transit = Fieldmapper::action::hold_transit_copy->new;
+    $transit->hold($hold->id);
     $transit->source($src);
     $transit->dest($dest);
     $transit->target_copy($copy->id);
@@ -580,7 +581,7 @@
     $copy->editor($e->requestor->id);
     $copy->edit_date('now');
 
-    $e->create_action_transit_copy($transit) or return $e->die_event;
+    $e->create_action_hold_transit_copy($transit) or return $e->die_event;
     $e->update_asset_copy($copy) or return $e->die_event;
     return undef;
 }