koha-cvs
[Top][All Lists]
Advanced

[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,




reply via email to

[Prev in Thread] Current Thread [Next in Thread]