projects
/
egate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added new targets.
[egate.git]
/
www
/
z39util.tcl
diff --git
a/www/z39util.tcl
b/www/z39util.tcl
index
451fb70
..
59131ff
100644
(file)
--- a/
www/z39util.tcl
+++ b/
www/z39util.tcl
@@
-1,5
+1,5
@@
#
#
-# $Id: z39util.tcl,v 1.29 1996/01/31 15:56:37 adam Exp $
+# $Id: z39util.tcl,v 1.30 1996/02/12 13:39:41 adam Exp $
#
proc saveState {} {
uplevel #0 {
#
proc saveState {} {
uplevel #0 {
@@
-104,7
+104,7
@@
proc display-brief {zset no tno} {
set location [$zset getMarc $no field 260 * a]
set publisher [$zset getMarc $no field 260 * b]
set year [$zset getMarc $no field 260 * c]
set location [$zset getMarc $no field 260 * a]
set publisher [$zset getMarc $no field 260 * b]
set year [$zset getMarc $no field 260 * c]
- } ] } {
+ } dispError ] } {
html { <a href="http:} $env(SCRIPT_NAME) /
html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
set p 0
html { <a href="http:} $env(SCRIPT_NAME) /
html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
set p 0
@@
-140,12
+140,22
@@
proc display-brief {zset no tno} {
if {$nope} {
set v [join $cover ""]
if {[string length $v] > 40} {
if {$nope} {
set v [join $cover ""]
if {[string length $v] > 40} {
+ set nope 0
html [string range $v 0 38] "..."
html [string range $v 0 38] "..."
- } else {
+ } elseif {[string length $v] > 0} {
+ set nope 0
html $v
html $v
+ } else {
+ html "No Title"
}
}
html {</a> }
}
}
html {</a> }
+ } else {
+ html { <a href="http:} $env(SCRIPT_NAME) /
+ html $sessionId {/showfull.egw/} $setNo + $tno + $no + full {">}
+ html {No Title}
+ html {</a> }
+ html "Error: " $dispError "\n"
}
html "<br>\n"
}
}
html "<br>\n"
}