|
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 |
- |
|
|