Lines 459-468
sub stylesheet {
Link Here
|
459 |
unless ( $stylesheet ) { |
459 |
unless ( $stylesheet ) { |
460 |
my $xsl_file = $self->{ conf } |
460 |
my $xsl_file = $self->{ conf } |
461 |
? $self->{ conf }->{ format }->{ $format }->{ xsl_file } |
461 |
? $self->{ conf }->{ format }->{ $format }->{ xsl_file } |
462 |
: ( C4::Context->config('intranetdir') . |
462 |
: ( C4::Context->config('intrahtdocs') . |
463 |
"/koha-tmpl/intranet-tmpl/prog/en/xslt/" . |
463 |
'/prog/en/xslt/' . |
464 |
C4::Context->preference('marcflavour') . |
464 |
C4::Context->preference('marcflavour') . |
465 |
"slim2OAIDC.xsl" ); |
465 |
'slim2OAIDC.xsl' ); |
466 |
my $parser = XML::LibXML->new(); |
466 |
my $parser = XML::LibXML->new(); |
467 |
my $xslt = XML::LibXSLT->new(); |
467 |
my $xslt = XML::LibXSLT->new(); |
468 |
my $style_doc = $parser->parse_file( $xsl_file ); |
468 |
my $style_doc = $parser->parse_file( $xsl_file ); |
469 |
- |
|
|