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