-# $Id: IRSpy.pm,v 1.43 2006-10-30 14:57:14 mike Exp $
+# $Id: IRSpy.pm,v 1.46 2006-11-01 10:14:09 mike Exp $
package ZOOM::IRSpy;
use strict;
use warnings;
-use Exporter 'import';
-our @EXPORT_OK = qw(xml_encode irspy_xpath_context);
-
use Data::Dumper; # For debugging only
use File::Basename;
use XML::LibXSLT;
use ZOOM::IRSpy::Node;
use ZOOM::IRSpy::Connection;
use ZOOM::IRSpy::Record;
+use ZOOM::IRSpy::Utils;
our @ISA = qw();
our $VERSION = '0.02';
-our $irspy_ns = 'http://indexdata.com/irspy/1.0';
our $irspy_to_zeerex_xsl = dirname(__FILE__) . '/../../xsl/irspy2zeerex.xsl';
}
-# 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;
- $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/');
- $xc->registerNs(i => $irspy_ns);
- return $xc;
-}
-
-
=head1 SEE ALSO
ZOOM::IRSpy::Record,