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

(-)a/C4/SIP/ILS/Patron.pm (-1 / +12 lines)
Lines 209-215 my %fields = ( Link Here
209
    too_many_overdue        => 0,   # for patron_status[6]
209
    too_many_overdue        => 0,   # for patron_status[6]
210
    too_many_renewal        => 0,   # for patron_status[7]
210
    too_many_renewal        => 0,   # for patron_status[7]
211
    too_many_claim_return   => 0,   # for patron_status[8]
211
    too_many_claim_return   => 0,   # for patron_status[8]
212
    too_many_lost           => 0,   # for patron_status[9]
213
#   excessive_fines         => 0,   # for patron_status[10]
212
#   excessive_fines         => 0,   # for patron_status[10]
214
#   excessive_fees          => 0,   # for patron_status[11]
213
#   excessive_fees          => 0,   # for patron_status[11]
215
    recall_overdue          => 0,   # for patron_status[12]
214
    recall_overdue          => 0,   # for patron_status[12]
Lines 287-292 sub check_password { Link Here
287
}
286
}
288
287
289
# A few special cases, not in AUTOLOADed %fields
288
# A few special cases, not in AUTOLOADed %fields
289
290
sub too_many_lost {
291
    my ( $self, $server ) = @_;
292
    my $too_many_lost = 0;
293
    if( $server && $server->{account} && ( my $lost_block_checkout = $server->{account}->{lost_block_checkout} )) {
294
        my $lost_block_checkout_value = $server->{account}->{lost_block_checkout_value} // 1;
295
        my $lost_checkouts = Koha::Checkouts->search({ borrowernumber => $self->borrowernumber, 'itemlost' => { '>=', $lost_block_checkout_value } }, { join => 'item'} )->count;
296
        $too_many_lost = $lost_checkouts >= $lost_block_checkout;
297
    }
298
    return $too_many_lost;
299
}
300
290
sub fee_amount {
301
sub fee_amount {
291
    my $self = shift;
302
    my $self = shift;
292
    if ( $self->{fines} ) {
303
    if ( $self->{fines} ) {
(-)a/C4/SIP/Sip/MsgType.pm (-9 / +1 lines)
Lines 1717-1729 sub patron_status_string { Link Here
1717
1717
1718
    my $patron_status;
1718
    my $patron_status;
1719
1719
1720
    my $too_many_lost = 0;
1721
    if ( my $lost_block_checkout = $server->{account}->{lost_block_checkout} ) {
1722
        my $lost_block_checkout_value = $server->{account}->{lost_block_checkout_value} // 1;
1723
        my $lost_checkouts = Koha::Checkouts->search({ borrowernumber => $patron->borrowernumber, 'itemlost' => { '>=', $lost_block_checkout_value } }, { join => 'item'} )->count;
1724
        $too_many_lost = $lost_checkouts >= $lost_block_checkout;
1725
    }
1726
1727
    siplog( "LOG_DEBUG", "patron_status_string: %s charge_ok: %s", $patron->id, $patron->charge_ok );
1720
    siplog( "LOG_DEBUG", "patron_status_string: %s charge_ok: %s", $patron->id, $patron->charge_ok );
1728
    $patron_status = sprintf(
1721
    $patron_status = sprintf(
1729
        '%s%s%s%s%s%s%s%s%s%s%s%s%s%s',
1722
        '%s%s%s%s%s%s%s%s%s%s%s%s%s%s',
Lines 1736-1742 sub patron_status_string { Link Here
1736
        $server->{account}->{overdues_block_checkout} ? boolspace( $patron->too_many_overdue ) : q{ },
1729
        $server->{account}->{overdues_block_checkout} ? boolspace( $patron->too_many_overdue ) : q{ },
1737
        boolspace( $patron->too_many_renewal ),
1730
        boolspace( $patron->too_many_renewal ),
1738
        boolspace( $patron->too_many_claim_return ),
1731
        boolspace( $patron->too_many_claim_return ),
1739
        boolspace( $too_many_lost ),
1732
        boolspace( $patron->too_many_lost( $server ) ),
1740
        boolspace( $patron->excessive_fines ),
1733
        boolspace( $patron->excessive_fines ),
1741
        boolspace( $patron->excessive_fees ),
1734
        boolspace( $patron->excessive_fees ),
1742
        boolspace( $patron->recall_overdue ),
1735
        boolspace( $patron->recall_overdue ),
1743
- 

Return to bug 32684