Lines 865-878
for my $row ( @big_array ) {
Link Here
|
865 |
$item_field->{field} = ''; |
865 |
$item_field->{field} = ''; |
866 |
} |
866 |
} |
867 |
|
867 |
|
868 |
my ($tmpa, $dateaccessioned) = &GetMarcFromKohaField( "items.dateaccessioned" ); |
868 |
for my $kohafield ( |
869 |
my ($tmpb, $onloan) = &GetMarcFromKohaField( "items.onloan" ); |
869 |
qw( items.dateaccessioned items.onloan items.datelastseen items.datelastborrowed items.replacementpricedate ) |
870 |
my ($tmpc, $datelastseen) = &GetMarcFromKohaField( "items.datelastseen" ); |
870 |
) |
871 |
my ($tmpd, $datelastborrowed) = &GetMarcFromKohaField( "items.datelastborrowed" ); |
871 |
{ |
872 |
my ($tmpe, $replacementpricedate) = &GetMarcFromKohaField( "items.replacementpricedate" ); |
872 |
my ( undef, $subfield ) = GetMarcFromKohaField($kohafield); |
873 |
if ( $key eq $dateaccessioned || $key eq $onloan || $key eq $datelastseen || $key eq $datelastborrowed || $key eq $replacementpricedate ){ |
873 |
next unless $key eq $subfield; |
874 |
# date accessioned || on loan || date last seen || date last borrowed || replacement price date |
874 |
$item_field->{field} = output_pref( { str => $row->{$key}, dateonly => 1 } ); |
875 |
$item_field->{field} = output_pref({ dt => dt_from_string( $row->{$key} ), dateonly => 1 }); |
|
|
876 |
} |
875 |
} |
877 |
|
876 |
|
878 |
push @item_fields, $item_field; |
877 |
push @item_fields, $item_field; |