|
Lines 33-39
use C4::Reserves;
Link Here
|
| 33 |
use Encode; |
33 |
use Encode; |
| 34 |
use XML::LibXML; |
34 |
use XML::LibXML; |
| 35 |
use XML::LibXSLT; |
35 |
use XML::LibXSLT; |
| 36 |
use LWP::Simple; |
36 |
use LWP::UserAgent; |
| 37 |
|
37 |
|
| 38 |
use vars qw($VERSION @ISA @EXPORT); |
38 |
use vars qw($VERSION @ISA @EXPORT); |
| 39 |
|
39 |
|
|
Lines 43-49
BEGIN {
Link Here
|
| 43 |
@ISA = qw(Exporter); |
43 |
@ISA = qw(Exporter); |
| 44 |
@EXPORT = qw( |
44 |
@EXPORT = qw( |
| 45 |
&XSLTParse4Display |
45 |
&XSLTParse4Display |
| 46 |
&GetURI |
|
|
| 47 |
); |
46 |
); |
| 48 |
} |
47 |
} |
| 49 |
|
48 |
|
|
Lines 53-71
C4::XSLT - Functions for displaying XSLT-generated content
Link Here
|
| 53 |
|
52 |
|
| 54 |
=head1 FUNCTIONS |
53 |
=head1 FUNCTIONS |
| 55 |
|
54 |
|
| 56 |
=head2 GetURI |
|
|
| 57 |
|
| 58 |
GetURI file and returns the xslt as a string |
| 59 |
|
| 60 |
=cut |
| 61 |
|
| 62 |
sub GetURI { |
| 63 |
my ($uri) = @_; |
| 64 |
my $string; |
| 65 |
$string = get $uri ; |
| 66 |
return $string; |
| 67 |
} |
| 68 |
|
| 69 |
=head2 transformMARCXML4XSLT |
55 |
=head2 transformMARCXML4XSLT |
| 70 |
|
56 |
|
| 71 |
Replaces codes with authorized values in a MARC::Record object |
57 |
Replaces codes with authorized values in a MARC::Record object |
|
Lines 229-236
sub XSLTParse4Display {
Link Here
|
| 229 |
my $xslt = XML::LibXSLT->new(); |
215 |
my $xslt = XML::LibXSLT->new(); |
| 230 |
my $style_doc; |
216 |
my $style_doc; |
| 231 |
if ( $xslfilename =~ /^https?:\/\// ) { |
217 |
if ( $xslfilename =~ /^https?:\/\// ) { |
| 232 |
my $xsltstring = GetURI($xslfilename); |
218 |
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } ); |
| 233 |
$style_doc = $parser->parse_string($xsltstring); |
219 |
my $response = $ua->get($xslfilename); |
|
|
220 |
if ( $response->is_success ) { |
| 221 |
my $xsltstring = $response->decoded_content; |
| 222 |
$style_doc = $parser->parse_string($xsltstring); |
| 223 |
} else { |
| 224 |
warn "Cannot fetch remote XSLT file"; |
| 225 |
} |
| 234 |
} else { |
226 |
} else { |
| 235 |
use Cwd; |
227 |
use Cwd; |
| 236 |
$style_doc = $parser->parse_file($xslfilename); |
228 |
$style_doc = $parser->parse_file($xslfilename); |
| 237 |
- |
|
|