X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=client.tcl;h=ff682193cafd654abfdb13f06628b5090871aaa5;hb=7470e1bbfcf80e252bca329457c48e093dcbca20;hp=aa95b0ad50a3cb870bdd568eb982fe8e29728d9e;hpb=c901722e2151d1d0ed3a2ce530f6eb5010563959;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index aa95b0a..ff68219 100644
--- a/client.tcl
+++ b/client.tcl
@@ -1,6 +1,9 @@
 #
 # $Log: client.tcl,v $
-# Revision 1.27  1995-06-02 14:29:42  adam
+# Revision 1.28  1995-06-02 14:52:13  adam
+# Minor changes really.
+#
+# Revision 1.27  1995/06/02  14:29:42  adam
 # Work on scan interface - up/down buttons.
 #
 # Revision 1.26  1995/06/01  16:36:46  adam
@@ -452,6 +455,7 @@ proc open-target {target base} {
     z39 failback [list fail-response $target]
     z39 callback [list connect-response $target]
     z39 connect [lindex $profile($target) 1]:[lindex $profile($target) 2]
+    z39 options search present scan namedResultSets triggerResourceCtrl
     show-status {Connecting} 1 {}
     set hostid $target
     .top.target.m disable 0
@@ -1797,6 +1801,8 @@ bind .data.list <Double-Button-1> {set indx [.data.list nearest %y]
 show-full-marc [incr indx] 0}
 
 ir z39
+z39 options search present scan namedResultSets triggerResourceCtrl
+puts [z39 options]
 
 show-logo 1