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