From 6cf22bce6d2c710acb83b722d8ef54af0c21a27d Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 1 Oct 2003 15:08:14 +0000
Subject: [PATCH] fix fog bug #622 : processz3950queue fails

---
 C4/Z3950.pm             | 5 ++++-
 z3950/processz3950queue | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/C4/Z3950.pm b/C4/Z3950.pm
index 83c4fd3e85..f6f2948080 100755
--- a/C4/Z3950.pm
+++ b/C4/Z3950.pm
@@ -214,7 +214,7 @@ sub addz3950queue {
 
 	my $serverlist='';
 
-	$serverlist = join(" ", @serverlist);
+	$serverlist = join("|", @serverlist);
 # 	chop $serverlist;
 
 	# FIXME - Is this test supposed to test whether @serverlist is
@@ -306,6 +306,9 @@ Koha Developement team <info@koha.org>
 
 #--------------------------------------
 # $Log$
+# Revision 1.10  2003/10/01 15:08:14  tipaul
+# fix fog bug #622 : processz3950queue fails
+#
 # Revision 1.9  2003/04/29 16:50:51  tipaul
 # really proud of this commit :-)
 # z3950 search and import seems to works fine.
diff --git a/z3950/processz3950queue b/z3950/processz3950queue
index 9aabc545b8..e21df5ca5b 100755
--- a/z3950/processz3950queue
+++ b/z3950/processz3950queue
@@ -96,7 +96,7 @@ while (1) {
 					my $globalname;
 					my $globalsyntax;
 					my $globalencoding;
-					foreach $serverinfo (split(/\s+/, $servers)) {
+					foreach $serverinfo (split(/\|/, $servers)) {
 						(next) if ($serverdone{$serverinfo} == 1);
 						my $stillprocessing=1;
 						if (my $pid=fork()) {
-- 
2.39.5