- my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} );
-
- $getransf{'title'} = $gettitle->{'title'};
- $getransf{'datetransfer'} = format_date( $num->{'datesent'} );
- $getransf{'biblionumber'} = $gettitle->{'biblionumber'};
- $getransf{'itemnumber'} = $gettitle->{'itemnumber'};
- $getransf{'barcode'} = $gettitle->{'barcode'};
- $getransf{'itemtype'} = $itemtypeinfo->{'description'};
- $getransf{'homebranch'} = $gettitle->{'homebranch'};
- $getransf{'holdingbranch'} = $gettitle->{'holdingbranch'};
- $getransf{'itemcallnumber'} = $gettitle->{'itemcallnumber'};
-
- # we check if we have a reserv for this transfer
- my @checkreserv = GetReservesFromItemnumber($num->{'itemnumber'} );
+ my $itemtypeinfo = getitemtypeinfo( (C4::Context->preference('item-level_itypes')) ? $gettitle->{'itype'} : $gettitle->{'itemtype'} );
+
+ $getransf{'datetransfer'} = $num->{'datesent'};
+ $getransf{'itemtype'} = $itemtypeinfo ->{'description'};
+ foreach (qw(title author biblionumber itemnumber barcode homebranch holdingbranch itemcallnumber)) {
+ $getransf{$_} = $gettitle->{$_};
+ }
+
+ my $record = GetMarcBiblio($gettitle->{'biblionumber'});
+ $getransf{'subtitle'} = GetRecordValue('subtitle', $record, GetFrameworkCode($gettitle->{'biblionumber'}));
+
+ # we check if we have a reserv for this transfer
+ my @checkreserv = GetReservesFromItemnumber($num->{'itemnumber'});