Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 28995: Add --added_after filter to writeoff_debts script

Browse source 
This adds, as requested, the `added_after` filter option to
writeoff_debts.

Signed-off-by: Caroline Cyr La Rose <caroline.cyr-la-rose@inlibro.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Martin Renvoize 2021-11-09 10:33:01 +00:00 committed by Tomas Cohen Arazi
parent fcf0ba17b5
commit 0a5f4350bd
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
misc/cronjobs/writeoff_debts.pl
View file

@ -11,18 +11,19 @@ use Koha::DateUtils qw( dt_from_string );
use Koha::Script -cron;
my ( $help, $verbose, @type, $added, $file, $confirm );
my ( $help, $verbose, @type, $before, $after, $file, $confirm );
GetOptions(
'h|help' => \$help,
'v|verbose+' => \$verbose,
't|type:s' => \@type,
'ab|added_before:s' => \$added,
'ab|added_before:s' => \$before,
'aa|added_after:s' => \$after,
'f|file:s' => \$file,
'c|confirm' => \$confirm,
);
@type = split( /,/, join( ',', @type ) );
pod2usage(1) if ( $help || !$confirm && !$verbose || !$file && !@type && !$added );
pod2usage(1) if ( $help || !$confirm && !$verbose || !$file && !@type && !$before && !$after );
my $where = { 'amountoutstanding' => { '>' => 0 } };
my $attr = {};
@ -43,17 +44,26 @@ if (@type) {
$where->{debit_type_code} = \@type;
}
if ($added) {
my $added_before = dt_from_string( $added, 'iso' );
my $dtf = Koha::Database->new->schema->storage->datetime_parser;
$where->{date} = { '<' => $dtf->format_datetime($added_before) };
my $dtf;
if ($before||$after) {
$dtf = Koha::Database->new->schema->storage->datetime_parser;
}
if ($before) {
my $added_before = dt_from_string( $before, 'iso' );
$where->{date}->{'<'} = $dtf->format_datetime($added_before);
}
if ($after) {
my $added_after = dt_from_string( $after, 'iso' );
$where->{date}->{'>'} = $dtf->format_datetime($added_after);
}
my $lines = Koha::Account::Lines->search( $where, $attr );
if ( $verbose ) {
print "Attempting to write off " . $lines->count . " debts";
print " of type " . join(',',@type) if @type;
print " added before " . $added if $added;
print " added before " . $before if $before;
print " from the passed list" if $file;
print "\n";
}