|
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 |
my $OUTPUT; |
| 73 |
|
| 72 |
if ($split) { |
74 |
if ($split) { |
| 73 |
my %messages_by_branch; |
75 |
my %messages_by_branch; |
| 74 |
foreach my $message (@all_messages) { |
76 |
foreach my $message (@all_messages) { |
|
Lines 77-83
if ($split) {
Link Here
|
| 77 |
|
79 |
|
| 78 |
foreach my $branchcode ( keys %messages_by_branch ) { |
80 |
foreach my $branchcode ( keys %messages_by_branch ) { |
| 79 |
my @messages = @{ $messages_by_branch{$branchcode} }; |
81 |
my @messages = @{ $messages_by_branch{$branchcode} }; |
| 80 |
|
|
|
| 81 |
open $OUTPUT, '>', |
82 |
open $OUTPUT, '>', |
| 82 |
File::Spec->catdir( $output_directory, |
83 |
File::Spec->catdir( $output_directory, |
| 83 |
"holdnotices-" . $today->output('iso') . "-$branchcode.html" ); |
84 |
"holdnotices-" . $today->output('iso') . "-$branchcode.html" ); |
| 84 |
- |
|
|