[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin issuingrules.pl,1.1,1.2
From: |
doXulting |
Subject: |
[Koha-cvs] CVS: koha/admin issuingrules.pl,1.1,1.2 |
Date: |
Mon, 24 May 2004 05:16:22 -0700 |
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin issuingrules.pl,1.1,1.2,
doXulting <=