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