|
Lines 69-82
my $today = C4::Dates->new();
Link Here
|
| 69 |
my @all_messages = @{ GetPrintMessages() }; |
69 |
my @all_messages = @{ GetPrintMessages() }; |
| 70 |
exit unless (@all_messages); |
70 |
exit unless (@all_messages); |
| 71 |
|
71 |
|
| 72 |
## carriage return replaced by <br/> as output is html |
|
|
| 73 |
foreach my $message (@all_messages) { |
| 74 |
local $_ = $message->{'content'}; |
| 75 |
s/\n/<br \/>/g; |
| 76 |
s/\r//g; |
| 77 |
$message->{'content'} = $_; |
| 78 |
} |
| 79 |
|
| 80 |
my $OUTPUT; |
72 |
my $OUTPUT; |
| 81 |
|
73 |
|
| 82 |
if ($split) { |
74 |
if ($split) { |
| 83 |
- |
|
|