From a0e131491d1a1be6e1e639250765c4e5c4ea753e Mon Sep 17 00:00:00 2001
From: hdl <hdl>
Date: Tue, 24 Jan 2006 14:57:06 +0000
Subject: [PATCH] BUG Fixing : Synching MARC base and KohaBase when transfering
 items to a branch

---
 C4/Circulation/Circ2.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 3dcd048730..f27d82b181 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -34,6 +34,7 @@ use C4::Context;
 use C4::Stats;
 use C4::Reserves2;
 use C4::Koha;
+use C4::Biblio;
 use C4::Accounts;
 use Date::Manip;
 
@@ -476,6 +477,14 @@ sub transferbook {
 	#actually do the transfer....
 	if ($dotransfer) {
 		dotransfer($iteminformation->{'itemnumber'}, $fbr, $tbr);
+		my $dbh= C4::Context->dbh;
+		my ($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"items.holdingbranch");
+		my $bibid = MARCfind_MARCbibid_from_oldbiblionumber( $dbh, $iteminformation->{'biblionumber'} );
+		my $marcitem = MARCgetitem($dbh, $bibid, $iteminformation->{'itemnumber'});
+		if ($marcitem->field($tagfield)){
+			$marcitem->field($tagfield)->update($tagsubfield=> $tbr);
+			MARCmoditem($dbh,$marcitem,$bibid,$iteminformation->{'itemnumber'});
+		}
 		$messages->{'WasTransfered'} = 1;
 	}
 	return ($dotransfer, $messages, $iteminformation);
-- 
2.39.5