Lines 69-74
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 |
|
72 |
my $OUTPUT; |
80 |
my $OUTPUT; |
73 |
|
81 |
|
74 |
if ($split) { |
82 |
if ($split) { |
75 |
- |
|
|