+ z.1 search science
+}
+
+proc search-response {} {
+ set hits [z.1 resultCount]
+ if {$hits <= 0} {
+ do-search
+ }
+ z callback {present-response}
+ if {$hits < 10} {
+ z.1 present 1 $hits
+ } else {
+ z.1 present 1 10
+ }
+}
+
+proc present-response {} {
+ do-search