View | Details | Raw Unified | Return to bug 14873
Collapse All | Expand All

(-)a/reserve/request.pl (-7 / +6 lines)
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
- 

Return to bug 14873