projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e41f249
)
Bug fix.
author
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 11 Jan 1996 13:12:10 +0000
(13:12 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 11 Jan 1996 13:12:10 +0000
(13:12 +0000)
client.tcl
patch
|
blob
|
history
diff --git
a/client.tcl
b/client.tcl
index
119f171
..
3269aa7
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-4,7
+4,10
@@
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.83 1995-11-28 17:26:36 adam
+# Revision 1.84 1996-01-11 13:12:10 adam
+# Bug fix.
+#
+# Revision 1.83 1995/11/28 17:26:36 adam
# Removed Carriage return from ir-tcl.c!
# Removed misc. debug logs.
#
# Removed Carriage return from ir-tcl.c!
# Removed misc. debug logs.
#
@@
-2271,7
+2274,7
@@
proc save-geometry {} {
return
}
if {$hostid != "Default"} {
return
}
if {$hostid != "Default"} {
- puts $f "set hostid $hostid"
+ puts $f "set hostid \{$hostid\}"
set b [z39 databaseNames]
puts $f "set hostbase $b"
}
set b [z39 databaseNames]
puts $f "set hostbase $b"
}