Lines 202-209
sub new {
Link Here
|
202 |
my $parser = XML::LibXML->new(); |
202 |
my $parser = XML::LibXML->new(); |
203 |
my $record_dom = $parser->parse_string($marcxml); |
203 |
my $record_dom = $parser->parse_string($marcxml); |
204 |
my $format = $args{metadataPrefix}; |
204 |
my $format = $args{metadataPrefix}; |
|
|
205 |
my $syspref = C4::Context->preference("OPACBaseURL"); |
205 |
if ( $format ne 'marcxml' ) { |
206 |
if ( $format ne 'marcxml' ) { |
206 |
$record_dom = $repository->stylesheet($format)->transform($record_dom); |
207 |
$record_dom = $repository->stylesheet($format)->transform($record_dom, syspref=> $syspref); |
207 |
} |
208 |
} |
208 |
$self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) ); |
209 |
$self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) ); |
209 |
|
210 |
|
210 |
- |
|
|