[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;
                }