From 125520a849b2e5f50a5516af9470a849c538721e Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 29 Oct 2009 21:44:16 +0000 Subject: [PATCH] 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 git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@14688 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm index 3aef62dc0f..7655dff769 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm @@ -569,7 +569,8 @@ sub transit_hold { $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 @@ sub transit_hold { $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; } -- 2.11.0