X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=92d25a06a7b4e73e72d7f1f676a8f0dff561d1b3;hp=4d422002b4f33a2a1ecfa78ad33449a21342a9a5;hb=b66f67b1ca0675fc3529ed886d2bd7165d42bd6a;hpb=2bb11f5efaf3050bc111515f86abb2a3326327db diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index 4d42200..92d25a0 100644 --- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm +++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm @@ -12,7 +12,6 @@ our @ISA = qw(ZOOM::IRSpy::Test); our $max_timeout_errors = $ZOOM::IRSpy::max_timeout_errors; -# These queries my @queries = ( "\@attr 1=4 mineral", "\@attr 1=4 computer", @@ -26,9 +25,6 @@ sub start { my $class = shift(); my($conn) = @_; - # 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($queries[0], { queryindex => 0 }, {}, ZOOM::Event::ZEND, \&completed_search, exception => \&completed_search);