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