fix fog bug #622 : processz3950queue fails

diff --git a/C4/Z3950.pm b/C4/Z3950.pm
index 83c4fd3..f6f2948 100755 (executable)
--- 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 9aabc54..e21df5c 100755 (executable)
--- 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()) {