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

(-)a/C4/SIP/ILS/Patron.pm (-2 / +1 lines)
Lines 110-116 sub new { Link Here
110
    );
110
    );
111
    }
111
    }
112
    $debug and warn "patron fines: $ilspatron{fines} ... amountoutstanding: $kp->{amountoutstanding} ... CHARGES->amount: $flags->{CHARGES}->{amount}";
112
    $debug and warn "patron fines: $ilspatron{fines} ... amountoutstanding: $kp->{amountoutstanding} ... CHARGES->amount: $flags->{CHARGES}->{amount}";
113
	for (qw(EXPIRED CHARGES CREDITS GNA LOST DEBARRED NOTES)) {
113
	for (qw(EXPIRED CHARGES CREDITS GNA LOST DBARRED NOTES)) {
114
		($flags->{$_}) or next;
114
		($flags->{$_}) or next;
115
        if ($_ ne 'NOTES' and $flags->{$_}->{message}) {
115
        if ($_ ne 'NOTES' and $flags->{$_}->{message}) {
116
            $ilspatron{screen_msg} .= " -- " . $flags->{$_}->{message};  # show all but internal NOTES
116
            $ilspatron{screen_msg} .= " -- " . $flags->{$_}->{message};  # show all but internal NOTES
117
- 

Return to bug 7396