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

[Kyle Hall]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Kyle Hall <kylemhall>	07/03/23 13:58:29

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	Renewals from circulation.pl were writing 2 renewal lines to stats. Commented out the UpdateStats for renewals in issuebook(). UpdateStats is already executed in renewbook(). Also updated renewbook()'s UpdateStats call to include the borrowernumber in the stats line.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.87.2.14.2.17&r2=1.87.2.14.2.18

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.87.2.14.2.17
retrieving revision 1.87.2.14.2.18
diff -u -b -r1.87.2.14.2.17 -r1.87.2.14.2.18
--- Circ2.pm	16 Mar 2007 15:50:09 -0000	1.87.2.14.2.17
+++ Circ2.pm	23 Mar 2007 13:58:29 -0000	1.87.2.14.2.18
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.14.2.17 2007/03/16 15:50:09 kylemhall Exp $
+# $Id: Circ2.pm,v 1.87.2.14.2.18 2007/03/23 13:58:29 kylemhall Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -862,7 +862,7 @@
 			createcharge($env, $dbh, $iteminformation->{'itemnumber'}, $borrower->{'borrowernumber'}, $charge);
 			$iteminformation->{'charge'} = $charge;
 		}
-		&UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$borrower->{'borrowernumber'});
+		#&UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$borrower->{'borrowernumber'});
 		renewbook($env, $borrower->{'borrowernumber'}, $iteminformation->{'itemnumber'});
 	} else {
 #
@@ -1706,7 +1706,7 @@
 
 =head2 renewbook
 
-  &renewbook($env, $borrowernumber, $itemnumber, $datedue);
+  &renewbook($env, $borrowernumber, $itemnumber, $datedue, $branch);
 
 Renews a loan.
 
@@ -1760,7 +1760,7 @@
 	$sth->finish;
 
 	# Log the renewal
-	UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno);
+	UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno,'',$bornum);
 
 	# Charge a new rental fee, if applicable?
 	my ($charge,$type)=calc_charges($env, $itemno, $bornum);