Lines 89-119
my @patron_ids = map { $_->borrowernumber } Koha::Account::Lines->search(
Link Here
|
89 |
} |
89 |
} |
90 |
); |
90 |
); |
91 |
|
91 |
|
92 |
my $patrons = Koha::Patrons->search({ borrowernumber => { -in => \@patron_ids } }); |
92 |
if ( scalar @patron_ids ) { |
93 |
|
93 |
|
94 |
while (my $patron = $patrons->next) { |
94 |
my $patrons = Koha::Patrons->search({ borrowernumber => { -in => \@patron_ids } }); |
95 |
|
95 |
|
96 |
my $account = $patron->account; |
96 |
while (my $patron = $patrons->next) { |
97 |
my $total_outstanding_credit = $account->outstanding_credits->total_outstanding; |
|
|
98 |
my $total_outstanding_debit = $account->outstanding_debits->total_outstanding; |
99 |
|
97 |
|
100 |
if ( $total_outstanding_credit < 0 |
98 |
my $account = $patron->account; |
101 |
and $total_outstanding_debit > 0) { |
99 |
my $total_outstanding_credit = $account->outstanding_credits->total_outstanding; |
|
|
100 |
my $total_outstanding_debit = $account->outstanding_debits->total_outstanding; |
102 |
|
101 |
|
103 |
try { |
102 |
if ( $total_outstanding_credit < 0 |
|
|
103 |
and $total_outstanding_debit > 0) { |
104 |
|
104 |
|
105 |
$account->reconcile_balance; |
105 |
try { |
106 |
|
106 |
|
107 |
print $patron->id . ": credit: $total_outstanding_credit " . |
107 |
$account->reconcile_balance; |
108 |
"debit: $total_outstanding_debit " . |
108 |
|
109 |
"=> outstanding " . |
109 |
print $patron->id . ": credit: $total_outstanding_credit " . |
110 |
"credit: " . $account->outstanding_credits->total_outstanding . |
110 |
"debit: $total_outstanding_debit " . |
111 |
" debit: " . $account->outstanding_debits->total_outstanding . "\n" |
111 |
"=> outstanding " . |
112 |
if $verbose; |
112 |
"credit: " . $account->outstanding_credits->total_outstanding . |
|
|
113 |
" debit: " . $account->outstanding_debits->total_outstanding . "\n" |
114 |
if $verbose; |
115 |
} |
116 |
catch { |
117 |
print "Problem with patron " . $patron->borrowernumber . ": $_"; |
118 |
}; |
113 |
} |
119 |
} |
114 |
catch { |
|
|
115 |
print "Problem with patron " . $patron->borrowernumber . ": $_"; |
116 |
}; |
117 |
} |
120 |
} |
118 |
} |
121 |
} |
119 |
|
122 |
|
120 |
- |
|
|