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

(-)a/misc/cronjobs/reconcile_balances.pl (-1 / +122 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# Copyright 2018 Theke Solutions
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20
=head1 NAME
21
22
reconcile_balances.pl - cron script to reconcile patron's balances
23
24
=head1 SYNOPSIS
25
26
./reconcile_balances.pl
27
28
or, in crontab:
29
0 1 * * * reconcile_balances.pl
30
31
=head1 DESCRIPTION
32
33
This script loops through patrons with outstanding credits and proceeds
34
to reconcile their balances.
35
36
=head1 OPTIONS
37
38
=over 8
39
40
=item B<--help>
41
42
Prints a brief help message and exits.
43
44
=item B<--verbose>
45
46
Makes the process print information about the taken actions.
47
48
=back
49
50
=cut
51
52
use Modern::Perl;
53
54
use Getopt::Long;
55
use Pod::Usage;
56
use Try::Tiny;
57
58
BEGIN {
59
    # find Koha's Perl modules
60
    # test carefully before changing this
61
    use FindBin;
62
    eval { require "$FindBin::Bin/../kohalib.pl" };
63
}
64
65
use C4::Log;
66
67
use Koha::Account::Lines;
68
use Koha::Patrons;
69
70
my $help    = 0;
71
my $verbose = 0;
72
73
GetOptions(
74
    'help'    => \$help,
75
    'verbose' => \$verbose
76
) or pod2usage(2);
77
78
pod2usage(1) if $help;
79
80
cronlogaction();
81
82
my @patron_ids = map { $_->borrowernumber } Koha::Account::Lines->search(
83
        {
84
            amountoutstanding => { '<' => 0 }
85
        },
86
        {
87
            columns  => [ qw/borrowernumber/ ],
88
            distinct => 1,
89
        }
90
    );
91
92
my $patrons = Koha::Patrons->search({ borrowernumber => { -in => \@patron_ids } });
93
94
while (my $patron = $patrons->next) {
95
96
    my $account = $patron->account;
97
    my $total_outstanding_credit = $account->outstanding_credits->total_outstanding;
98
    my $total_outstanding_debit  = $account->outstanding_debits->total_outstanding;
99
100
    if ( $total_outstanding_credit < 0
101
         and $total_outstanding_debit > 0) {
102
103
        try {
104
105
            $account->reconcile_balance;
106
107
            print $patron->id . ": credit: $total_outstanding_credit " .
108
                                  "debit: $total_outstanding_debit " .
109
                                  "=> outstanding " .
110
                                  "credit: " . $account->outstanding_credits->total_outstanding .
111
                                 " debit: " .  $account->outstanding_debits->total_outstanding . "\n"
112
                if $verbose;
113
        }
114
        catch {
115
            print "Problem with patron " . $patron->borrowernumber . ": $_";
116
        };
117
    }
118
}
119
120
1;
121
122
__END__

Return to bug 21915