From 8dfab402e27f12c13842e9d55432c934b03c69d2 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 20 Oct 2006 14:49:11 +0000 Subject: [PATCH 1/1] Add two exportable utility functions: xml_encode() is moved here from IRSpy::Record irspy_xpath_context() is new, factored out of found.mc --- lib/ZOOM/IRSpy.pm | 39 +++++++++++++++++++++++++++++++++++++-- 1 file changed, 37 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index dbe569a..e3c4be4 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.34 2006-10-18 10:22:54 mike Exp $ +# $Id: IRSpy.pm,v 1.35 2006-10-20 14:49:11 mike Exp $ package ZOOM::IRSpy; @@ -6,7 +6,11 @@ use 5.008; use strict; use warnings; -use Data::Dumper; # For debugging only +use Exporter 'import'; +our @EXPORT_OK = qw(xml_encode irspy_xpath_context); + +use Data::Dumper; # For debugging only +use XML::LibXML::XPathContext; use ZOOM; use Net::Z3950::ZOOM 1.13; # For the ZOOM version-check only use ZOOM::IRSpy::Node; @@ -511,6 +515,37 @@ sub _next_sibling_test { } +# Utility functions follow, exported for use of web UI + +# I can't -- just can't, can't, can't -- believe that this function +# isn't provided by one of the core XML modules. But the evidence all +# says that it's not: among other things, XML::Generator and +# Template::Plugin both roll their own. So I will do likewise. D'oh! +# +sub xml_encode { + my ($text) = @_; + $text =~ s/&/&/g; + $text =~ s//>/g; + $text =~ s/['']/'/g; + $text =~ s/[""]/"/g; + return $text; +} + + +sub irspy_xpath_context { + my($zoom_record) = @_; + + my $xml = $zoom_record->render(); + my $parser = new XML::LibXML(); + my $doc = $parser->parse_string($xml); + my $root = $doc->getDocumentElement(); + my $xc = XML::LibXML::XPathContext->new($root); + $xc->registerNs(e => 'http://explain.z3950.org/dtd/2.0/'); + return $xc; +} + + =head1 SEE ALSO ZOOM::IRSpy::Record, -- 1.7.10.4