Bug 6632 [Signed Off] add html filter to prevent XSS

[koha_fer] / opac / oai.pl

diff --git a/opac/oai.pl b/opac/oai.pl
index 36c15e7..038b6d1 100755 (executable)
--- a/opac/oai.pl
+++ b/opac/oai.pl
@@ -156,7 +156,7 @@ sub new {
     my $self = $class->SUPER::new();
 
     if ( $repository->{ conf } ) {
-        foreach my $name ( @{ $self->{ koha_metadata_formats } } ) {
+        foreach my $name ( @{ $repository->{ koha_metadata_format } } ) {
             my $format = $repository->{ conf }->{ format }->{ $name };
             $self->metadataFormat( HTTP::OAI::MetadataFormat->new(
                 metadataPrefix    => $format->{metadataPrefix},
@@ -373,7 +373,7 @@ use HTTP::OAI::Repository qw/:validate/;
 use XML::SAX::Writer;
 use XML::LibXML;
 use XML::LibXSLT;
-use YAML::XS qw( LoadFile );
+use YAML::Syck qw( LoadFile );
 use CGI qw/:standard -oldstyle_urls/;
 
 use C4::Context;
@@ -459,10 +459,10 @@ sub stylesheet {
     unless ( $stylesheet ) {
         my $xsl_file = $self->{ conf }
                        ? $self->{ conf }->{ format }->{ $format }->{ xsl_file }
-                       : ( C4::Context->config('intranetdir') .
-                         "/koha-tmpl/intranet-tmpl/prog/en/xslt/" .
+                       : ( C4::Context->config('intrahtdocs') .
+                         '/prog/en/xslt/' .
                          C4::Context->preference('marcflavour') .
-                         "slim2OAIDC.xsl" );
+                         'slim2OAIDC.xsl' );
         my $parser = XML::LibXML->new();
         my $xslt = XML::LibXSLT->new();
         my $style_doc = $parser->parse_file( $xsl_file );