+my $branches = GetBranches();
+ for my $itm (@items) {
+ if ($itm->{'location'}){
+ $itm->{'location_opac'} = $shelflocations->{$itm->{'location'} };
+ }
+ my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber});
+ if ( defined( $transfertwhen ) && $transfertwhen ne '' ) {
+ $itm->{transfertwhen} = $transfertwhen;
+ $itm->{transfertfrom} = $branches->{$transfertfrom}{branchname};
+ $itm->{transfertto} = $branches->{$transfertto}{branchname};
+ }
+ }