From: Wolfram Schneider <wosch@indexdata.dk>
Date: Wed, 7 Apr 2010 15:57:04 +0000 (+0000)
Subject: handle protocol tcp as z39.50
X-Git-Tag: CPAN-v1.02~54^2~93^2~28
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=65c6bc9a43d8ebf8eba1efb4993e19f7920c48b1;p=irspy-moved-to-github.git

handle protocol tcp as z39.50

The three valid IRSpy protocols are Z39.50, SRU and SRW; the valid
ZOOM protocols are tcp and http. But if tcp gets into an IRSpy record,
then it's tolerated.
---

diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm
index 7853d20..0b1f646 100644
--- a/lib/ZOOM/IRSpy/Utils.pm
+++ b/lib/ZOOM/IRSpy/Utils.pm
@@ -260,7 +260,7 @@ sub _irspy_identifier2target {
 	if !defined $id;
 
     my($protocol, $target) = ($id =~ /(.*?):(.*)/);
-    if (uc($protocol) eq "Z39.50") {
+    if (uc($protocol) eq "Z39.50" || uc($protocol) eq "TCP") {
 	return "tcp:$target";
     } elsif (uc($protocol) eq "SRU") {
 	return "sru=get,http:$target";