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

(-)a/tools/cleanborrowers.pl (-2 / +1 lines)
Lines 188-194 sub _skip_borrowers_with_nonzero_balance { Link Here
188
    my $balance;
188
    my $balance;
189
    @$borrowers = map {
189
    @$borrowers = map {
190
        (undef, undef, $balance) = GetMemberIssuesAndFines( $_->{borrowernumber} );
190
        (undef, undef, $balance) = GetMemberIssuesAndFines( $_->{borrowernumber} );
191
        ($balance != 0) ? (): ($_);
191
        (defined $balance && $balance != 0) ? (): ($_);
192
    } @$borrowers;
192
    } @$borrowers;
193
}
193
}
194
194
195
- 

Return to bug 15023