From a410bdc76c7abb3f110f5bdc1342585bf1b7a3c1 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 1 Nov 2006 10:14:56 +0000 Subject: [PATCH] Use $ZOOM::IRSpy::Utils::IRSPY_NS instead of $ZOOM::IRSpy::irspy_ns --- lib/ZOOM/IRSpy/Record.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm index a7c8bc6..52e2b41 100644 --- a/lib/ZOOM/IRSpy/Record.pm +++ b/lib/ZOOM/IRSpy/Record.pm @@ -1,4 +1,4 @@ -# $Id: Record.pm,v 1.18 2006-10-30 16:13:49 mike Exp $ +# $Id: Record.pm,v 1.19 2006-11-01 10:14:56 mike Exp $ package ZOOM::IRSpy::Record; @@ -71,7 +71,7 @@ sub append_entry { my $root = $this->{zeerex}; # XML::LibXML::Element ISA XML::LibXML::Node my $xc = XML::LibXML::XPathContext->new($root); $xc->registerNs(zeerex => "http://explain.z3950.org/dtd/2.0/"); - $xc->registerNs(irspy => $ZOOM::IRSpy::irspy_ns); + $xc->registerNs(irspy => $ZOOM::IRSpy::Utils::IRSPY_NS); my @nodes = $xc->findnodes($xpath); if (@nodes == 0) { @@ -123,7 +123,7 @@ sub store_result { # namespace mapping for that node -- but that only affects pre-parsed # trees, and is no use for parsing. Hence the following pair of lines # DOES NOT WORK: -# $node->setNamespace($ZOOM::IRSpy::irspy_ns, "irspy", 0); +# $node->setNamespace($ZOOM::IRSpy::Utils::IRSPY_NS, "irspy", 0); # $node->appendWellBalancedChunk($frag); # # Instead I have to go the long way round, hence this method. I have @@ -137,7 +137,7 @@ sub _half_decent_appendWellBalancedChunk { my($node, $frag) = @_; if (1) { - $frag =~ s,>, xmlns:irspy="$ZOOM::IRSpy::irspy_ns">,; + $frag =~ s,>, xmlns:irspy="$ZOOM::IRSpy::Utils::IRSPY_NS">,; $node->appendWellBalancedChunk($frag); return; } -- 1.7.10.4