|
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 |
- |
|
|