[Koha-cvs] koha/C4/Circulation Circ2.pm [R_2-2-7-1]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		R_2-2-7-1
Changes by:	Antoine Farnault <toins>	07/02/12 10:24:09

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	Commiting BUG FIX for 2.2.7.1.
	
	(Bug 1201 fixed by changing transferbook.
	 Books will no longer be returned by transferbook. Thus, breaking the loop. Transfer book should be used when transfering books from branch to branch. if a book is returned at a branch, transfer the book there. if a book is transfered to a branch, while its on loan, set holding to the new branch. Useful if a borrower moves branches, while borrowing books.)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=R_2-2-7-1&r1=1.87.2.16.2.1&r2=1.87.2.16.2.2

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.87.2.16.2.1
retrieving revision 1.87.2.16.2.2
diff -u -b -r1.87.2.16.2.1 -r1.87.2.16.2.2
--- Circ2.pm	12 Feb 2007 10:21:27 -0000	1.87.2.16.2.1
+++ Circ2.pm	12 Feb 2007 10:24:08 -0000	1.87.2.16.2.2
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.16.2.1 2007/02/12 10:21:27 toins Exp $
+# $Id: Circ2.pm,v 1.87.2.16.2.2 2007/02/12 10:24:08 toins Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -466,11 +466,14 @@
 		$dotransfer = 0;
 	}
 	# check if it is still issued to someone, return it...
-	my ($currentborrower) = currentborrower($iteminformation->{'itemnumber'});
-	if ($currentborrower) {
-		returnbook($barcode, $fbr);
-		$messages->{'WasReturned'} = $currentborrower;
-	}
+    # this sub to be used to transfer books between branches while the book is
+    # on loan.
+#	my ($currentborrower) = currentborrower($iteminformation->{'itemnumber'});
+#	if ($currentborrower) {
+#		returnbook($barcode, $fbr);
+#		$messages->{'WasReturned'} = $currentborrower;
+#	}
+
 	# find reserves.....
 	# FIXME - Don't call &CheckReserves unless $ignoreRs is true.
 	# That'll save a database query.