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

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

Return to bug 24250