#
-# $Id: z39util.tcl,v 1.13 1995/12/21 15:49:53 adam Exp $
+# $Id: z39util.tcl,v 1.15 1996/01/02 10:52:32 adam Exp $
#
proc saveState {} {
uplevel #0 {
if {"x$url" != "x"} {
html "<dt><b>URL</b>\n"
if {"x$sp" == "x"} {
- set sp reference
+ set sp $url
}
html {<dd><a href="} $url {">} [join $sp] "</a>\n"
}
return 0
}
} else {
- if {![catch [list $zz.$setNo smallSetUpperBound 0]]} {
+ if {[info exists hist($setNo,hits)] && \
+ ![catch [list $zz.$setNo smallSetUpperBound 0]]} {
return 1
}
+
}
ir-set $zz.$setNo $zz
if {![info exists nextSetNo]} {
return
}
- html "<hr><h3>History</h3><dl>\n"
+ html "<hr><h2>History</h2><dl><br>\n"
for {set setNo 1} {$setNo < $nextSetNo} {incr setNo} {
html {<dt> <a href="http:} $env(SCRIPT_NAME)
html / $sessionId {/search.egw/} $setNo + 1
proc displayError {msga msgb} {
html "<p><center>\n"
- html {<img src="/gif/noway.gif">}
+ html {<img src="/gif/noway.gif" alt="Error">}
html "<h2>" $msga "</h2>\n"
if {$msgb != ""} {
html "<h3>" $msgb "</h3>\n"
html "</center><p>\n"
}
-set useIcons 1
\ No newline at end of file
+set useIcons 1