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

(-)a/misc/cronjobs/fines.pl (-7 / +9 lines)
Lines 60-66 calculated but not applied. Link Here
60
60
61
This script has the following parameters :
61
This script has the following parameters :
62
    -h --help: this message
62
    -h --help: this message
63
    -l --log: log the output to a file
63
    -l --log: log the output to a file (optional if the -o parameter is given)
64
    -o --out:  ouput directory for logs (defaults to env or /tmp if !exist)
64
    -o --out:  ouput directory for logs (defaults to env or /tmp if !exist)
65
    -v --verbose
65
    -v --verbose
66
66
Lines 82-91 my $delim = "\t"; # ? C4::Context->preference('delimiter') || "\t"; Link Here
82
82
83
my %is_holiday;
83
my %is_holiday;
84
my $today = DateTime->now( time_zone => C4::Context->tz() );
84
my $today = DateTime->now( time_zone => C4::Context->tz() );
85
my $filename = get_filename($output_dir);
85
my $filename;
86
if ($log or $output_dir) {
87
    $filename = get_filename($output_dir);
88
}
86
89
87
my $fh;
90
my $fh;
88
if ($log) {
91
if ($filename) {
89
    open $fh, '>>', $filename or croak "Cannot write file $filename: $!";
92
    open $fh, '>>', $filename or croak "Cannot write file $filename: $!";
90
    print {$fh} join $delim, ( @borrower_fields, @item_fields, @other_fields );
93
    print {$fh} join $delim, ( @borrower_fields, @item_fields, @other_fields );
91
    print {$fh} "\n";
94
    print {$fh} "\n";
Lines 131-137 for my $overdue ( @{$overdues} ) { Link Here
131
            );
134
            );
132
        }
135
        }
133
    }
136
    }
134
    if ($log) {
137
    if ($filename) {
135
        my @cells;
138
        my @cells;
136
        push @cells,
139
        push @cells,
137
          map { defined $borrower->{$_} ? $borrower->{$_} : q{} }
140
          map { defined $borrower->{$_} ? $borrower->{$_} : q{} }
Lines 141-147 for my $overdue ( @{$overdues} ) { Link Here
141
        say {$fh} join $delim, @cells;
144
        say {$fh} join $delim, @cells;
142
    }
145
    }
143
}
146
}
144
if ($log){
147
if ($filename){
145
    close $fh;
148
    close $fh;
146
}
149
}
147
150
Lines 150-156 if ($verbose) { Link Here
150
    print <<"EOM";
153
    print <<"EOM";
151
Fines assessment -- $today
154
Fines assessment -- $today
152
EOM
155
EOM
153
    if ($log) {
156
    if ($filename) {
154
        say "Saved to $filename";
157
        say "Saved to $filename";
155
    }
158
    }
156
    print <<"EOM";
159
    print <<"EOM";
157
- 

Return to bug 9656