From dc5d6b5124efb2feece704c6fd45cb966bd67187 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 1 Jun 2005 15:54:42 +0000
Subject: [PATCH] fixing "warning use of uninitialized value in
 concatenation..."

---
 misc/overduenotices.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/overduenotices.pl b/misc/overduenotices.pl
index 8fdcaa9fb7..a5d339b509 100644
--- a/misc/overduenotices.pl
+++ b/misc/overduenotices.pl
@@ -109,10 +109,10 @@ while (($itemcount,$borrnum,$firstname,$lastname,$address1,$address2,$city,$post
 		$notice =~ s/\<date\>/$date/g;
 
 		$sth2->execute($borrnum);
-		my $titles;
+		my $titles="";
 		my ($title, $author, $barcode);
 		while (($title, $author, $barcode) = $sth2->fetchrow){
-			$titles .= "		$title	$author	$barcode\n";
+			$titles .= "		".($title?$title:"")."	".($author?$author:"")."	".($barcode?$barcode:"")."\n";
 		}
 		$notice =~ s/\<titles\>/$titles/g;
 		$sth2->finish;
@@ -148,7 +148,7 @@ if ($count) {
 
 		$notice .= <ODUES>;
 		if ($nomail) {
-			print "TO => $email\n";
+			print "TO => $email\n" if $email;
 			print "FROM => $from\n";
 			print "SUBJECT => Koha overdue\n";
 			print "MESSAGE => $notice\n";