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

(-)a/C4/SIP/ILS/Patron.pm (-1 / +4 lines)
Lines 107-112 sub new { Link Here
107
        items           => [],
107
        items           => [],
108
        hold_items      => $flags->{WAITING}->{itemlist},
108
        hold_items      => $flags->{WAITING}->{itemlist},
109
        overdue_items   => $flags->{ODUES}->{itemlist},
109
        overdue_items   => $flags->{ODUES}->{itemlist},
110
        too_many_overdue => $circ_blocked,
110
        fine_items      => [],
111
        fine_items      => [],
111
        recall_items    => [],
112
        recall_items    => [],
112
        unavail_holds   => [],
113
        unavail_holds   => [],
Lines 121-126 sub new { Link Here
121
    if ( $patron->is_debarred and $patron->debarredcomment ) {
122
    if ( $patron->is_debarred and $patron->debarredcomment ) {
122
        $ilspatron{screen_msg} .= " -- " . $patron->debarredcomment;
123
        $ilspatron{screen_msg} .= " -- " . $patron->debarredcomment;
123
    }
124
    }
125
    if ( $circ_blocked ) {
126
        $ilspatron{screen_msg} .= " -- " . "Patron has overdues";
127
    }
124
    for (qw(EXPIRED CHARGES CREDITS GNA LOST DBARRED NOTES)) {
128
    for (qw(EXPIRED CHARGES CREDITS GNA LOST DBARRED NOTES)) {
125
        ($flags->{$_}) or next;
129
        ($flags->{$_}) or next;
126
        if ($_ ne 'NOTES' and $flags->{$_}->{message}) {
130
        if ($_ ne 'NOTES' and $flags->{$_}->{message}) {
127
- 

Return to bug 24449