projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[ir-tcl-moved-to-github.git]
/
client.tcl
diff --git
a/client.tcl
b/client.tcl
index
bb11305
..
dbdc644
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-4,7
+4,16
@@
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.75 1995-10-17 14:18:05 adam
+# Revision 1.78 1995-10-18 15:45:36 quinn
+# *** empty log message ***
+#
+# Revision 1.77 1995/10/18 15:37:46 adam
+# Piggy-back present.
+#
+# Revision 1.76 1995/10/18 15:15:20 adam
+# Fixed bug.
+#
+# Revision 1.75 1995/10/17 14:18:05 adam
# Minor changes in presentation formats.
#
# Revision 1.74 1995/10/17 12:18:57 adam
# Minor changes in presentation formats.
#
# Revision 1.74 1995/10/17 12:18:57 adam
@@
-1477,6
+1486,10
@@
proc search-response {} {
if {$setMax > 20} {
set setMax 20
}
if {$setMax > 20} {
set setMax 20
}
+ set no [z39.$setNo numberOfRecordsReturned]
+ dputs "Returned $no records, setOffset $setOffset"
+ add-title-lines $setNo $no $setOffset
+ set setOffset [expr $setOffset + $no]
z39 callback {present-response}
z39.$setNo present $setOffset 1
show-status Retrieving 1 0
z39 callback {present-response}
z39.$setNo present $setOffset 1
show-status Retrieving 1 0
@@
-1717,6
+1730,8
@@
proc protocol-setup-action {target w} {
for {set i 0} {$i < $len} {incr i} {
lappend b [$w.top.databases.list get $i]
}
for {set i 0} {$i < $len} {incr i} {
lappend b [$w.top.databases.list get $i]
}
+ set wno [lindex $profile($target) 12]
+
set profile($target) [list [$w.top.description.entry get] \
[$w.top.host.entry get] \
[$w.top.port.entry get] \
set profile($target) [list [$w.top.description.entry get] \
[$w.top.host.entry get] \
[$w.top.port.entry get] \
@@
-3215,6
+3230,8
@@
if {[catch {ir z39}]} {
ir z39
puts "ok"
}
ir z39
puts "ok"
}
+z39 largeSetLowerBound 20
+z39 smallSetUpperBound 2
+z39 mediumSetPresentNumber 2
z39 logLevel all
show-logo 1
z39 logLevel all
show-logo 1
-