From 15bfeea050c1282aa6d53ad8bea324369832e40e Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 4 Jan 1996 13:30:32 +0000 Subject: [PATCH] Improved history. --- www/targets.egw | 3 ++- www/z39util.tcl | 25 +++++++++++++++---------- www/ztargets.conf | 4 ++-- 3 files changed, 19 insertions(+), 13 deletions(-) diff --git a/www/targets.egw b/www/targets.egw index 143c721..a9889fe 100644 --- a/www/targets.egw +++ b/www/targets.egw @@ -1,6 +1,6 @@ { -# $Id: targets.egw,v 1.11 1996/01/03 15:19:50 adam Exp $ +# $Id: targets.egw,v 1.12 1996/01/04 13:30:32 adam Exp $ source /usr/local/etc/httpd/conf/ztargets.conf if {[info commands saveState] == ""} { source z39util.tcl @@ -36,6 +36,7 @@ set tt [array names targets] set tn [lsort -command targetsCmp $tt] foreach t $tn { + if {[string index $t 0] == "."} continue html {
} [lindex $targets($t) 0] " \n" set desc [lindex $targets($t) 4] diff --git a/www/z39util.tcl b/www/z39util.tcl index 1de9d26..4853f0a 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -1,5 +1,5 @@ # -# $Id: z39util.tcl,v 1.17 1996/01/03 15:19:52 adam Exp $ +# $Id: z39util.tcl,v 1.18 1996/01/04 13:30:33 adam Exp $ # proc saveState {} { uplevel #0 { @@ -894,23 +894,28 @@ proc z39history {} { html "

History


\n" for {set setNo 1} {$setNo < $nextSetNo} {incr setNo} { if {$hist($setNo,scan) > 0} continue - html {
} [lindex $targets($hist($setNo,host)) 0] - if {[llength $hist($setNo,database)] > 1} { + set host $hist($setNo,host) + html {
} [lindex $targets($host) 0] + if {[llength [lindex $targets($host) 1]] > 1} { html ": " foreach b $hist($setNo,database) { html " $b" } } - html " -- " + html {. } + if {[info exists hist($setNo,hits)]} { - html $hist($setNo,hits) " hits" + html { Result: } $hist($setNo,hits) { hits.} } else { - html failed + html {Search failed.} } html "
\n" + html { Query: } set op {} for {set i 1} {$i <= 3} {incr i} { if {[string length $hist($setNo,form,entry$i)] > 0} { @@ -1009,4 +1014,4 @@ proc maintenance {} { html {Last modified 3. january 1996.
} html { This and the following pages are under construction and } html {will continue to be so until the end of January 1996.} -} \ No newline at end of file +} diff --git a/www/ztargets.conf b/www/ztargets.conf index 2744d6e..2e51bc6 100644 --- a/www/ztargets.conf +++ b/www/ztargets.conf @@ -1,4 +1,4 @@ -# $Id: ztargets.conf,v 1.15 1996/01/03 15:19:54 adam Exp $ +# $Id: ztargets.conf,v 1.16 1996/01/04 13:30:33 adam Exp $ set commonFields { { Title {@attr 1=4} } { Author {@attr 1=1003} } @@ -82,7 +82,7 @@ set targets(localhost:9998) { set targets(dtbsun.dtv.dk:9999) { Zebra - {usgs esdd cd_rom iah} + {usgs esdd cd_rom iah www_dk} { { Title {@attr 1=4} } { Author {@attr 1=1003} } -- 1.7.10.4