|
Lines 107-112
sub new {
Link Here
|
| 107 |
items => [], |
107 |
items => [], |
| 108 |
hold_items => $flags->{WAITING}->{itemlist}, |
108 |
hold_items => $flags->{WAITING}->{itemlist}, |
| 109 |
overdue_items => $flags->{ODUES}->{itemlist}, |
109 |
overdue_items => $flags->{ODUES}->{itemlist}, |
|
|
110 |
too_many_overdue => $circ_blocked, |
| 110 |
fine_items => [], |
111 |
fine_items => [], |
| 111 |
recall_items => [], |
112 |
recall_items => [], |
| 112 |
unavail_holds => [], |
113 |
unavail_holds => [], |
|
Lines 121-126
sub new {
Link Here
|
| 121 |
if ( $patron->is_debarred and $patron->debarredcomment ) { |
122 |
if ( $patron->is_debarred and $patron->debarredcomment ) { |
| 122 |
$ilspatron{screen_msg} .= " -- " . $patron->debarredcomment; |
123 |
$ilspatron{screen_msg} .= " -- " . $patron->debarredcomment; |
| 123 |
} |
124 |
} |
|
|
125 |
if ( $circ_blocked ) { |
| 126 |
$ilspatron{screen_msg} .= " -- " . "Patron has overdues"; |
| 127 |
} |
| 124 |
for (qw(EXPIRED CHARGES CREDITS GNA LOST DBARRED NOTES)) { |
128 |
for (qw(EXPIRED CHARGES CREDITS GNA LOST DBARRED NOTES)) { |
| 125 |
($flags->{$_}) or next; |
129 |
($flags->{$_}) or next; |
| 126 |
if ($_ ne 'NOTES' and $flags->{$_}->{message}) { |
130 |
if ($_ ne 'NOTES' and $flags->{$_}->{message}) { |
| 127 |
- |
|
|