X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fz39util.tcl;h=5c81b13d138cebf94187cfd18525f629c7d87c49;hb=b443634fbd412cea15ea527188c3e241bb1edf21;hp=796fdd22259859e5b5db67c91fd2c8c4de2ed825;hpb=6e37e8e91bf35cb14c930e8988085cf78f11029a;p=egate.git
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 796fdd2..5c81b13 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
#
-# $Id: z39util.tcl,v 1.2 1995/11/07 14:57:00 adam Exp $
+# $Id: z39util.tcl,v 1.4 1995/11/08 16:14:36 adam Exp $
#
proc saveState {} {
uplevel #0 {
@@ -8,15 +8,14 @@ proc saveState {} {
if {$var == "f"} continue
if {$var == "sessionId"} continue
if {$var == "errorInfo"} continue
- set names [array names $var]
- if {$names != ""} {
+ if {[catch {set names [array names $var]}]} {
+ eval "set v \$${var}"
+ puts $f "set ${var} \{$v\}"
+ } else {
foreach n $names {
eval "set v \$${var}(\$n)"
puts $f "set ${var}($n) \{$v\}"
}
- } else {
- eval "set v \$${var}"
- puts $f "set ${var} \{$v\}"
}
}
close $f
@@ -71,18 +70,18 @@ proc display-brief {zset no} {
set rtype [$zset recordType $no]
if {$rtype == "SUTRS"} {
html [join [$zset getSutrs $no]]
- htmlr {
}
+ html "
\n"
return
}
if {![catch {
set title [lindex [$zset getMarc $no field 245 * a] 0]
set year [lindex [$zset getMarc $no field 260 * c] 0]
} ] } {
- html { } $title {}
html " ${year} "
}
- htmlr {
}
+ html "
\n"
}
proc display-full {zset no} {
@@ -93,21 +92,21 @@ proc display-full {zset no} {
if {$add != {}} {
set add " :${add}"
}
- htmlr "