LP#1442276: Upgrade script for Encoding UTF8 output
[Evergreen.git] / Open-ILS / src / sql / Pg / upgrade / xxxx.function.oils_xslt_process_utf8_fix
1 BEGIN;
2
3 --SELECT evergreen.upgrade_deps_block_check('xxxx', :eg_version);
4
5 CREATE OR REPLACE FUNCTION evergreen.oils_xslt_process(TEXT, TEXT) RETURNS TEXT AS $func$
6   use strict;
7
8   use XML::LibXSLT;
9   use XML::LibXML;
10
11   my $doc = shift;
12   my $xslt = shift;
13
14   # The following approach uses the older XML::LibXML 1.69 / XML::LibXSLT 1.68
15   # methods of parsing XML documents and stylesheets, in the hopes of broader
16   # compatibility with distributions
17   my $parser = $_SHARED{'_xslt_process'}{parsers}{xml} || XML::LibXML->new();
18
19   # Cache the XML parser, if we do not already have one
20   $_SHARED{'_xslt_process'}{parsers}{xml} = $parser
21     unless ($_SHARED{'_xslt_process'}{parsers}{xml});
22
23   my $xslt_parser = $_SHARED{'_xslt_process'}{parsers}{xslt} || XML::LibXSLT->new();
24
25   # Cache the XSLT processor, if we do not already have one
26   $_SHARED{'_xslt_process'}{parsers}{xslt} = $xslt_parser
27     unless ($_SHARED{'_xslt_process'}{parsers}{xslt});
28
29   my $stylesheet = $_SHARED{'_xslt_process'}{stylesheets}{$xslt} ||
30     $xslt_parser->parse_stylesheet( $parser->parse_string($xslt) );
31
32   $_SHARED{'_xslt_process'}{stylesheets}{$xslt} = $stylesheet
33     unless ($_SHARED{'_xslt_process'}{stylesheets}{$xslt});
34
35   return $stylesheet->output_as_chars(
36     $stylesheet->transform(
37       $parser->parse_string($doc)
38     )
39   );
40
41 $func$ LANGUAGE 'plperlu' STRICT IMMUTABLE;
42
43 COMMIT;