}
html "" [lindex $targets($hist($setNo,$i,host)) 0] "
: "
@@ -1618,7 +1458,7 @@ proc z39history {} {
html {}
}
if {[info exists hist($setNo,$i,hits)]} {
- html { } $hist($setNo,$i,hits) {}
@@ -1634,7 +1474,7 @@ proc z39history {} {
} else {
html "\n"
}
- html { }
@@ -1689,6 +1529,19 @@ proc button-main {} {
}
}
+proc button-feedback {} {
+ global useIcons
+
+ html {}
+ if {$useIcons} {
+ html { }
+ } else {
+ html "\n | "
+ html {User Feedback}
+ }
+}
+
proc button-define-target {} {
global useIcons
global env
@@ -1697,7 +1550,7 @@ proc button-define-target {} {
if {!$useIcons} {
html "\n | "
}
- html {![](/egwgif/button-define-target.gif) }
if {$useIcons} {
@@ -1778,7 +1631,7 @@ proc button-result-set {setNo tno} {
if {!$useIcons} {
html "\n | "
}
- html { 0} {
html {/msearch.egw/} $setNo
} else {
@@ -1803,7 +1656,7 @@ proc button-scan-window {setNo} {
html "\n | "
}
set targetNo 0
- html {}
if {$useIcons} {
html { This page is maintained by }
- html { Peter Wad Hansen .}
- html {Last modified March 15, 1996. }
+ html { Nobody .}
+ html {Last modified x x x. }
}
proc splitHostSpec {host} {
@@ -1847,21 +1700,12 @@ proc mkAssoc {assoc host} {
global targets
if {[catch {$assoc failback fail-response}]} {
- if {![string compare [lindex $targets($host) 1] WAIS]} {
- wais $assoc
- } else {
- ir $assoc
- $assoc maximumRecordSize 1000000
- }
+ ir $assoc
+ $assoc maximumRecordSize 1000000
} else {
- if {![string compare [lindex $targets($host) 1] WAIS]} {
- if {[$assoc comstack] == "wais"} return
- wais $assoc
- } else {
- if {[$assoc comstack] == "tcpip"} return
- ir $assoc
- $assoc maximumRecordSize 1000000
- }
+ if {[$assoc comstack] == "tcpip"} return
+ ir $assoc
+ $assoc maximumRecordSize 1000000
}
}
|