From fce11ae66eaf7838fa2ce6cd5d0bd7d500e596ef Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 25 Oct 2006 10:47:17 +0000 Subject: [PATCH] Use new ability to pass options into irspy_search_pqf() --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index f344ba5..487b37e 100644 --- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm +++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm @@ -1,4 +1,4 @@ -# $Id: Fetch.pm,v 1.4 2006-10-25 10:19:33 mike Exp $ +# $Id: Fetch.pm,v 1.5 2006-10-25 10:47:17 mike Exp $ # See the "Main" test package for documentation @@ -38,15 +38,13 @@ sub start { ); foreach my $syn (@syntax) { - $conn->option('preferredRecordSyntax' => $syn); - $conn->option('start' => 0); - $conn->option('count' => 1); - ## Here I want to get a use attribute from the session, which we've ## managed to search for in the Search/Bib1 or Search/Dan1 tests. But ## how? So far we search for title: 1=4 $conn->irspy_search_pqf("\@attr 1=4 mineral", {'syntax' => $syn}, + { start => 0, count => 1, + preferredRecordSyntax => $syn }, ZOOM::Event::RECV_RECORD, \&record, exception => \&error); } @@ -75,7 +73,7 @@ sub error { my($conn, $task, $test_args, $exception) = @_; my $syn = $test_args->{'syntax'}; - $conn->log("irspy_test", "Retrieval of $syn record failed:", $exception); + $conn->log("irspy_test", "Retrieval of $syn record failed: ", $exception); $conn->record()->store_result('record_fetch', 'syntax' => $syn, 'ok' => 0); -- 1.7.10.4