summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
14755a0)
$rec->error()==0, i.e. the record is not a surrogate diagnostic.
my $class = shift();
my($conn) = @_;
my $class = shift();
my($conn) = @_;
+ #$conn->option(apdulog => 1);
$conn->option(preferredRecordSyntax => "opac");
$conn->irspy_search_pqf($queries[0], { queryindex => 0 }, \%options,
ZOOM::Event::ZEND, \&completed_search,
$conn->option(preferredRecordSyntax => "opac");
$conn->irspy_search_pqf($queries[0], { queryindex => 0 }, \%options,
ZOOM::Event::ZEND, \&completed_search,
# that those records be included in the Search Response using
# piggybacking. Was it done?
my $rec = $task->{rs}->record_immediate(2);
# that those records be included in the Search Response using
# piggybacking. Was it done?
my $rec = $task->{rs}->record_immediate(2);
+ my $ok = defined $rec && $rec->error() == 0;
$task->{rs}->destroy();
$conn->record()->store_result('multiple_opac', 'ok' => $ok);
$task->{rs}->destroy();
$conn->record()->store_result('multiple_opac', 'ok' => $ok);