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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-29 17:43:14 -0400 (Thu, 29 Oct 2009)
New Revision: 14685

Modified:
   trunk/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: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-29 21:37:55 UTC (rev 14684)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2009-10-29 21:43:14 UTC (rev 14685)
@@ -742,7 +742,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);
@@ -753,7 +754,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;
 }