|
Lines 26-31
use C4::Auth qw(checkpw);
Link Here
|
| 26 |
use Koha::Items; |
26 |
use Koha::Items; |
| 27 |
use Koha::Libraries; |
27 |
use Koha::Libraries; |
| 28 |
use Koha::Patrons; |
28 |
use Koha::Patrons; |
|
|
29 |
use Koha::Patron::Messages; |
| 30 |
use Koha::DateUtils; |
| 29 |
|
31 |
|
| 30 |
our $kp; # koha patron |
32 |
our $kp; # koha patron |
| 31 |
|
33 |
|
|
Lines 154-159
sub new {
Link Here
|
| 154 |
} |
156 |
} |
| 155 |
} |
157 |
} |
| 156 |
|
158 |
|
|
|
159 |
my @patron_messages = Koha::Patron::Messages->search( |
| 160 |
{ |
| 161 |
borrowernumber => $kp->{borrowernumber}, |
| 162 |
message_type => 'B', |
| 163 |
} |
| 164 |
); |
| 165 |
my @messages_array; |
| 166 |
foreach my $message (@patron_messages) { |
| 167 |
my $messagedt = dt_from_string( $message->message_date, 'iso' ); |
| 168 |
my $formatted_date = output_pref({ dt => $messagedt, dateonly => 1}); |
| 169 |
push @messages_array, $formatted_date . ": " . $message->message; |
| 170 |
} |
| 171 |
if (@messages_array) { |
| 172 |
$ilspatron{screen_msg} .= ". Messages for you: " . join(' / ', @messages_array); |
| 173 |
} |
| 174 |
|
| 157 |
# FIXME: populate fine_items recall_items |
175 |
# FIXME: populate fine_items recall_items |
| 158 |
$ilspatron{unavail_holds} = _get_outstanding_holds($kp->{borrowernumber}); |
176 |
$ilspatron{unavail_holds} = _get_outstanding_holds($kp->{borrowernumber}); |
| 159 |
|
177 |
|
| 160 |
- |
|
|