X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=www%2Fz39util.tcl;h=6b56df4e5158d468fbdf49234378793a13bbb15a;hb=3d4b6045b8875099666b99edbf1457c91b5da928;hp=19b9a0e3f90b095705bdef32c09d0ccdf550e749;hpb=94e0e8ff10cdb5142f983cd76156310461f9eb89;p=egate.git
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 19b9a0e..6b56df4 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
#
-# $Id: z39util.tcl,v 1.1 1995/11/06 17:44:23 adam Exp $
+# $Id: z39util.tcl,v 1.5 1995/11/08 18:07:23 adam Exp $
#
proc saveState {} {
uplevel #0 {
@@ -8,15 +8,18 @@ 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\}"
+ catch {
+ eval "set v \$${var}"
+ puts $f "set ${var} \{$v\}"
+ }
}
}
close $f
@@ -71,18 +74,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 +96,21 @@ proc display-full {zset no} {
if {$add != {}} {
set add " :${add}"
}
- htmlr "