projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a571e54
)
Remove extraneous comments.
author
Mike Taylor
<mike@miketaylor.org.uk>
Mon, 10 May 2010 16:15:34 +0000
(17:15 +0100)
committer
Mike Taylor
<mike@miketaylor.org.uk>
Mon, 10 May 2010 16:15:34 +0000
(17:15 +0100)
lib/ZOOM/IRSpy/Test/Record/Fetch.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index
4d42200
..
92d25a0
100644
(file)
--- 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;
our $max_timeout_errors = $ZOOM::IRSpy::max_timeout_errors;
-# These queries
my @queries = (
"\@attr 1=4 mineral",
"\@attr 1=4 computer",
my @queries = (
"\@attr 1=4 mineral",
"\@attr 1=4 computer",
@@
-26,9
+25,6
@@
sub start {
my $class = shift();
my($conn) = @_;
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);
$conn->irspy_search_pqf($queries[0], { queryindex => 0 }, {},
ZOOM::Event::ZEND, \&completed_search,
exception => \&completed_search);