X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fz39util.tcl;h=08398cf3c1d0d42bf14dae2c8bf388a5233477ee;hb=7f332a840baf336e34d612cdee0ef27901f0dd11;hp=5186f297d6260884f7a1338e3ddfdad8015f4bec;hpb=c92eb2c721af54306a5596067456f69b0a197c4e;p=egate.git
diff --git a/www/z39util.tcl b/www/z39util.tcl
index 5186f29..08398cf 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
#
-# $Id: z39util.tcl,v 1.49 1997/11/19 13:29:13 adam Exp $
+# $Id: z39util.tcl,v 1.50 2001/02/26 14:32:36 adam Exp $
#
proc saveState {} {
uplevel #0 {
@@ -87,7 +87,7 @@ proc display-medium {zset no setNo targetNo} {
set rtype [$zset recordType $no]
switch $rtype {
SUTRS {
- html { }
html [join [$zset getSutrs $no]]
html "
\n"
@@ -109,7 +109,7 @@ proc display-medium {zset no setNo targetNo} {
set year [$zset getMarc $no field 260 * c]
set score [$zset getMarc $no field 999 * r]
} dispError ] } {
- html { }
set p 0
foreach a $author {
@@ -153,7 +153,7 @@ proc display-medium {zset no setNo targetNo} {
html "; Score " $nscore
}
} else {
- html { }
html {No Title}
html { }
@@ -184,7 +184,7 @@ proc display-brief {zset no setNo targetNo} {
set rtype [$zset recordType $no]
switch $rtype {
SUTRS {
- html { }
html [string range [join [$zset getSutrs $no]] 0 70]
html "
\n"
@@ -205,7 +205,7 @@ proc display-brief {zset no setNo targetNo} {
set publisher [$zset getMarc $no field 260 * b]
set year [$zset getMarc $no field 260 * c]
} dispError ] } {
- html { }
set p 0
foreach a $author {
@@ -253,7 +253,7 @@ proc display-brief {zset no setNo targetNo} {
}
html { }
} else {
- html { }
html {No Title}
html { }
@@ -726,12 +726,12 @@ proc display-scan {setNo scanNo tno} {
html {