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