| Subject: | ZOOM Error: Failure of title search based upon documentation. |
| Date: | Fri, 14 Mar 2008 10:50:53 -0700 |
| To: | bug-Net-Z3950-ZOOM [...] rt.cpan.org |
| From: | John Watkins <jcw [...] odikia.com> |
irst the relevant background info:
Net-Z3950-ZOOM version 1.21
Yaz version 3.0.20
Mac OSX 10.4.11 on a 1.83 GHz Intel core Duo, MacBook Pro.
Appended below are three examples that were cobbled together using
the documentation for the Zoom perl module. They are labeled Example
1, Example 2, and Example 3. These examples differ in only one line.
The particular line is shown in a bold font in each example. The the
search()/search_pdf() documentation is the source of the three
examples of searches. [ In the example the word 'dinosaur' was used
for the search. Given the database used here that produced zero
results I substituted of 'mineral']
#######
Example 1 and Example 2 produced the following output:
Show quoted text
>perl -w z3950_1.pl
00943n 2200157z 4504
245 $a UTAH GEOLOGICAL AND MINERAL SURVEY PUBLICATIONS
710 $a UTAH GEOLOGICAL AND MINERAL SURVEY
520 $a Publications of the Utah Geological and Mineral Survey
include reports of
investigation, special studies, bulletins, open-file reports,
geologic map of
Utah, publications of geological societies, geologic and oil and
mineral maps,
coal monographs, circulars, water resource bulletins, and reprints of
articles.
513 $b -PRESENT
270 $p UTAH GEOLOGICAL AND MINERAL SURVEY $a INFORMATION SECTION,
606 BLACK HAWK WAY $b SALT LAKE CITY $d USA $k (801) 581-6831
037 $f UTAH GEOLOGICAL AND MINERAL SURVEY PUBLICATIONS
506 $a NONE
540 $a OPERATIONAL
270 $p UTAH GEOLOGICAL AND MINERAL SURVEY $a INFORMATION SECTION,
606 BLACK HAWK WAY $b SALT LAKE CITY $d USA $k (801) 581-6831
035 $a ESDD0007
040 $a UTAH GEOLOGICAL AND MINERAL SURVEY
00900n 2200145z 4504
245 $a MINERAL OCCURRENCES, DEPOSITS, PROSPECTS, AND MINES
710 $a NEVADA BUREAU OF MINES AND GEOLOGY
520 $a Name, location, workings, geologic description, history of
development and
mining (if any), analyses of rocks and minerals, and references are
components
of this database.
513 $b 1970-PRESENT
270 $p NEVADA BUREAU OF MINES AND GEOLOGY $a NEVADA BUREAU OF
MINES AND GEOLOGY, UNIVERSITY OF NEVADA $b RENO $d USA $k (702) 784-6691
037 $f MINERAL OCCURRENCES, DEPOSITS, PROSPECTS, AND MINES
506 $a As an area is covered, the data is open-filed at the Nevada
Bureau of Mines and
Geology.
270 $p JOE TINGLEY $p NEVADA BUREAU OF MINES AND GEOLOGY $a NEVADA
BUREAU OF MINES AND GEOLOGY, UNIVERSITY OF NEVADA $b RENO $d USA $k
(702) 784-6691
035 $a ESDD0048
040 $a NEVADA BUREAU OF MINES AND GEOLOGY
########
Example 3, however produced a ZOOM error 107:
Show quoted text > perl -w z3950_1.pl
ZOOM error 107 "Query type not supported" from diag-set 'Bib-1'
This seems to be an error based upon the documentation. I presume
the output should be s listing of titles with the word 'mineral' in
them.
####### Example 1 ####################################
use ZOOM;
my $conn = new ZOOM::Connection("indexdata.dk:210/gils");
$conn->option(preferredRecordSyntax => "usmarc");
my $rs = $conn->search(new ZOOM::Query::PQF('@attr 1=4 mineral'));
my $n = $rs->size();
for $i (1 .. $n) {
my $rec = $rs->record($i-1);
print $rec->render();
}
if ($conn->errcode() != 0) {
die("somthing went wrong: " . $conn->errmsg() . "\n");
}
$conn->destroy();
####### Example 2 ####################################
use ZOOM;
my $conn = new ZOOM::Connection("indexdata.dk:210/gils");
$conn->option(preferredRecordSyntax => "usmarc");
my $rs = $conn->search_pqf('@attr 1=4 mineral');
my $n = $rs->size();
for $i (1 .. $n) {
my $rec = $rs->record($i-1);
print $rec->render();
}
if ($conn->errcode() != 0) {
die("somthing went wrong: " . $conn->errmsg() . "\n");
}
$conn->destroy();
####### Example 3 ####################################
use ZOOM;
my $conn = new ZOOM::Connection("indexdata.dk:210/gils");
$conn->option(preferredRecordSyntax => "usmarc");
my $rs = $conn->search(new ZOOM::Query::CQL('title=mineral'));
my $n = $rs->size();
for $i (1 .. $n) {
my $rec = $rs->record($i-1);
print $rec->render();
}
if ($conn->errcode() != 0) {
die("somthing went wrong: " . $conn->errmsg() . "\n");
}
$conn->destroy();