X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-detail.pl;h=a7289f3d0a26771370425a614ab24e75442ca4db;hb=1c3c191410e87ae18e45f6402319360d09593a23;hp=cbb216e291cf593d62a078f3764ff6cac4c759e8;hpb=9d6d641d1f8b77271800f43bc027b651f9aea52b;p=koha-ffzg.git diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index cbb216e291..a7289f3d0a 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -32,13 +32,12 @@ use C4::Koha qw( GetNormalizedOCLCNumber GetNormalizedUPC ); +use C4::Search qw( new_record_from_zebra searchResults getRecords ); use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); use C4::Output qw( parametrized_url output_html_with_http_headers ); use C4::Biblio qw( CountItemsIssued GetBiblioData - GetMarcAuthors - GetMarcBiblio GetMarcControlnumber GetMarcISBN GetMarcISSN @@ -46,8 +45,6 @@ use C4::Biblio qw( GetMarcSubjects GetMarcUrls ); -use C4::Items qw( GetHiddenItemnumbers GetItemsInfo ); -use C4::Circulation qw( GetTransfers ); use C4::Tags qw( get_tags ); use C4::XISBN qw( get_xisbns ); use C4::External::Amazon qw( get_amazon_tld ); @@ -82,8 +79,12 @@ use Koha::Patrons; use Koha::Plugins; use Koha::Ratings; use Koha::Reviews; +use Koha::Serial::Items; use Koha::SearchEngine::Search; +use Koha::SearchEngine::QueryBuilder; +use Koha::Util::MARC; +use JSON qw( decode_json ); my $query = CGI->new(); @@ -102,23 +103,21 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -my @all_items = GetItemsInfo($biblionumber); -if( $specific_item ) { - @all_items = grep { $_->{itemnumber} == $query->param('itemnumber') } @all_items; - $template->param( specific_item => 1 ); -} -my @hiddenitems; my $patron = Koha::Patrons->find( $borrowernumber ); -my $record = GetMarcBiblio({ - biblionumber => $biblionumber, - opac => 1 }); -if ( ! $record ) { +my $biblio = Koha::Biblios->find( $biblionumber ); +my $record = $biblio ? $biblio->metadata->record : undef; +unless ( $biblio && $record ) { print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early exit; } -my $biblio = Koha::Biblios->find( $biblionumber ); +my $items = $biblio->items->search_ordered; +if ($specific_item) { + $items = $items->search( { itemnumber => scalar $query->param('itemnumber') } ); + $template->param( specific_item => 1 ); +} + unless ( $patron and $patron->category->override_hidden_items ) { # only skip this check if there's a logged in user # and its category overrides OpacHiddenItems @@ -126,9 +125,8 @@ unless ( $patron and $patron->category->override_hidden_items ) { print $query->redirect('/cgi-bin/koha/errors/404.pl'); # escape early exit; } - if ( scalar @all_items >= 1 ) { - push @hiddenitems, - GetHiddenItemnumbers( { items => \@all_items, borcat => $patron ? $patron->categorycode : undef } ); + if ( $items->count >= 1 ) { + $items = $items->filter_by_visible_in_opac( { patron => $patron } ); } } @@ -193,53 +191,6 @@ SetUTF8Flag($record); my $marcflavour = C4::Context->preference("marcflavour"); my $ean = GetNormalizedEAN( $record, $marcflavour ); -# XSLT processing of some stuff -my $xslfile = C4::Context->preference('OPACXSLTDetailsDisplay'); -my $lang = $xslfile ? C4::Languages::getlanguage() : undef; -my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef; - -if ( $xslfile ) { - - my $searcher = Koha::SearchEngine::Search->new( - { index => $Koha::SearchEngine::BIBLIOS_INDEX } - ); - my $cleaned_title = $biblio->title; - $cleaned_title =~ tr|/||; - my $query = - ( C4::Context->preference('UseControlNumber') and $record->field('001') ) - ? 'rcn:'. $record->field('001')->data . ' AND (bib-level:a OR bib-level:b)' - : "Host-item:($cleaned_title)"; - my ( $err, $result, $count ) = $searcher->simple_search_compat( $query, 0, 0 ); - - warn "Warning from simple_search_compat: $err" - if $err; - - my $variables = { - anonymous_session => ($borrowernumber) ? 0 : 1, - show_analytics_link => $count > 0 ? 1 : 0 - }; - - my @plugin_responses = Koha::Plugins->call( - 'opac_detail_xslt_variables', - { - biblio_id => $biblionumber, - lang => $lang, - patron_id => $borrowernumber - - } - ); - for my $plugin_variables ( @plugin_responses ) { - $variables = { %$variables, %$plugin_variables }; - } - - $template->param( - XSLTBloc => XSLTParse4Display( - $biblionumber, $record, "OPACXSLTDetailsDisplay", 1, undef, - $sysxml, $xslfile, $lang, $variables - ) - ); -} - my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults"); # We look for the busc param to build the simple paging from the search @@ -247,7 +198,6 @@ if ($OpacBrowseResults) { my $session = get_session($query->cookie("CGISESSID")); my %paging = (previous => {}, next => {}); if ($session->param('busc')) { - use C4::Search; use URI::Escape qw( uri_escape_utf8 uri_unescape ); # Rebuild the string to store on session @@ -293,13 +243,16 @@ if ($session->param('busc')) { $sort_by[0] = $default_sort_by if !$sort_by[0] && defined($default_sort_by); my ($error, $results_hashref, $facets); eval { - ($error, $results_hashref, $facets) = getRecords($arrParamsBusc->{'query'},$arrParamsBusc->{'simple_query'},\@sort_by,\@servers,$results_per_page,$offset,undef,$itemtypes,$arrParamsBusc->{'query_type'},$arrParamsBusc->{'scan'}); + my $searcher = Koha::SearchEngine::Search->new( + { index => $Koha::SearchEngine::BIBLIOS_INDEX } ); + my $json = JSON->new->utf8->allow_nonref(1); + ($error, $results_hashref, $facets) = $searcher->search_compat($json->decode($arrParamsBusc->{'query'}),$arrParamsBusc->{'simple_query'},\@sort_by,\@servers,$results_per_page,$offset,undef,$itemtypes,$arrParamsBusc->{'query_type'},$arrParamsBusc->{'scan'}); }; my $hits; my @newresults; my $search_context = { - 'interface' => 'opac', - 'category' => ($patron) ? $patron->categorycode : q{} + interface => 'opac', + patron => $patron, }; for (my $i=0;$i<@servers;$i++) { my $server = $servers[$i]; @@ -526,6 +479,7 @@ if ($session->param('busc')) { for (my $j = 0; $j < @arrBiblios; $j++) { next unless ($arrBiblios[$j]); $dataBiblioPaging = Koha::Biblios->find( $arrBiblios[$j] ) if ($arrBiblios[$j] != $biblionumber); + next unless $dataBiblioPaging; push @listResults, {index => $j + 1 + $offset, biblionumber => $arrBiblios[$j], title => ($arrBiblios[$j] == $biblionumber)?'':$dataBiblioPaging->title, author => ($arrBiblios[$j] != $biblionumber && $dataBiblioPaging->author)?$dataBiblioPaging->author:'', url => ($arrBiblios[$j] == $biblionumber)?'':'opac-detail.pl?biblionumber=' . $arrBiblios[$j]}; } $template->param('listResults' => \@listResults) if (@listResults); @@ -538,79 +492,17 @@ $template->param( OPACShowCheckoutName => C4::Context->preference("OPACShowCheckoutName"), ); -if ( C4::Context->preference('EasyAnalyticalRecords') ) { - # adding items linked via host biblios - my $analyticfield = '773'; - if ($marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC'){ - $analyticfield = '773'; - } elsif ($marcflavour eq 'UNIMARC') { - $analyticfield = '461'; - } - foreach my $hostfield ( $record->field($analyticfield)) { - my $hostbiblionumber = $hostfield->subfield("0"); - my $linkeditemnumber = $hostfield->subfield("9"); - my @hostitemInfos = GetItemsInfo($hostbiblionumber); - foreach my $hostitemInfo (@hostitemInfos){ - if ($hostitemInfo->{itemnumber} eq $linkeditemnumber){ - push(@all_items, $hostitemInfo); - } - } - } -} - -my @items; - -# Are there items to hide? -my $hideitems; -$hideitems = 1 if C4::Context->preference('hidelostitems') or scalar(@hiddenitems) > 0; - -# Hide items -if ($hideitems) { - for my $itm (@all_items) { - if ( C4::Context->preference('hidelostitems') ) { - push @items, $itm unless $itm->{itemlost} or any { $itm->{'itemnumber'} eq $_ } @hiddenitems; - } else { - push @items, $itm unless any { $itm->{'itemnumber'} eq $_ } @hiddenitems; - } -} -} else { - # Or not - @items = @all_items; -} - -my $branch = ''; -if (C4::Context->userenv){ - $branch = C4::Context->userenv->{branch}; -} -if ( C4::Context->preference('HighlightOwnItemsOnOPAC') ) { - if ( - ( ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'PatronBranch' ) && $branch ) - || - C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'OpacURLBranch' - ) { - my $branchcode; - if ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'PatronBranch' ) { - $branchcode = $branch; - } - elsif ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'OpacURLBranch' ) { - $branchcode = $ENV{'BRANCHCODE'}; - } - - my @our_items; - my @other_items; - - foreach my $item ( @items ) { - if ( $item->{branchcode} eq $branchcode ) { - $item->{'this_branch'} = 1; - push( @our_items, $item ); - } else { - push( @other_items, $item ); - } +$items = Koha::Items->search_ordered( + [ + 'me.biblionumber' => $biblionumber, + 'me.itemnumber' => { + -in => [ + $biblio->host_items->get_column('itemnumber') + ] } - - @items = ( @our_items, @other_items ); - } -} + ], + { prefetch => [ 'issue', 'homebranch', 'holdingbranch' ] } +)->filter_by_visible_in_opac({ patron => $patron }) unless $specific_item; my $dat = &GetBiblioData($biblionumber); my $HideMARC = $record_processor->filters->[0]->should_hide_marc( @@ -669,8 +561,7 @@ foreach my $subscription (@subscriptions) { push @subs, \%cell; } -$dat->{'count'} = scalar(@items); - +$dat->{'count'} = $items->count; my (%item_reserves, %priority); my ($show_holds_count, $show_priority); @@ -694,7 +585,6 @@ if ( $show_holds_count || $show_priority) { } $template->param( show_priority => $has_hold ) ; -my $norequests = 1; my %itemfields; my (@itemloop, @otheritemloop); my $currentbranch = C4::Context->userenv ? C4::Context->userenv->{branch} : undef; @@ -705,6 +595,60 @@ my $separatebranch = C4::Context->preference('OpacSeparateHoldingsBranch'); my $viewallitems = $query->param('viewallitems'); my $max_items_to_display = C4::Context->preference('OpacMaxItemsToDisplay') // 50; +# Get component parts details +my $showcomp = C4::Context->preference('ShowComponentRecords'); +my ( $parts, $show_analytics ); +if ( $showcomp eq 'both' || $showcomp eq 'opac' ) { + if ( my $components = $biblio->get_marc_components(C4::Context->preference('MaxComponentRecords')) ) { + $show_analytics = 1 if @{$components}; # just show link when having results + for my $part ( @{$components} ) { + $part = C4::Search::new_record_from_zebra( 'biblioserver', $part ); + my $id = Koha::SearchEngine::Search::extract_biblionumber( $part ); + + push @{$parts}, + XSLTParse4Display( + { + biblionumber => $id, + record => $part, + xsl_syspref => 'OPACXSLTResultsDisplay', + fix_amps => 1, + } + ); + } + $template->param( ComponentParts => $parts ); + my ( $comp_query, $comp_sort ) = $biblio->get_components_query; + my $cpq = $comp_query . "&sort_by=" . $comp_sort; + $template->param( ComponentPartsQuery => $cpq ); + } +} else { # check if we should show analytics anyway + $show_analytics = 1 if @{$biblio->get_marc_components(1)}; # count matters here, results does not +} + +# XSLT processing of some stuff +my $variables = {}; +my @plugin_responses = Koha::Plugins->call( + 'opac_detail_xslt_variables', + { + biblio_id => $biblionumber, + lang => C4::Languages::getlanguage(), + patron_id => $borrowernumber, + }, +); +for my $plugin_variables ( @plugin_responses ) { + $variables = { %$variables, %$plugin_variables }; +} +$variables->{anonymous_session} = $borrowernumber ? 0 : 1; +$variables->{show_analytics_link} = $show_analytics; +$template->param( + XSLTBloc => XSLTParse4Display({ + biblionumber => $biblionumber, + record => $record, + xsl_syspref => 'OPACXSLTDetailsDisplay', + fix_amps => 1, + xslt_variables => $variables, + }), +); + # Get items on order my ( @itemnumbers_on_order ); if ( C4::Context->preference('OPACAcquisitionDetails' ) ) { @@ -728,77 +672,97 @@ if ( C4::Context->preference('OPACAcquisitionDetails' ) ) { my $allow_onshelf_holds; my ( $itemloop_has_images, $otheritemloop_has_images ); -if ( not $viewallitems and @items > $max_items_to_display ) { +if ( not $viewallitems and $items->count > $max_items_to_display ) { $template->param( too_many_items => 1, - items_count => scalar( @items ), + items_count => $items->count, ); -} else { - for my $itm (@items) { - my $item = Koha::Items->find( $itm->{itemnumber} ); - $itm->{holds_count} = $item_reserves{ $itm->{itemnumber} }; - $itm->{priority} = $priority{ $itm->{itemnumber} }; - $norequests = 0 - if $norequests - && !$itm->{'withdrawn'} - && !$itm->{'itemlost'} - && ($itm->{'itemnotforloan'}<0 || not $itm->{'itemnotforloan'}) - && !$itemtypes->{$itm->{'itype'}}->{notforloan} - && $itm->{'itemnumber'}; - - $allow_onshelf_holds = Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } ) - unless $allow_onshelf_holds; - - # get collection code description, too - my $ccode = $itm->{'ccode'}; - $itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} ); - my $copynumber = $itm->{'copynumber'}; - $itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) ); - if ( defined $itm->{'location'} ) { - $itm->{'location_description'} = $shelflocations->{ $itm->{'location'} }; - } - if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) { - $itm->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} ); - $itm->{'description'} = $itemtypes->{ $itm->{itype} }->{translated_description}; - } - foreach (qw(ccode materials enumchron copynumber itemnotes location_description uri)) { - $itemfields{$_} = 1 if ($itm->{$_}); - } +} +else { + while ( my $item = $items->next ) { + my $item_info = $item->unblessed; + $item_info->{holds_count} = $item_reserves{ $item->itemnumber }; + $item_info->{priority} = $priority{ $item->itemnumber }; + + $allow_onshelf_holds = Koha::CirculationRules->get_onshelfholds_policy( + { item => $item, patron => $patron } ) + unless $allow_onshelf_holds; + + # get collection code description, too + my $ccode = $item->ccode; + $item_info->{'ccode'} = $collections->{$ccode} + if defined($ccode) + && $collections + && exists( $collections->{$ccode} ); + + my $copynumber = $item->copynumber; + $item_info->{copynumber} = $copynumbers->{$copynumber} + if ( defined($copynumbers) + && defined($copynumber) + && exists( $copynumbers->{$copynumber} ) ); + + if ( defined $item->location ) { + $item_info->{'location_description'} = + $shelflocations->{ $item->location }; + } - my $reserve_status = C4::Reserves::GetReserveStatus($itm->{itemnumber}); - if( $reserve_status eq "Waiting"){ $itm->{'waiting'} = 1; } - if( $reserve_status eq "Reserved"){ $itm->{'onhold'} = 1; } - - my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); - if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { - $itm->{transfertwhen} = $transfertwhen; - $itm->{transfertfrom} = $transfertfrom; - $itm->{transfertto} = $transfertto; - } - - if ( C4::Context->preference('OPACAcquisitionDetails') ) { - $itm->{on_order} = 1 - if grep { $_ eq $itm->{itemnumber} } @itemnumbers_on_order; - } + my $itemtype = $item->itemtype; + $item_info->{'imageurl'} = getitemtypeimagelocation( 'opac', + $itemtypes->{ $itemtype->itemtype }->{'imageurl'} ); + $item_info->{'description'} = + $itemtypes->{ $itemtype->itemtype }->{translated_description}; - if ( C4::Context->preference("OPACLocalCoverImages") == 1 ) { - $itm->{cover_images} = $item->cover_images; - } + foreach my $field ( + qw(ccode materials enumchron copynumber itemnotes location_description uri) + ) + { + $itemfields{$field} = 1 if $item_info->{$field}; + } + + # FIXME The following must be Koha::Item->serial + my $serial_item = Koha::Serial::Items->find($item->itemnumber); + if ( $serial_item ) { + $item_info->{serial} = $serial_item; + } + + $item_info->{checkout} = $item->checkout; + $item_info->{object} = $item; + + if ( C4::Context->preference('OPACAcquisitionDetails') ) { + $item_info->{on_order} = 1 + if grep { $_ eq $item->itemnumber } @itemnumbers_on_order; + } - my $itembranch = $itm->{$separatebranch}; - if ($currentbranch and C4::Context->preference('OpacSeparateHoldings')) { - if ($itembranch and $itembranch eq $currentbranch) { - push @itemloop, $itm; + if ( C4::Context->preference("OPACLocalCoverImages") == 1 ) { + $item_info->{cover_images} = $item->cover_images; + } + + + if ( C4::Context->preference('UseCourseReserves') ) { + $item_info->{course_reserves} = GetItemCourseReservesInfo( itemnumber => $item->itemnumber ); + } + + $item_info->{holding_branch} = $item->holding_branch; + $item_info->{home_branch} = $item->home_branch; + + my $itembranch = $item->$separatebranch; + if ( $currentbranch + and C4::Context->preference('OpacSeparateHoldings') ) + { + if ( $itembranch and $itembranch eq $currentbranch ) { + push @itemloop, $item_info; + $itemloop_has_images++ if $item->cover_images->count; + } + else { + push @otheritemloop, $item_info; + $otheritemloop_has_images++ if $item->cover_images->count; + } + } + else { + push @itemloop, $item_info; $itemloop_has_images++ if $item->cover_images->count; - } else { - push @otheritemloop, $itm; - $otheritemloop_has_images++ if $item->cover_images->count; } - } else { - push @itemloop, $itm; - $itemloop_has_images++ if $item->cover_images->count; } - } } if( $allow_onshelf_holds || CountItemsIssued($biblionumber) || $biblio->has_items_waiting_or_intransit ) { @@ -818,24 +782,7 @@ if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { } } -## get notes and subjects from MARC record -if (!C4::Context->preference("OPACXSLTDetailsDisplay") ) { - my $marcisbnsarray = GetMarcISBN ($record,$marcflavour); - my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour); - my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour); - my $marcseriesarray = GetMarcSeries ($record,$marcflavour); - my $marcurlsarray = GetMarcUrls ($record,$marcflavour); - - $template->param( - MARCSUBJCTS => $marcsubjctsarray, - MARCAUTHORS => $marcauthorsarray, - MARCSERIES => $marcseriesarray, - MARCURLS => $marcurlsarray, - MARCISBNS => $marcisbnsarray, - ); -} - -my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 }); +my $marcnotesarray = $biblio->get_marc_notes({ opac => 1, record => $record }); if( C4::Context->preference('ArticleRequests') ) { my $patron = $borrowernumber ? Koha::Patrons->find($borrowernumber) : undef; @@ -848,10 +795,10 @@ if( C4::Context->preference('ArticleRequests') ) { $template->param( artreqpossible => $artreqpossible ); } +my $norequests = ! $biblio->items->filter_by_for_hold->count; $template->param( MARCNOTES => $marcnotesarray, norequests => $norequests, - RequestOnOpac => C4::Context->preference("RequestOnOpac"), itemdata_ccode => $itemfields{ccode}, itemdata_materials => $itemfields{materials}, itemdata_enumchron => $itemfields{enumchron}, @@ -862,7 +809,7 @@ if( C4::Context->preference('ArticleRequests') ) { OpacStarRatings => C4::Context->preference("OpacStarRatings"), ); -if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) { +if (C4::Context->preference("AlternateHoldingsField") && $items->count == 0) { my $fieldspec = C4::Context->preference("AlternateHoldingsField"); my $subfields = substr $fieldspec, 3; my $holdingsep = C4::Context->preference("AlternateHoldingsSeparator") || ' '; @@ -975,7 +922,7 @@ if (C4::Context->preference("virtualshelves") ) { my $shelves = Koha::Virtualshelves->search( { biblionumber => $biblionumber, - category => 2, + public => 1, }, { join => 'virtualshelfcontents', @@ -1149,7 +1096,7 @@ if (C4::Context->preference("OPACShelfBrowser")) { ); # in which tab shelf browser should open ? - if (grep { $starting_itemnumber == $_->{itemnumber} } @itemloop) { + if (grep { $starting_itemnumber == $_->itemnumber } @itemloop) { $template->param(shelfbrowser_tab => 'holdings'); } else { $template->param(shelfbrowser_tab => 'otherholdings'); @@ -1217,6 +1164,7 @@ my $issn = $marcissns->[0] || ''; if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ $dat->{title} =~ s/\/+$//; # remove trailing slash $dat->{title} =~ s/\s+$//; # remove trailing space + my $oclc_no = Koha::Util::MARC::oclc_number( $record ); $search_for_title = parametrized_url( $search_for_title, { @@ -1226,6 +1174,7 @@ if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ ISSN => $issn, CONTROLNUMBER => $marccontrolnumber, BIBLIONUMBER => $biblionumber, + OCLC_NO => $oclc_no, } ); $template->param('OPACSearchForTitleIn' => $search_for_title); @@ -1256,6 +1205,8 @@ my $defaulttab = ? 'serialcollection' : $opac_serial_default eq 'holdings' && scalar (@itemloop) > 0 ? 'holdings' : + ( $showcomp eq 'both' || $showcomp eq 'opac' ) && scalar (@itemloop) == 0 && $parts + ? 'components' : scalar (@itemloop) == 0 ? 'media' : $subscriptionsnumber @@ -1275,14 +1226,26 @@ if (C4::Context->preference('OpacHighlightedWords')) { } $template->{VARS}->{'trackclicks'} = C4::Context->preference('TrackClicks'); -if ( C4::Context->preference('UseCourseReserves') ) { - foreach my $i ( @items ) { - $i->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $i->{'itemnumber'} ); - } -} - $template->param( 'OpacLocationBranchToDisplay' => C4::Context->preference('OpacLocationBranchToDisplay'), ); +if ( C4::Context->preference('OPACAuthorIdentifiers') ) { + my @author_identifiers; + for my $author ( @{ $biblio->get_marc_authors } ) { + my $authid = $author->{authoritylink}; + my $authority = Koha::Authorities->find($authid); + next unless $authority; + my $identifiers = $authority->get_identifiers; + next unless $identifiers && @$identifiers; + my ($name) = + map { $_->{value} } + grep { $_->{code} eq 'a' ? $_ : () } + @{ $author->{MARCAUTHOR_SUBFIELDS_LOOP} }; + push @author_identifiers, + { authid => $authid, name => $name, identifiers => $identifiers }; + } + $template->param( author_identifiers => \@author_identifiers ); +} + output_html_with_http_headers $query, $cookie, $template->output;