From 8fbb75c5fa16694daa82173de1dbfba7d8952f35 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 29 Oct 2009 21:43:14 +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/trunk@14685 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 db71c589f8..54973dea60 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm @@ -742,7 +742,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); @@ -753,7 +754,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.43.2