+ set sessionWait 0
+ z39 idAuthentication $hist($setNo,idAuthentication)
+ if {[catch {z39 init}]} {
+ displayError "Cannot initialize target ${thisHost}" {}
+ html "</body></html>\n"
+ egw_abort
+ }
+ if {[catch {egw_wait sessionWait 60}]} {
+ displayError "Cannot initialize target ${thisHost}" {}
+ html "</body></html>\n"
+ egw_abort
+ }
+ if {$sessionWait != "1"} {
+ displayError "Cannot initialize target ${thisHost}" {}
+ html "</body></html>\n"
+ egw_abort
+ }
+ if {![z39 initResult]} {
+ displayError "Connection rejected by target ${thisHost}" \
+ [z39 userInformationField]
+ z39 disconnect
+ html "</body></html>\n"
+ egw_abort
+ }
+ }
+
+ set useIcons 1
+ button-europagate
+ button-new-target 1
+ if {[lsearch [z39 options] scan] >= 0} {
+ button-scan-window 1 $setNo