Lines 196-203
sub new {
Link Here
|
196 |
|
196 |
|
197 |
my $parser = XML::LibXML->new(); |
197 |
my $parser = XML::LibXML->new(); |
198 |
my $record_dom = $parser->parse_string( $marcxml ); |
198 |
my $record_dom = $parser->parse_string( $marcxml ); |
|
|
199 |
my $syspref = C4::Context->preference("OPACBaseURL"); |
199 |
if ( $args{metadataPrefix} ne 'marcxml' ) { |
200 |
if ( $args{metadataPrefix} ne 'marcxml' ) { |
200 |
$record_dom = $repository->oai_dc_stylesheet()->transform( $record_dom ); |
201 |
$record_dom = $repository->oai_dc_stylesheet()->transform( $record_dom, syspref=> $syspref ); |
201 |
} |
202 |
} |
202 |
$self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) ); |
203 |
$self->metadata( HTTP::OAI::Metadata->new( dom => $record_dom ) ); |
203 |
|
204 |
|
204 |
- |
|
|