From b6bd4dc1a566495e5711f62b3741f474e6b07d45 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 16 Nov 2006 17:19:28 +0000 Subject: [PATCH] Use new cql_target() method from Utils. --- lib/ZOOM/IRSpy.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index e6f2c52..cbf19c3 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.48 2006-11-03 13:11:29 mike Exp $ +# $Id: IRSpy.pm,v 1.49 2006-11-16 17:19:28 mike Exp $ package ZOOM::IRSpy; @@ -16,7 +16,7 @@ use Net::Z3950::ZOOM 1.13; # For the ZOOM version-check only use ZOOM::IRSpy::Node; use ZOOM::IRSpy::Connection; use ZOOM::IRSpy::Record; -use ZOOM::IRSpy::Utils; +use ZOOM::IRSpy::Utils qw(cql_target); our @ISA = qw(); our $VERSION = '0.02'; @@ -117,7 +117,7 @@ sub targets { $this->log("irspy_debug", "rewriting '$target' to '$newtarget'"); $target = $newtarget; # This is written through the ref } - push @qlist, (qq[(host="$host" and port="$port" and path="$db")]); + push @qlist, cql_target($host, $port, $db); } $this->{targets} = \@targets; -- 1.7.10.4