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

[Robert Lyon]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Robert Lyon <bob_lyon>	06/06/07 01:56:57

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	Merging Katipo changes...
	
	Adding the allowance for making issuing impossible after a patron has
	accumulated a certain level of debt

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&r1=1.106&r2=1.107

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -b -r1.106 -r1.107
--- Circ2.pm	7 Jun 2006 01:38:14 -0000	1.106
+++ Circ2.pm	7 Jun 2006 01:56:57 -0000	1.107
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.106 2006/06/07 01:38:14 bob_lyon Exp $
+# $Id: Circ2.pm,v 1.107 2006/06/07 01:56:57 bob_lyon Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -765,7 +765,7 @@
 
 
 sub canbookbeissued {
-	my ($env,$borrower,$barcode,$year,$month,$day) = @_;
+	my ($env,$borrower,$barcode,$year,$month,$day,$inprocess) = @_;
 	my %needsconfirmation; # filled with problems that needs confirmations
 	my %issuingimpossible; # filled with problems that causes the issue to be IMPOSSIBLE
 	my $iteminformation = getiteminformation($env, 0, $barcode);
@@ -797,10 +797,18 @@
 
 # DEBTS
 	my $amount = checkaccount($env,$borrower->{'borrowernumber'}, $dbh,$duedate);
+        if($C4::Context->preference("IssuingInProcess")){
+	    my $amountlimit = $C4::Context->preference("maxoutstanding");
+	    if ($amount > $amountlimit && !$inprocess) {
+		$issuingimpossible{DEBT} = sprintf("%.2f",$amount);
+	    } elsif ($amount <= $amountlimit && !$inprocess) {
+		$needsconfirmation{DEBT} = sprintf("%.2f",$amount);
+	    }
+        } else {
 	if ($amount >0) {
 		$needsconfirmation{DEBT} = $amount;
 	}
-
+	}
 
 #
 # JB34 CHECKS IF BORROWERS DONT HAVE ISSUE TOO MANY BOOKS