From: mike <mike>
Date: Wed, 12 Apr 2006 08:42:35 +0000 (+0000)
Subject: Search AGRICOLA as well as LC and ID.
X-Git-Tag: cpan_1_22~187
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=e23bce53cee50a9349f244c7f51a751160f9b16e;p=ZOOM-Perl-moved-to-github.git

Search AGRICOLA as well as LC and ID.
---

diff --git a/samples/zoom/trivial-async.pl b/samples/zoom/trivial-async.pl
index 9a165f4..b7e6487 100644
--- a/samples/zoom/trivial-async.pl
+++ b/samples/zoom/trivial-async.pl
@@ -1,6 +1,7 @@
 use ZOOM;
 @servers = ('z3950.loc.gov:7090/Voyager',
-	    'bagel.indexdata.com:210/gils');
+	    'bagel.indexdata.com:210/gils',
+	    'agricola.nal.usda.gov:71Voyager');
 for ($i = 0; $i < @servers; $i++) {
     $z[$i] = new ZOOM::Connection($servers[$i], 0,
 				  async => 1, # asynchronous mode