From f8778c5fa1870cd480095d3e2cc3b060e4d29f9e Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 22 Feb 2008 15:20:05 +0000
Subject: [PATCH] added logic to migrate holds from the deleted records to the
 master record in title merging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8818 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Cat.pm   | 43 +++++++++++++++++--
 1 file changed, 39 insertions(+), 4 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 326c1c3eb9..32be42afba 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -769,8 +769,7 @@ __PACKAGE__->register_method(
 	signature	=> q/
 		Merges a group of records
 		@param auth The login session key
-		@param master The id of the record all other r
-			ecords should be merged into
+		@param master The id of the record all other records should be merged into
 		@param records Array of records to be merged into the master record
 		@return 1 on success, Event on error.
 	/
@@ -783,8 +782,44 @@ sub merge {
 	my $editor = new_editor( requestor => $reqr, xact => 1 );
 	my $v = OpenILS::Application::Cat::Merge::merge_records($editor, $master, $records);
 	return $v if $v;
-	$editor->finish;
-	return 1;
+	$editor->commit;
+    # tell the client the merge is complete, then merge the holds
+    $conn->respond_complete(1);
+    merge_holds($master, $records);
+	return undef;
+}
+
+sub merge_holds {
+    my($master, $records) = @_;
+    return unless $master and @$records;
+    return if @$records == 1 and $master == $$records[0];
+
+    my $e = new_editor(xact=>1);
+    my $holds = $e->search_action_hold_request(
+        {   cancel_time => undef, 
+            fulfillment_time => undef,
+            hold_type => 'T',
+            target => $records
+        },
+        {idlist=>1}
+    );
+
+    for my $hold_id (@$holds) {
+
+        my $hold = $e->retrieve_action_hold_request($hold_id);
+
+        $logger->info("Changing hold ".$hold->id.
+            " target from ".$hold->target." to $master in record merge");
+
+        $hold->target($master);
+        unless($e->update_action_hold_request($hold)) {
+            my $evt = $e->event;
+            $logger->error("Error updating hold ". $evt->textcode .":". $evt->desc .":". $evt->stacktrace); 
+        }
+    }
+
+    $e->commit;
+    return undef;
 }
 
 
-- 
2.43.2