From 00fef22485c4b2a99260da5b1c70ea94fdc08d7e Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Thu, 8 May 2003 12:48:23 +0000
Subject: [PATCH] Added "noissuescharge" parameter

---
 C4/Circulation/Circ2.pm                              |  3 ++-
 koha-tmpl/intranet-tmpl/default/en/circ/returns.tmpl |  4 ++--
 updater/updatedatabase                               | 10 ++++++++++
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 3a4ca3aec6..a37751d86d 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -1133,8 +1133,9 @@ sub patronflags {
 	my $amount = checkaccount($env, $patroninformation->{'borrowernumber'}, $dbh);
 	if ($amount > 0) {
 		my %flaginfo;
+		my $noissuescharge = C4::Context->preference("noissuescharge");
 		$flaginfo{'message'}= sprintf "Patron owes \$%.02f", $amount;
-		if ($amount > 5) {
+		if ($amount > $noissuescharge) {
 		$flaginfo{'noissues'} = 1;
 		}
 		$flags{'CHARGES'} = \%flaginfo;
diff --git a/koha-tmpl/intranet-tmpl/default/en/circ/returns.tmpl b/koha-tmpl/intranet-tmpl/default/en/circ/returns.tmpl
index 770a581d8f..59f0d5dac8 100644
--- a/koha-tmpl/intranet-tmpl/default/en/circ/returns.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/circ/returns.tmpl
@@ -66,7 +66,7 @@ to be picked up by <TMPL_VAR Name="name"> (<a href=/cgi-bin/koha/moremember.pl?b
 				<input type=hidden name=bn-<TMPL_VAR Name="counter"> value=<TMPL_VAR Name="bornum">>
 			</TMPL_LOOP>
 			<input type=hidden name=itemnumber value=<TMPL_VAR Name="itemnumber">>
-			<input type=hidden name=borrowernumber value=<TMPL_VAR Name="borrowernumber">>
+			<input type=hidden name=borrowernumber value=<TMPL_VAR Name="bornum">>
 			<input type=hidden name=resbarcode value=<TMPL_VAR Name="barcode">>
 			<input type=hidden name=resslip value="~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 Date: <TMPL_VAR Name="today">
@@ -167,7 +167,7 @@ Phone: <TMPL_VAR Name="borphone">
 			<TMPL_LOOP Name="flagloop">
 				<tr><td valign=top><TMPL_IF Name="redfont"><font color="red"></TMPL_IF><TMPL_VAR Name="flag"><TMPL_IF Name="redfont"></font></TMPL_IF></td>
 				<TMPL_IF Name="charges">
-					<td bgcolor=<TMPL_VAR Name="color">><b><TMPL_VAR Name="msg"></b><a href=/cgi-bin/koha/pay.pl?bornum=<TMPL_VAR Name="borrowernumber"> onClick="openWindow(this, 'Payment', 480,640)">Payment</a></td></tr>
+					<td bgcolor=<TMPL_VAR Name="color">><b><TMPL_VAR Name="msg"></b><a href=/cgi-bin/koha/pay.pl?bornum=<TMPL_VAR Name="bornum"> onClick="openWindow(this, 'Payment', 480,640)">Payment</a></td></tr>
 				</TMPL_IF>
 				<TMPL_IF Name="waiting">
 					<td bgcolor=<TMPL_VAR Name="color">>
diff --git a/updater/updatedatabase b/updater/updatedatabase
index 6a7447033c..2a6790b770 100755
--- a/updater/updatedatabase
+++ b/updater/updatedatabase
@@ -447,6 +447,13 @@ my %tabledata = (
             explanation         =>
             'maximum number of reserves a member can make '
         },
+        {
+            uniquefieldrequired => 'variable',
+            variable            => 'noissuescharge',
+            value               => '5',
+            explanation         =>
+            'maximum amount withstanding to be able to check out an item '
+        },
         {
             uniquefieldrequired => 'variable',
             variable            => 'KohaAdminEmailAddress',
@@ -771,6 +778,9 @@ $sth->finish;
 exit;
 
 # $Log$
+# Revision 1.46  2003/05/08 12:48:24  wolfpac444
+# Added "noissuescharge" parameter
+#
 # Revision 1.45  2003/05/08 12:26:16  wolfpac444
 # Bug fixes
 #
-- 
2.39.2