[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.56,1.57

[Mike Hansen]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1:/tmp/cvs-serv14568/koha/C4/Circulation

Modified Files:
	Circ2.pm 
Log Message:
Added "noissuescharge" parameter


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -r1.56 -r1.57
*** Circ2.pm	5 May 2003 14:14:28 -0000	1.56
--- Circ2.pm	8 May 2003 12:48:23 -0000	1.57
***************
*** 1134,1139 ****
  	if ($amount > 0) {
  		my %flaginfo;
  		$flaginfo{'message'}= sprintf "Patron owes \$%.02f", $amount;
! 		if ($amount > 5) {
  		$flaginfo{'noissues'} = 1;
  		}
--- 1134,1140 ----
  	if ($amount > 0) {
  		my %flaginfo;
+ 		my $noissuescharge = C4::Context->preference("noissuescharge");
  		$flaginfo{'message'}= sprintf "Patron owes \$%.02f", $amount;
! 		if ($amount > $noissuescharge) {
  		$flaginfo{'noissues'} = 1;
  		}