This queue is for tickets about the Net-Z3950-ZOOM CPAN distribution.

Report information
The Basics
Id:
34092
Status:
new
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
jcw [...] odikia.com
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



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:

>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:

> 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();



This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.