Lines 151-157
foreach my $item (@items){
Link Here
|
151 |
|
151 |
|
152 |
my $item_info = $item->unblessed; |
152 |
my $item_info = $item->unblessed; |
153 |
$item_info->{object} = $item; |
153 |
$item_info->{object} = $item; |
154 |
$item_info->{itemtype} = $itemtypes->{$item->effective_itemtype}; |
154 |
$item_info->{itype} = $itemtypes->{ $item->itype }->{'translated_description'} if exists $itemtypes->{ $item->itype }; |
|
|
155 |
$item_info->{effective_itemtype} = $itemtypes->{$item->effective_itemtype}; |
155 |
$item_info->{'ccode'} = $ccodes->{ $item->ccode } if $ccodes && $item->ccode && exists $ccodes->{ $item->ccode }; |
156 |
$item_info->{'ccode'} = $ccodes->{ $item->ccode } if $ccodes && $item->ccode && exists $ccodes->{ $item->ccode }; |
156 |
if ( defined $item->copynumber ) { |
157 |
if ( defined $item->copynumber ) { |
157 |
$item_info->{'displaycopy'} = 1; |
158 |
$item_info->{'displaycopy'} = 1; |