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

(-)a/C4/SIP/ILS/Patron.pm (-2 / +1 lines)
Lines 125-131 sub new { Link Here
125
    if ( $circ_blocked ) {
125
    if ( $circ_blocked ) {
126
        $ilspatron{screen_msg} .= " -- " . "Patron has overdues";
126
        $ilspatron{screen_msg} .= " -- " . "Patron has overdues";
127
    }
127
    }
128
    for (qw(EXPIRED CHARGES CREDITS GNA LOST DBARRED NOTES)) {
128
    for (qw(EXPIRED CHARGES CREDITS GNA LOST NOTES)) {
129
        ($flags->{$_}) or next;
129
        ($flags->{$_}) or next;
130
        if ($_ ne 'NOTES' and $flags->{$_}->{message}) {
130
        if ($_ ne 'NOTES' and $flags->{$_}->{message}) {
131
            $ilspatron{screen_msg} .= " -- " . $flags->{$_}->{message};  # show all but internal NOTES
131
            $ilspatron{screen_msg} .= " -- " . $flags->{$_}->{message};  # show all but internal NOTES
132
- 

Return to bug 24250