|
Lines 27-32
use C4::Auth qw(checkpw);
Link Here
|
| 27 |
use Koha::Items; |
27 |
use Koha::Items; |
| 28 |
use Koha::Libraries; |
28 |
use Koha::Libraries; |
| 29 |
use Koha::Patrons; |
29 |
use Koha::Patrons; |
|
|
30 |
use Koha::Patron::Messages; |
| 31 |
use Koha::DateUtils; |
| 30 |
|
32 |
|
| 31 |
our $kp; # koha patron |
33 |
our $kp; # koha patron |
| 32 |
|
34 |
|
|
Lines 137-142
sub new {
Link Here
|
| 137 |
} |
139 |
} |
| 138 |
} |
140 |
} |
| 139 |
|
141 |
|
|
|
142 |
my @patron_messages = Koha::Patron::Messages->search( |
| 143 |
{ |
| 144 |
borrowernumber => $kp->{borrowernumber}, |
| 145 |
message_type => 'B', |
| 146 |
} |
| 147 |
); |
| 148 |
my @messages_array; |
| 149 |
foreach my $message (@patron_messages) { |
| 150 |
my $messagedt = dt_from_string( $message->message_date, 'iso' ); |
| 151 |
my $formatted_date = output_pref({ dt => $messagedt, dateonly => 1}); |
| 152 |
push @messages_array, $formatted_date . ": " . $message->message; |
| 153 |
} |
| 154 |
if (@messages_array) { |
| 155 |
$ilspatron{screen_msg} .= ". Messages for you: " . join(' / ', @messages_array); |
| 156 |
} |
| 157 |
|
| 140 |
# FIXME: populate fine_items recall_items |
158 |
# FIXME: populate fine_items recall_items |
| 141 |
$ilspatron{unavail_holds} = _get_outstanding_holds($kp->{borrowernumber}); |
159 |
$ilspatron{unavail_holds} = _get_outstanding_holds($kp->{borrowernumber}); |
| 142 |
|
160 |
|
| 143 |
- |
|
|