[Koha-cvs] CVS: koha/misc overduenotices.pl,1.1.4.3,1.1.4.4

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	overduenotices.pl 
Log Message:
fixing "warning use of uninitialized value in concatenation..."

Index: overduenotices.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/overduenotices.pl,v
retrieving revision 1.1.4.3
retrieving revision 1.1.4.4
diff -C2 -r1.1.4.3 -r1.1.4.4
*** overduenotices.pl	1 Jun 2005 14:12:10 -0000	1.1.4.3
--- overduenotices.pl	1 Jun 2005 15:54:42 -0000	1.1.4.4
***************
*** 110,117 ****
  
  		$sth2->execute($borrnum);
! 		my $titles;
  		my ($title, $author, $barcode);
  		while (($title, $author, $barcode) = $sth2->fetchrow){
! 			$titles .= "		$title	$author	$barcode\n";
  		}
  		$notice =~ s/\<titles\>/$titles/g;
--- 110,117 ----
  
  		$sth2->execute($borrnum);
! 		my $titles="";
  		my ($title, $author, $barcode);
  		while (($title, $author, $barcode) = $sth2->fetchrow){
! 			$titles .= "		".($title?$title:"")."	".($author?$author:"")."	".($barcode?$barcode:"")."\n";
  		}
  		$notice =~ s/\<titles\>/$titles/g;
***************
*** 149,153 ****
  		$notice .= <ODUES>;
  		if ($nomail) {
! 			print "TO => $email\n";
  			print "FROM => $from\n";
  			print "SUBJECT => Koha overdue\n";
--- 149,153 ----
  		$notice .= <ODUES>;
  		if ($nomail) {
! 			print "TO => $email\n" if $email;
  			print "FROM => $from\n";
  			print "SUBJECT => Koha overdue\n";