[Koha-cvs] koha/circ circulation.pl [rel_2_2]

Ryan Higgins rch at liblime.com
Tue May 1 17:21:07 CEST 2007


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Ryan Higgins <rych>	07/05/01 15:21:07

Modified files:
	circ           : circulation.pl 

Log message:
	get overdue, issues _after_ issuing.  otherwise issuecount is wrong.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.81.2.22&r2=1.81.2.23

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.22
retrieving revision 1.81.2.23
diff -u -b -r1.81.2.22 -r1.81.2.23
--- circulation.pl	28 Apr 2007 20:25:01 -0000	1.81.2.22
+++ circulation.pl	1 May 2007 15:21:07 -0000	1.81.2.23
@@ -133,7 +133,6 @@
 my $borrower;
 if ($borrowernumber) {
 	$borrower = getpatroninformation(\%env,$borrowernumber,0);
-	my ($od,$issue,$fines)=borrdata2(\%env,$borrowernumber);
 	#warn $borrower->{'expiry'};
  	my $warningdate = DateCalc($borrower->{'expiry'},"- ".C4::Context->preference('NotifyBorrowerDeparture')."  days");
 	my $offset = '+ '.$borrower->{'enrolmentperiod'}.' years';
@@ -145,9 +144,6 @@
 		$template->param(warndeparture=>$warning,
 				renewaldate=>$renewaldate);
 	}
-	$template->param(overduecount => $od,
-							issuecount => $issue,
-							finetotal => $fines);
 }
 
 
@@ -189,6 +185,10 @@
 # reload the borrower info for the sake of reseting the flags.....
 if ($borrowernumber) {
 	$borrower = getpatroninformation(\%env,$borrowernumber,0);
+	my ($od,$issue,$fines)=borrdata2(\%env,$borrowernumber);
+	$template->param(overduecount => $od,
+							issuecount => $issue,
+							finetotal => $fines);
 }
 
 
@@ -338,7 +338,6 @@
 	);
 }
 
-
 if ($branchcookie) {
     $cookie=[$cookie, $branchcookie, $printercookie];
 }





More information about the Koha-cvs mailing list