- $getransf{'datetransfer'} = format_date( $num->{'datesent'} );
- $getransf{'itemtype'} = $itemtypeinfo ->{'description'};
- foreach (qw(title biblionumber itemnumber barcode homebranch holdingbranch itemcallnumber)) {
- $getransf{$_} = $gettitle->{$_};
- }
+ my $item = Koha::Items->find( $num->{itemnumber} );
+ my $biblio = $item->biblio;
+ my $itemtype = Koha::ItemTypes->find( $item->effective_itemtype );
+
+ $getransf{'datetransfer'} = $num->{'datesent'};
+ $getransf{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description?
+ %getransf = (
+ %getransf,
+ title => $biblio->title,
+ subtitle => $biblio->subtitle,
+ medium => $biblio->medium,
+ part_number => $biblio->part_number,
+ part_name => $biblio->part_name,
+ author => $biblio->author,
+ biblionumber => $biblio->biblionumber,
+ itemnumber => $item->itemnumber,
+ barcode => $item->barcode,
+ homebranch => $item->homebranch,
+ holdingbranch => $item->holdingbranch,
+ itemcallnumber => $item->itemcallnumber,
+ );