From 2bde54b9aa14c851d7450b1973dffb3f0e7f6c14 Mon Sep 17 00:00:00 2001 From: Christophe Croullebois Date: Thu, 12 May 2011 10:51:15 +0200 Subject: bug 6334 [PATCH 1/1] In the UNIMARslim2OAID.xsl the link to biblio was hardcoded, with this patch it takes the value of OPACBaseURL. --- .../prog/en/xslt/UNIMARCslim2OAIDC.xsl | 2 +- opac/oai.pl | 21 +++++++++++-------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/xslt/UNIMARCslim2OAIDC.xsl b/koha-tmpl/intranet-tmpl/prog/en/xslt/UNIMARCslim2OAIDC.xsl index 0e5a80d..9c8d8a2 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/xslt/UNIMARCslim2OAIDC.xsl +++ b/koha-tmpl/intranet-tmpl/prog/en/xslt/UNIMARCslim2OAIDC.xsl @@ -165,7 +165,7 @@ - http://opac.mylibrary.org/bib/ + /bib/ diff --git a/opac/oai.pl b/opac/oai.pl index 038b6d1..83d31dc 100755 --- a/opac/oai.pl +++ b/opac/oai.pl @@ -200,16 +200,19 @@ sub new { my $self = $class->SUPER::new(%args); $timestamp =~ s/ /T/, $timestamp .= 'Z'; - $self->header( new HTTP::OAI::Header( - identifier => $args{identifier}, - datestamp => $timestamp, - ) ); - - my $parser = XML::LibXML->new(); - my $record_dom = $parser->parse_string( $marcxml ); - my $format = $args{metadataPrefix}; + $self->header( + new HTTP::OAI::Header( + identifier => $args{identifier}, + datestamp => $timestamp, + ) + ); + + my $parser = XML::LibXML->new(); + my $record_dom = $parser->parse_string($marcxml); + my $format = $args{metadataPrefix}; + my $syspref = C4::Context->preference("OPACBaseURL"); if ( $format ne 'marcxml' ) { - $record_dom = $repository->stylesheet($format)->transform( $record_dom ); + $record_dom = $repository->stylesheet($format)->transform($record_dom, syspref=> $syspref); } $self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) ); -- 1.7.0.4