|
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 |
- |
|
|