From 4ac706ccbe8dad440cd52b61f06966f380ed55a8 Mon Sep 17 00:00:00 2001 From: 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.5