Lines 106-117
$ods_filenames = print_notices({
Link Here
|
106 |
}) if $ods; |
106 |
}) if $ods; |
107 |
|
107 |
|
108 |
if ( $html ) { |
108 |
if ( $html ) { |
109 |
## carriage return replaced by <br/> as output is html |
109 |
## Wrap non-html based notice in <pre> to retain formatting |
110 |
foreach my $message (@all_messages) { |
110 |
foreach my $message (@all_messages) { |
111 |
local $_ = $message->{'content'}; |
111 |
if ( $message->{'content_type'} !~ m/html/io ) { |
112 |
s/^\s*\n/<br \/>/gm; |
112 |
$message->{'content'} = '<pre>'.$message->{'content'}.'</pre>'; |
113 |
s/\r//g; |
113 |
} |
114 |
$message->{'content'} = $_; |
|
|
115 |
} |
114 |
} |
116 |
|
115 |
|
117 |
$html_filenames = print_notices({ |
116 |
$html_filenames = print_notices({ |
118 |
- |
|
|