[Koha-cvs] koha/C4/Circulation Circ2.pm [rel_2_2]

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Henri-Damien LAURENT <hdl at savannah.gnu.org>	06/01/24 14:57:06

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	BUG Fixing : Synching MARC base and KohaBase when transfering items to a branch

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Circulation/Circ2.pm.diff?only_with_tag=rel_2_2&tr1=1.87.2.11&tr2=1.87.2.12&r1=text&r2=text

Patches:
Index: koha/C4/Circulation/Circ2.pm
diff -u koha/C4/Circulation/Circ2.pm:1.87.2.11 koha/C4/Circulation/Circ2.pm:1.87.2.12
--- koha/C4/Circulation/Circ2.pm:1.87.2.11	Fri Sep 23 09:31:15 2005
+++ koha/C4/Circulation/Circ2.pm	Tue Jan 24 14:57:06 2006
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.11 2005/09/23 09:31:15 tipaul Exp $
+# $Id: Circ2.pm,v 1.87.2.12 2006/01/24 14:57:06 hdl Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -34,6 +34,7 @@
 use C4::Stats;
 use C4::Reserves2;
 use C4::Koha;
+use C4::Biblio;
 use C4::Accounts;
 use Date::Manip;
 
@@ -476,6 +477,14 @@
 	#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);