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

(-)a/catalogue/detail.pl (-6 / +4 lines)
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 206-213 foreach my $item (@items) { Link Here
206
    $item->{imageurl} = defined $item->{itype} ? getitemtypeimagelocation('intranet', $itemtypes->{ $item->{itype} }{imageurl})
205
    $item->{imageurl} = defined $item->{itype} ? getitemtypeimagelocation('intranet', $itemtypes->{ $item->{itype} }{imageurl})
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
- 

Return to bug 14879