diff --git a/C4/Z3950.pm b/C4/Z3950.pm index 4b33e968e1..5d9556043b 100755 --- a/C4/Z3950.pm +++ b/C4/Z3950.pm @@ -150,12 +150,20 @@ sub addz3950queue { $sth->execute($query, $type, $serverlist, $requestid); my $pid=`cat /var/log/koha/processz3950queue.pid`; chomp $pid; - kill 1, $pid; + my $processcount=kill 1, $pid; + if ($processcount==0) { + return 1; + } } } # sub addz3950queue #-------------------------------------- # $Log$ +# Revision 1.1.2.4 2002/06/28 18:07:27 tonnesen +# marcimport.pl will print an error message if it can not signal the +# processz3950queue program. The message contains instructions for starting the +# daemon. +# # Revision 1.1.2.3 2002/06/28 17:45:39 tonnesen # z3950queue now listens for a -HUP signal before processing the queue. Z3950.pm # sends the -HUP signal when queries are added to the queue. diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl index 26ee222140..352d7c1ef9 100755 --- a/acqui.simple/marcimport.pl +++ b/acqui.simple/marcimport.pl @@ -756,8 +756,26 @@ sub AcceptZ3950Queue { } } - addz3950queue($dbh,$input->param('query'), $input->param('type'), - $input->param('rand'), @serverlist); + if (addz3950queue($dbh,$input->param('query'), $input->param('type'), + $input->param('rand'), @serverlist)) { + print qq| +
| Error | |
|
+No Z39.50 client daemon running on the server.
+There is a launcher for the Z39.50 client daemon in your intranet installation |