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