X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FRecord.pm;fp=lib%2FZOOM%2FIRSpy%2FRecord.pm;h=a7c8bc63fa8573b92052ccf5788f24249903a116;hp=38641ee7ceb1d58ea759fb569ae4887fa376ef35;hb=31a4a85969b4d333003c6616ea72574f025aae88;hpb=3b10d65b1a884072703994a193d9612b6cf5e135 diff --git a/lib/ZOOM/IRSpy/Record.pm b/lib/ZOOM/IRSpy/Record.pm index 38641ee..a7c8bc6 100644 --- a/lib/ZOOM/IRSpy/Record.pm +++ b/lib/ZOOM/IRSpy/Record.pm @@ -1,4 +1,4 @@ -# $Id: Record.pm,v 1.17 2006-10-23 12:22:52 sondberg Exp $ +# $Id: Record.pm,v 1.18 2006-10-30 16:13:49 mike Exp $ package ZOOM::IRSpy::Record; @@ -8,7 +8,7 @@ use warnings; use XML::LibXML; use XML::LibXML::XPathContext; - +use ZOOM::IRSpy::Utils qw(xml_encode); =head1 NAME @@ -48,9 +48,9 @@ sub _empty_zeerex_record { ### Doesn't recognise SRU/SRW URLs my($host, $port, $db) = ZOOM::IRSpy::_parse_target_string($target); - my $xhost = ZOOM::IRSpy::xml_encode($host); - my $xport = ZOOM::IRSpy::xml_encode($port); - my $xdb = ZOOM::IRSpy::xml_encode($db); + my $xhost = xml_encode($host); + my $xport = xml_encode($port); + my $xdb = xml_encode($db); return <<__EOT__;