Prevent multiple warnings per notice filling cron logs.
authorHenri-Damien LAURENT <henridamien@koha-fr.org>
Tue, 20 Jan 2009 18:46:43 +0000 (19:46 +0100)
committerHenri-Damien LAURENT <henridamien@koha-fr.org>
Tue, 27 Jan 2009 11:19:45 +0000 (12:19 +0100)
If a value being substituted in was NULL, then warnings like this
would be emailed to the crontab owner (or MAILTO):

Use of uninitialized value in substitution (s///) at /home/user/kohaclone/C4/Letters.pm line 508.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Conflicts:

C4/Letters.pm

C4/Letters.pm

index 35dc564..9f8a943 100644 (file)
@@ -497,9 +497,7 @@ sub parseletter {
     $sth->execute;
     while ( ( my $field ) = $sth->fetchrow_array ) {
         my $replacefield = "<<$table.$field>>";
-        my $replacedby   = $values->{$field};
-
-        #              warn "REPLACE $replacefield by $replacedby";
+        my $replacedby   = $values->{$field} || '';
         $letter->{title}   =~ s/$replacefield/$replacedby/g;
         $letter->{content} =~ s/$replacefield/$replacedby/g;
     }