From 3d06e711856301eec35ce8d2305eb3f2403c2f5d Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 1 Mar 2007 13:52:54 +0000 Subject: [PATCH] Back to v1.21 -- cql_target() is not unnecessary after all, since it's used by both IRSpy.pm and the Web UI. --- lib/ZOOM/IRSpy/Utils.pm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index c31d188..4f7562d 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -1,4 +1,4 @@ -# $Id: Utils.pm,v 1.22 2007-03-01 13:51:18 mike Exp $ +# $Id: Utils.pm,v 1.23 2007-03-01 13:52:54 mike Exp $ package ZOOM::IRSpy::Utils; @@ -10,6 +10,7 @@ use Exporter 'import'; our @EXPORT_OK = qw(isodate xml_encode cql_quote + cql_target irspy_xpath_context modify_xml_document bib1_access_point); @@ -71,6 +72,16 @@ sub cql_quote { } +# Makes a CQL query that finds a specified target +sub cql_target { + my($host, $port, $db) = @_; + + return ("host=" . cql_quote($host) . " and " . + "port=" . cql_quote($port) . " and " . + "path=" . cql_quote($db)); +} + + # PRIVATE to irspy_namespace() and irspy_xpath_context() my %_namespaces = ( e => 'http://explain.z3950.org/dtd/2.0/', -- 1.7.10.4