View | Details | Raw Unified | Return to bug 8063
Collapse All | Expand All

(-)a/misc/cronjobs/gather_print_notices.pl (-2 / +2 lines)
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
- 

Return to bug 8063