X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fz39util.tcl;h=ca41b996fb5c25c49afe78562da19d1fe5e3d1b7;hb=fa0ddb755d3a836e4e13cc05a6ba3eb6b0010958;hp=3eb4dff5e265a1c5e0aead9f743213ea974ae4e0;hpb=73041203f9c387b4596185203b1daebe2f4f30e9;p=egate.git
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 3eb4dff..ca41b99 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
#
-# $Id: z39util.tcl,v 1.23 1996/01/24 08:27:23 adam Exp $
+# $Id: z39util.tcl,v 1.24 1996/01/24 14:14:20 adam Exp $
#
proc saveState {} {
uplevel #0 {
@@ -998,6 +998,26 @@ proc button-europagate {} {
}
}
+proc button-define-target {more} {
+ global useIcons
+ global env
+ global sessionId
+
+ html {}
+ } else {
+ html {">New Target}
+ if {$more} {
+ html " | \n"
+ } else {
+ html "\n"
+ }
+ }
+}
+
proc button-new-target {more} {
global useIcons
global env
@@ -1085,7 +1105,7 @@ proc button-scan-window {more setNo} {
proc maintenance {} {
html {