diff options
| author | tmu <tmu> | 2003-08-01 14:42:27 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2003-08-01 14:42:27 +0000 |
| commit | 5988e8adb4ca1d9bde1ee065dfaf6b6141e2b98b (patch) | |
| tree | afefc1d7d453d844657218e75bc961abe73d01d9 /fml/lib/Mail/Message/ToHTML.pm | |
| parent | 91297cadd17f15da5392d369882494a402301661 (diff) | |
| download | fml8-5988e8adb4ca1d9bde1ee065dfaf6b6141e2b98b.tar.gz fml8-5988e8adb4ca1d9bde1ee065dfaf6b6141e2b98b.tar.bz2 fml8-5988e8adb4ca1d9bde1ee065dfaf6b6141e2b98b.zip | |
reduce warning if missing from or subject at sub _print_li_filename()
Diffstat (limited to 'fml/lib/Mail/Message/ToHTML.pm')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index b51ea89d..d34c4061 100644 --- a/fml/lib/Mail/Message/ToHTML.pm +++ b/fml/lib/Mail/Message/ToHTML.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: ToHTML.pm,v 1.47 2003/07/20 06:45:17 fukachan Exp $ +# $FML: ToHTML.pm,v 1.48 2003/07/21 04:51:34 fukachan Exp $ # package Mail::Message::ToHTML; @@ -17,7 +17,7 @@ my $debug = 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.47 2003/07/20 06:45:17 fukachan Exp $; +my $version = q$FML: ToHTML.pm,v 1.48 2003/07/21 04:51:34 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -1962,8 +1962,8 @@ sub _print_li_filename { my ($self, $wh, $db, $id, $code) = @_; my $filename = $db->get('html_filename', $id); - my $subject = $db->get('subject', $id); - my $who = $db->get('who', $id); + my $subject = $db->get('subject', $id) || "no subject"; + my $who = $db->get('who', $id) || "no sender"; _PRINT_DEBUG("-- print_li_filename id=$id file=$filename"); |