Lines 32-37
use C4::Koha qw(
Link Here
|
32 |
GetNormalizedOCLCNumber |
32 |
GetNormalizedOCLCNumber |
33 |
GetNormalizedUPC |
33 |
GetNormalizedUPC |
34 |
); |
34 |
); |
|
|
35 |
use C4::Search qw( new_record_from_zebra ); |
35 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
36 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
36 |
use C4::Output qw( parametrized_url output_html_with_http_headers ); |
37 |
use C4::Output qw( parametrized_url output_html_with_http_headers ); |
37 |
use C4::Biblio qw( |
38 |
use C4::Biblio qw( |
Lines 233-239
if ($OpacBrowseResults) {
Link Here
|
233 |
my $session = get_session($query->cookie("CGISESSID")); |
234 |
my $session = get_session($query->cookie("CGISESSID")); |
234 |
my %paging = (previous => {}, next => {}); |
235 |
my %paging = (previous => {}, next => {}); |
235 |
if ($session->param('busc')) { |
236 |
if ($session->param('busc')) { |
236 |
use C4::Search; |
|
|
237 |
use URI::Escape qw( uri_escape_utf8 uri_unescape ); |
237 |
use URI::Escape qw( uri_escape_utf8 uri_unescape ); |
238 |
|
238 |
|
239 |
# Rebuild the string to store on session |
239 |
# Rebuild the string to store on session |
Lines 663-669
if ( $showcomp eq 'both' || $showcomp eq 'opac' ) {
Link Here
|
663 |
if ( my $components = $biblio->get_marc_components(300) ) { |
663 |
if ( my $components = $biblio->get_marc_components(300) ) { |
664 |
my $parts; |
664 |
my $parts; |
665 |
for my $part ( @{$components} ) { |
665 |
for my $part ( @{$components} ) { |
666 |
$part = MARC::Record->new_from_xml( $part, 'UTF-8' ); |
666 |
$part = C4::Search::new_record_from_zebra( 'biblioserver', $part ); |
667 |
|
667 |
|
668 |
push @{$parts}, |
668 |
push @{$parts}, |
669 |
XSLTParse4Display( |
669 |
XSLTParse4Display( |
670 |
- |
|
|