+ # Alternately use the original scan() interface and new scan1()
+ my $ss;
+ if ($use_query_for_scan) {
+ my $q = Net::Z3950::ZOOM::query_create();
+ Net::Z3950::ZOOM::query_prefix($q, $startterm);
+ $ss = Net::Z3950::ZOOM::connection_scan1($conn, $q);
+ } else {
+ $ss = Net::Z3950::ZOOM::connection_scan($conn, $startterm);
+ }
+ $use_query_for_scan = !$use_query_for_scan;
+