@@ -, +, @@ --- catalogue/detail.pl | 4 ++++ catalogue/moredetail.pl | 11 ++++++++++- .../prog/en/modules/catalogue/moredetail.tt | 2 +- opac/opac-detail.pl | 8 +++++--- 4 files changed, 20 insertions(+), 5 deletions(-) --- a/catalogue/detail.pl +++ a/catalogue/detail.pl @@ -171,6 +171,7 @@ $dat->{'hiddencount'} = scalar @all_items + @hostitems - scalar @items; my $shelflocations = GetKohaAuthorisedValues('items.location', $fw); my $collections = GetKohaAuthorisedValues('items.ccode' , $fw); +my $copynumbers = GetKohaAuthorisedValues('items.copynumber', $fw); my (@itemloop, %itemfields); my $norequests = 1; my $authvalcode_items_itemlost = GetAuthValCode('items.itemlost',$fw); @@ -201,10 +202,13 @@ foreach my $item (@items) { $item->{itemdamagedloop} = GetAuthorisedValues($authvalcode_items_damaged, $item->{damaged}) if $authvalcode_items_damaged; } #get shelf location and collection code description if they are authorised value. + # same thing for copy number my $shelfcode = $item->{'location'}; $item->{'location'} = $shelflocations->{$shelfcode} if ( defined( $shelfcode ) && defined($shelflocations) && exists( $shelflocations->{$shelfcode} ) ); my $ccode = $item->{'ccode'}; $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) ); + my $copynumber = $item->{'copynumber'}; + $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) ); foreach (qw(ccode enumchron copynumber itemnotes uri)) { $itemfields{$_} = 1 if ( $item->{$_} ); } --- a/catalogue/moredetail.pl +++ a/catalogue/moredetail.pl @@ -116,6 +116,7 @@ $data->{'showncount'}=$showncount; $data->{'hiddencount'}=$hiddencount; # can be zero my $ccodes= GetKohaAuthorisedValues('items.ccode',$fw); +my $copynumbers = GetKohaAuthorisedValues('items.copynumber',$fw); my $itemtypes = GetItemTypes; $data->{'itemtypename'} = $itemtypes->{$data->{'itemtype'}}->{'description'}; @@ -132,7 +133,15 @@ foreach my $item (@items){ $item->{'itype'} = $itemtypes->{ $item->{'itype'} }->{'description'}; $item->{'replacementprice'} = sprintf( "%.2f", $item->{'replacementprice'} ); $item->{$_} = format_date( $item->{$_} ) foreach qw/datelastborrowed dateaccessioned datelastseen lastreneweddate/; - $item->{'copyvol'} = $item->{'copynumber'}; + if ( defined $item->{'copynumber'} ) { + $item->{'displaycopy'} = 1; + if ($copynumbers) { + $item->{'copyvol'} = $copynumbers->{ $item->{'copynumber'} } + } + else { + $item->{'copyvol'} = $item->{'copynumber'}; + } + } # item has a host number if its biblio number does not match the current bib --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt @@ -56,7 +56,7 @@ [% END %] [% IF ( ITEM_DAT.collection ) %]