From 4ac706ccbe8dad440cd52b61f06966f380ed55a8 Mon Sep 17 00:00:00 2001
From: doxulting <doxulting>
Date: Mon, 24 May 2004 12:16:19 +0000
Subject: [PATCH] attention la base ne contient peut etre pas toutes les
 colonnes (maxissueqty dans issuingrules par exmple)

---
 admin/issuingrules.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/admin/issuingrules.pl b/admin/issuingrules.pl
index b306db23ff..0e27bf58e5 100755
--- a/admin/issuingrules.pl
+++ b/admin/issuingrules.pl
@@ -161,10 +161,16 @@ foreach my $data (@itemtypes) {
 		my $finesvalue;
 		$finesvalue= "$fine,$dat->{'firstremind'},$dat->{'chargeperiod'}" if $fine>0;
 		my $issuingvalue;
-		$issuingvalue = "$issuelength,$maxissueqty" if ($maxissueqty>0);
+		if ($maxissueqty>0) {
+		    $issuingvalue = "$issuelength,$maxissueqty" ;
+		}
+		else {		
+		    $issuingvalue = "$issuelength, 5";
+		    $maxissueqty = 5;
+		}
 		my %row = (finesname=> "F-$branch-$trow3[$i].$$data->{'itemtype'}",
 					finesvalue => $finesvalue,
-					issuingname => "I-$branch-$trow3[$1].$$data->{itemtype}",
+					issuingname => "I-$branch-$trow3[$i].$$data->{itemtype}",
 					issuingvalue => $issuingvalue,
 					toggle => $toggle,
 					);
-- 
2.39.2