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