View | Details | Raw Unified | Return to bug 6334
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/xslt/UNIMARCslim2OAIDC.xsl (-1 / +1 lines)
Lines 165-171 Link Here
165
		</xsl:for-each>
165
		</xsl:for-each>
166
		<xsl:for-each select="marc:datafield[@tag=090]">
166
		<xsl:for-each select="marc:datafield[@tag=090]">
167
   	      <dc:identifier>
167
   	      <dc:identifier>
168
		    <xsl:text>http://opac.mylibrary.org/bib/</xsl:text>
168
		    <xsl:value-of select="$syspref"/><xsl:text>/bib/</xsl:text>
169
		    <xsl:value-of select="marc:subfield[@code='a']"/>
169
		    <xsl:value-of select="marc:subfield[@code='a']"/>
170
		  </dc:identifier>
170
		  </dc:identifier>
171
		</xsl:for-each>
171
		</xsl:for-each>
(-)a/opac/oai.pl (-10 / +12 lines)
Lines 200-215 sub new { Link Here
200
    my $self = $class->SUPER::new(%args);
200
    my $self = $class->SUPER::new(%args);
201
201
202
    $timestamp =~ s/ /T/, $timestamp .= 'Z';
202
    $timestamp =~ s/ /T/, $timestamp .= 'Z';
203
    $self->header( new HTTP::OAI::Header(
203
    $self->header(
204
        identifier  => $args{identifier},
204
        new HTTP::OAI::Header(
205
        datestamp   => $timestamp,
205
            identifier => $args{identifier},
206
    ) );
206
            datestamp  => $timestamp,
207
207
        )
208
    my $parser = XML::LibXML->new();
208
    );
209
    my $record_dom = $parser->parse_string( $marcxml );
209
210
    my $format =  $args{metadataPrefix};
210
    my $parser     = XML::LibXML->new();
211
    my $record_dom = $parser->parse_string($marcxml);
212
    my $format     = $args{metadataPrefix};
213
    my $syspref = C4::Context->preference("OPACBaseURL");
211
    if ( $format ne 'marcxml' ) {
214
    if ( $format ne 'marcxml' ) {
212
        $record_dom = $repository->stylesheet($format)->transform( $record_dom );
215
        $record_dom = $repository->stylesheet($format)->transform($record_dom, syspref=> $syspref);
213
    }
216
    }
214
    $self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) );
217
    $self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) );
215
218
216
- 

Return to bug 6334