gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixing "warning use of uninitialized value in concatenation..."

This commit is contained in:
tipaul 2005-06-01 15:54:42 +00:00
parent fcbde5bd03
commit dc5d6b5124
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
misc/overduenotices.pl
View File

@ -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";