[Koha-cvs] CVS: koha/misc/notifys fines.pl,1.1,1.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc/notifys
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6231/misc/notifys

Modified Files:
        fines.pl 
Log Message:
see mail on koha-devel : code cleaning on Search.pm + normalizing API + use of 
biblionumber everywhere (instead of bn, biblio, ...)

Index: fines.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/notifys/fines.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** fines.pl    5 Mar 2004 21:22:15 -0000       1.1
--- fines.pl    22 Sep 2005 10:01:46 -0000      1.2
***************
*** 5,9 ****
  
  use C4::Database;
! use C4::Search;
  use C4::Circulation::Circ2;
  use C4::Circulation::Fines;
--- 5,9 ----
  
  use C4::Database;
! use C4::Members;
  use C4::Circulation::Circ2;
  use C4::Circulation::Fines;
***************
*** 91,95 ****
  
                                        my 
$accountno=C4::Circulation::Circ2::getnextacctno($env,$overdue->{'borrowernumber'},$dbh);
!                                               my 
$item=itemnodata($env,$dbh,$overdue->{'itemnumber'});
                                        if ($item->{'itemlost'} ne '1' && 
$item->{'itemlost'} ne '2' ){
                                                $item->{'title'}=~ s/\'/\\'/g;
--- 91,95 ----
  
                                        my 
$accountno=C4::Circulation::Circ2::getnextacctno($env,$overdue->{'borrowernumber'},$dbh);
!                                               my 
$item=getbibliofromitemnumber($env,$dbh,$overdue->{'itemnumber'});
                                        if ($item->{'itemlost'} ne '1' && 
$item->{'itemlost'} ne '2' ){
                                                $item->{'title'}=~ s/\'/\\'/g;
***************
*** 266,270 ****
                                                        my $env;        #FIXME 
what is this varible for?
                                                      
!                                                       if ( my $item = 
itemnodata($env, $dbh, $over->{'itemnumber'})){
                                                            print "getting fine 
($over->{'itemnumber'} $overdue->{'borrowernumber'} 
$over->{'borrowernumber'}\n";
                                                        my $fine = 
GetFine($over->{'itemnumber'},$overdue->{'borrowernumber'}); 
--- 266,270 ----
                                                        my $env;        #FIXME 
what is this varible for?
                                                      
!                                                       if ( my $item = 
getbibliofromitemnumber($env, $dbh, $over->{'itemnumber'})){
                                                            print "getting fine 
($over->{'itemnumber'} $overdue->{'borrowernumber'} 
$over->{'borrowernumber'}\n";
                                                        my $fine = 
GetFine($over->{'itemnumber'},$overdue->{'borrowernumber'});