+ z.1 preferredRecordSyntax sutrs
+ z.1 search the
+}
+
+proc search-response {} {
+ set hits [z.1 resultCount]
+ if {$hits <= 0} {
+ do-search
+ return
+ }
+ z callback {present-response}
+ if {$hits < 20} {
+ z.1 present 1 $hits
+ } else {
+ z.1 present 1 20
+ }
+}
+
+proc present-response {} {
+ do-search