+# Procedure explain-check
+# Stub function to check explain. May be overwritten later.
+proc explain-check {target response} {
+ eval $response [list $target]
+}
+
+# Procedure ready-response
+# Called after a target has been initialized and, possibly, explained
+proc ready-response {base target} {
+ global profile settingsChanged scanEnable
+
+ if {![string length $base]} {
+ set base [lindex [lindex $profile($target) 7] 0]
+ }
+ if {![string length $base]} {
+ set base Default
+ }
+ z39 databaseNames $base
+ set profile($target) [lreplace $profile($target) 18 18 [clock seconds]]
+ set settingsChanged 1
+ if {[lsearch [z39 options] scan] >= 0} {
+ set scanEnable 1
+ } else {
+ set scanEnable 0
+ }
+ cascade-dblist $target $base
+ show-target $target $base
+ show-message {}
+ show-status Ready 0 1
+
+ .data.record insert end [lindex $profile($target) 27]
+ .data.record insert end "\n"
+ set data [lindex $profile($target) 21]
+ if {[string length $data]} {
+ .data.record insert end "News:\n"
+ .data.record insert end "$data\n"
+ }
+}
+
+# Procedure search-request
+# bflag flag to indicate if this procedure calls itself
+# Performs a search. If $busy is 1, the search-request is performed
+# at a later time (when another response arrives). This procedure
+# sets many search-related Z39-settings. The global $setNo is set
+# to the result set number (z39.$setNo).