[Koha-cvs] CVS: koha/admin issuingrules.pl,1.1,1.2

[doXulting]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31780/admin

Modified Files:
	issuingrules.pl 
Log Message:
attention la base ne contient peut etre pas toutes les colonnes (maxissueqty dans issuingrules par exmple)

Index: issuingrules.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/issuingrules.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** issuingrules.pl	6 May 2004 14:51:22 -0000	1.1
--- issuingrules.pl	24 May 2004 12:16:19 -0000	1.2
***************
*** 162,169 ****
  		$finesvalue= "$fine,$dat->{'firstremind'},$dat->{'chargeperiod'}" if $fine>0;
  		my $issuingvalue;
! 		$issuingvalue = "$issuelength,$maxissueqty" if ($maxissueqty>0);
  		my %row = (finesname=> "F-$branch-$trow3[$i].$$data->{'itemtype'}",
  					finesvalue => $finesvalue,
! 					issuingname => "I-$branch-$trow3[$1].$$data->{itemtype}",
  					issuingvalue => $issuingvalue,
  					toggle => $toggle,
--- 162,175 ----
  		$finesvalue= "$fine,$dat->{'firstremind'},$dat->{'chargeperiod'}" if $fine>0;
  		my $issuingvalue;
! 		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[$i].$$data->{itemtype}",
  					issuingvalue => $issuingvalue,
  					toggle => $toggle,