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