[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'});