|
Lines 22-28
use warnings;
Link Here
|
| 22 |
use CGI qw ( -utf8 ); |
22 |
use CGI qw ( -utf8 ); |
| 23 |
use C4::Acquisition qw( GetHistory ); |
23 |
use C4::Acquisition qw( GetHistory ); |
| 24 |
use C4::Auth; |
24 |
use C4::Auth; |
| 25 |
use C4::Dates qw/format_date/; |
|
|
| 26 |
use C4::Koha; |
25 |
use C4::Koha; |
| 27 |
use C4::Serials; #uses getsubscriptionfrom biblionumber |
26 |
use C4::Serials; #uses getsubscriptionfrom biblionumber |
| 28 |
use C4::Output; |
27 |
use C4::Output; |
|
Lines 207-213
foreach my $item (@items) {
Link Here
|
| 207 |
: ''; |
206 |
: ''; |
| 208 |
|
207 |
|
| 209 |
foreach (qw(datelastseen onloan)) { |
208 |
foreach (qw(datelastseen onloan)) { |
| 210 |
$item->{$_} = format_date($item->{$_}); |
209 |
$item->{$_} = output_pref({ dt => dt_from_string( $item->{$_} ), dateonly => 1 }); |
| 211 |
} |
210 |
} |
| 212 |
$item->{datedue} = format_sqldatetime($item->{datedue}); |
211 |
$item->{datedue} = format_sqldatetime($item->{datedue}); |
| 213 |
# item damaged, lost, withdrawn loops |
212 |
# item damaged, lost, withdrawn loops |
|
Lines 237-243
foreach my $item (@items) {
Link Here
|
| 237 |
|
236 |
|
| 238 |
if ( defined $reservedate ) { |
237 |
if ( defined $reservedate ) { |
| 239 |
$item->{backgroundcolor} = 'reserved'; |
238 |
$item->{backgroundcolor} = 'reserved'; |
| 240 |
$item->{reservedate} = format_date($reservedate); |
239 |
$item->{reservedate} = output_pref({ dt => dt_from_string($reservedate ), dateonly => 1 }); |
| 241 |
$item->{ReservedForBorrowernumber} = $reservedfor; |
240 |
$item->{ReservedForBorrowernumber} = $reservedfor; |
| 242 |
$item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
241 |
$item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
| 243 |
$item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
242 |
$item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
|
Lines 251-257
foreach my $item (@items) {
Link Here
|
| 251 |
# Check the transit status |
250 |
# Check the transit status |
| 252 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
251 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
| 253 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
252 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
| 254 |
$item->{transfertwhen} = format_date($transfertwhen); |
253 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen ), dateonly => 1 }); |
| 255 |
$item->{transfertfrom} = $branches->{$transfertfrom}{branchname}; |
254 |
$item->{transfertfrom} = $branches->{$transfertfrom}{branchname}; |
| 256 |
$item->{transfertto} = $branches->{$transfertto}{branchname}; |
255 |
$item->{transfertto} = $branches->{$transfertto}{branchname}; |
| 257 |
$item->{nocancel} = 1; |
256 |
$item->{nocancel} = 1; |
| 258 |
- |
|
|