|
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/; |
42 |
use Koha::DateUtils; |
| 43 |
use C4::Utils::DataTables::Members; |
43 |
use C4::Utils::DataTables::Members; |
| 44 |
use C4::Members; |
44 |
use C4::Members; |
| 45 |
use C4::Search; # enabled_staff_search_views |
45 |
use C4::Search; # enabled_staff_search_views |
|
Lines 82-88
my $maxreserves;
Link Here
|
| 82 |
my $warnings; |
82 |
my $warnings; |
| 83 |
my $messages; |
83 |
my $messages; |
| 84 |
|
84 |
|
| 85 |
my $date = C4::Dates->today('iso'); |
85 |
my $date = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
| 86 |
my $action = $input->param('action'); |
86 |
my $action = $input->param('action'); |
| 87 |
$action ||= q{}; |
87 |
$action ||= q{}; |
| 88 |
|
88 |
|
|
Lines 358-364
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 358 |
my $ItemBorrowerReserveInfo = GetMember( borrowernumber => $reservedfor ); |
358 |
my $ItemBorrowerReserveInfo = GetMember( borrowernumber => $reservedfor ); |
| 359 |
|
359 |
|
| 360 |
$item->{backgroundcolor} = 'reserved'; |
360 |
$item->{backgroundcolor} = 'reserved'; |
| 361 |
$item->{reservedate} = format_date($reservedate); |
361 |
$item->{reservedate} = output_pref({ dt => dt_from_string( $reservedate ), dateonly => 1 }); |
| 362 |
$item->{ReservedForBorrowernumber} = $reservedfor; |
362 |
$item->{ReservedForBorrowernumber} = $reservedfor; |
| 363 |
$item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
363 |
$item->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
| 364 |
$item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
364 |
$item->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
|
Lines 393-399
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 393 |
GetTransfers($itemnumber); |
393 |
GetTransfers($itemnumber); |
| 394 |
|
394 |
|
| 395 |
if ( defined $transfertwhen && $transfertwhen ne '' ) { |
395 |
if ( defined $transfertwhen && $transfertwhen ne '' ) { |
| 396 |
$item->{transfertwhen} = format_date($transfertwhen); |
396 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string( $transfertwhen ), dateonly => 1 }); |
| 397 |
$item->{transfertfrom} = |
397 |
$item->{transfertfrom} = |
| 398 |
$branches->{$transfertfrom}{branchname}; |
398 |
$branches->{$transfertfrom}{branchname}; |
| 399 |
$item->{transfertto} = $branches->{$transfertto}{branchname}; |
399 |
$item->{transfertto} = $branches->{$transfertto}{branchname}; |
|
Lines 516-524
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 516 |
$reserve{'hidename'} = 1; |
516 |
$reserve{'hidename'} = 1; |
| 517 |
$reserve{'cardnumber'} = $reserveborrowerinfo->{'cardnumber'}; |
517 |
$reserve{'cardnumber'} = $reserveborrowerinfo->{'cardnumber'}; |
| 518 |
} |
518 |
} |
| 519 |
$reserve{'expirationdate'} = format_date( $res->{'expirationdate'} ) |
519 |
$reserve{'expirationdate'} = output_pref({ dt => dt_from_string( $res->{'expirationdate'} ), dateonly => 1 }) |
| 520 |
unless ( !defined($res->{'expirationdate'}) || $res->{'expirationdate'} eq '0000-00-00' ); |
520 |
unless ( !defined($res->{'expirationdate'}) || $res->{'expirationdate'} eq '0000-00-00' ); |
| 521 |
$reserve{'date'} = format_date( $res->{'reservedate'} ); |
521 |
$reserve{'date'} = output_pref({ dt => dt_from_string( $res->{'reservedate'} ), dateonly => 1 }); |
| 522 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
522 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
| 523 |
$reserve{'biblionumber'} = $res->{'biblionumber'}; |
523 |
$reserve{'biblionumber'} = $res->{'biblionumber'}; |
| 524 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
524 |
$reserve{'borrowernumber'} = $res->{'borrowernumber'}; |
| 525 |
- |
|
|