Lines 39-45
use C4::Biblio;
Link Here
|
39 |
use C4::Items; |
39 |
use C4::Items; |
40 |
use C4::Koha; |
40 |
use C4::Koha; |
41 |
use C4::Circulation; |
41 |
use C4::Circulation; |
42 |
use C4::Dates qw/format_date/; |
|
|
43 |
use C4::Members; |
42 |
use C4::Members; |
44 |
use C4::Search; # enabled_staff_search_views |
43 |
use C4::Search; # enabled_staff_search_views |
45 |
use Koha::DateUtils; |
44 |
use Koha::DateUtils; |
Lines 81-87
my $maxreserves;
Link Here
|
81 |
my $warnings; |
80 |
my $warnings; |
82 |
my $messages; |
81 |
my $messages; |
83 |
|
82 |
|
84 |
my $date = C4::Dates->today('iso'); |
83 |
my $date = output_pref({ dt => DateTime->now(), dateformat => 'iso', dateonly => 1 }); |
85 |
my $action = $input->param('action'); |
84 |
my $action = $input->param('action'); |
86 |
$action ||= q{}; |
85 |
$action ||= q{}; |
87 |
|
86 |
|
Lines 351-357
foreach my $biblionumber (@biblionumbers) {
Link Here
|
351 |
|
350 |
|
352 |
if ( defined $reservedate ) { |
351 |
if ( defined $reservedate ) { |
353 |
$item->{backgroundcolor} = 'reserved'; |
352 |
$item->{backgroundcolor} = 'reserved'; |
354 |
$item->{reservedate} = format_date($reservedate); |
353 |
$item->{reservedate} = output_pref({ dt => dt_from_string( $reservedate, 'iso' ), dateonly => 1 }); |
355 |
$item->{ReservedForBorrowernumber} = $reservedfor; |
354 |
$item->{ReservedForBorrowernumber} = $reservedfor; |
356 |
$item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
355 |
$item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
357 |
$item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
356 |
$item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
Lines 386-392
foreach my $biblionumber (@biblionumbers) {
Link Here
|
386 |
GetTransfers($itemnumber); |
385 |
GetTransfers($itemnumber); |
387 |
|
386 |
|
388 |
if ( defined $transfertwhen && $transfertwhen ne '' ) { |
387 |
if ( defined $transfertwhen && $transfertwhen ne '' ) { |
389 |
$item->{transfertwhen} = format_date($transfertwhen); |
388 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string( $transfertwhen, 'iso' ), dateonly => 1 }); |
390 |
$item->{transfertfrom} = |
389 |
$item->{transfertfrom} = |
391 |
$branches->{$transfertfrom}{branchname}; |
390 |
$branches->{$transfertfrom}{branchname}; |
392 |
$item->{transfertto} = $branches->{$transfertto}{branchname}; |
391 |
$item->{transfertto} = $branches->{$transfertto}{branchname}; |
Lines 517-525
foreach my $biblionumber (@biblionumbers) {
Link Here
|
517 |
$reserve{'hidename'} = 1; |
516 |
$reserve{'hidename'} = 1; |
518 |
$reserve{'cardnumber'} = $reserveborrowerinfo->{'cardnumber'}; |
517 |
$reserve{'cardnumber'} = $reserveborrowerinfo->{'cardnumber'}; |
519 |
} |
518 |
} |
520 |
$reserve{'expirationdate'} = format_date( $res->{'expirationdate'} ) |
519 |
$reserve{'expirationdate'} = output_pref({ dt => dt_from_string( $res->{'expirationdate'}, 'iso' ), dateonly => 1 }) |
521 |
unless ( !defined($res->{'expirationdate'}) || $res->{'expirationdate'} eq '0000-00-00' ); |
520 |
unless ( !defined($res->{'expirationdate'}) || $res->{'expirationdate'} eq '0000-00-00' ); |
522 |
$reserve{'date'} = format_date( $res->{'reservedate'} ); |
521 |
$reserve{'date'} = output_pref({ dt => dt_from_string( $res->{'reservedate'}, 'iso' ), dateonly => 1 }); |
523 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
522 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
524 |
$reserve{'biblionumber'} = $res->{'biblionumber'}; |
523 |
$reserve{'biblionumber'} = $res->{'biblionumber'}; |
525 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
524 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
526 |
- |
|
|