From: Adam Dickmeiss Date: Mon, 13 Nov 1995 15:41:40 +0000 (+0000) Subject: Arrow gifs. X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=b52740e82ab92e99a6982bf5c99a30ac404bd557;p=egate.git Arrow gifs. Gateway uses record element set names B(rief) and F(ull). Bug fix. Didn't save idAuthentication correctly. --- diff --git a/www/Makefile b/www/Makefile index 4274f14..a00542d 100644 --- a/www/Makefile +++ b/www/Makefile @@ -2,7 +2,12 @@ # Europagate, 1995 # # $Log: Makefile,v $ -# Revision 1.13 1995/11/08 18:07:22 adam +# Revision 1.14 1995/11/13 15:41:40 adam +# Arrow gifs. +# Gateway uses record element set names B(rief) and F(ull). +# Bug fix. Didn't save idAuthentication correctly. +# +# Revision 1.13 1995/11/08 18:07:22 adam # Minor changes. # # Revision 1.12 1995/11/08 16:14:32 adam @@ -63,7 +68,7 @@ WSCRIPTS=egwscript targets.egw query.egw search.egw showfull.egw z39util.tcl \ mtargets.egw mquery.egw msearch.egw HSCRIPTS=egwindex.html CONFFILES=ztargets.conf -GIFFILES=webgate.gif +GIFFILES=webgate.gif darrw.gif uarrw.gif TPROG1=egwcgi TPROG2=egwsh TPROG3=wtest diff --git a/www/darrw.gif b/www/darrw.gif new file mode 100644 index 0000000..c6eec5c Binary files /dev/null and b/www/darrw.gif differ diff --git a/www/mquery.egw b/www/mquery.egw index de4b307..eaae83e 100644 --- a/www/mquery.egw +++ b/www/mquery.egw @@ -4,7 +4,7 @@ { -# $Id: mquery.egw,v 1.4 1995/11/10 14:47:31 adam Exp $ +# $Id: mquery.egw,v 1.5 1995/11/13 15:41:41 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -13,6 +13,7 @@ global setNo global nextSetNo global hist + global targets if {[catch {set setNo $nextSetNo}]} { set nextSetNo 1 diff --git a/www/msearch.egw b/www/msearch.egw index ee40776..efe43b9 100644 --- a/www/msearch.egw +++ b/www/msearch.egw @@ -1,6 +1,6 @@ { -# $Id: msearch.egw,v 1.4 1995/11/10 14:47:31 adam Exp $ +# $Id: msearch.egw,v 1.5 1995/11/13 15:41:42 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -21,7 +21,7 @@ set hist($nextSetNo,$i,host) $hist($setNo,$i,host) set hist($nextSetNo,$i,database) $hist($setNo,$i,database) set hist($nextSetNo,$i,idAuthentication) \ - hist($setNo,$i,idAuthentication) + $hist($setNo,$i,idAuthentication) } set setNo $nextSetNo incr nextSetNo @@ -34,13 +34,13 @@ set hist($setNo,maxPresent) 30 } } - z39msearch $setNo 1 + z39msearch $setNo 1 B html "
\n" set not $hist($setNo,0,host) for {set i 1} {$i <= $not} {incr i} { if {$zstatus($i) != 2} continue - html "
" $hist($setNo,$i,host) ": " + html "
" [lindex $targets($hist($setNo,$i,host)) 0] ": " set status [z39$i.$setNo responseStatus] if {[lindex $status 0] == "NSD"} { z39$i.$setNo nextResultSetPosition 0 diff --git a/www/query.egw b/www/query.egw index e180d1e..48a03ba 100644 --- a/www/query.egw +++ b/www/query.egw @@ -4,7 +4,7 @@ { -# $Id: query.egw,v 1.14 1995/11/10 14:47:31 adam Exp $ +# $Id: query.egw,v 1.15 1995/11/13 15:41:42 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -141,7 +141,7 @@ Alternatively you can enter your query in

Various technical parameters:


-Max hits: +Max hits: Records are shown in: