- $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
+ $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