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

(-)a/misc/cronjobs/writeoff_debts.pl (-1 / +7 lines)
Lines 6-16 use feature 'say'; Link Here
6
use Getopt::Long qw( GetOptions );
6
use Getopt::Long qw( GetOptions );
7
use Pod::Usage   qw( pod2usage );
7
use Pod::Usage   qw( pod2usage );
8
8
9
use C4::Log qw( cronlogaction );
10
9
use Koha::Account::Lines;
11
use Koha::Account::Lines;
10
use Koha::DateUtils qw( dt_from_string );
12
use Koha::DateUtils qw( dt_from_string );
11
13
12
use Koha::Script -cron;
14
use Koha::Script -cron;
13
15
16
my $command_line_options = join( " ", @ARGV );
17
cronlogaction( { info => $command_line_options } );
18
14
my ( $help, $verbose, @type, $before, $after, @category_code, $file, $confirm );
19
my ( $help, $verbose, @type, $before, $after, @category_code, $file, $confirm );
15
GetOptions(
20
GetOptions(
16
    'h|help'                           => \$help,
21
    'h|help'                           => \$help,
Lines 137-142 while ( my $line = $lines->next ) { Link Here
137
    }
142
    }
138
}
143
}
139
144
145
cronlogaction( { action => 'End', info => "COMPLETED" } );
146
140
exit(0);
147
exit(0);
141
148
142
__END__
149
__END__
143
- 

Return to bug 37920