From b52740e82ab92e99a6982bf5c99a30ac404bd557 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Mon, 13 Nov 1995 15:41:40 +0000 Subject: [PATCH] Arrow gifs. Gateway uses record element set names B(rief) and F(ull). Bug fix. Didn't save idAuthentication correctly. --- www/Makefile | 9 +++++++-- www/darrw.gif | Bin 0 -> 1005 bytes www/mquery.egw | 3 ++- www/msearch.egw | 8 ++++---- www/query.egw | 4 ++-- www/search.egw | 48 ++++++++++++++++++++++++++++++++++-------------- www/showfull.egw | 46 +++++++++++++++++++++++++++++++--------------- www/uarrw.gif | Bin 0 -> 1001 bytes www/wproto.c | 12 +++++++----- www/z39util.tcl | 21 ++++++++++++++++----- 10 files changed, 103 insertions(+), 48 deletions(-) create mode 100644 www/darrw.gif create mode 100644 www/uarrw.gif 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 0000000000000000000000000000000000000000..c6eec5c6d97e3ceffd1185263582009da8c12e53 GIT binary patch literal 1005 zcmVWr~W5udlDv)YJd~fWW}OfPeu10RMmh zfB^sh0Dyo20RaL60s{jB1qB5L1_lQQ2M7oV2?+@b3JMDg3k(bl4Gj$r4h|0w4-gO# z5fKp*5)u;=6BQK|78Vv47Z(^97#SHE8X6iK8yg%P9334U9v&VaA0HqfAR!?kA|fIq zBO@gxB_<{&CnqN;C@3i@DJm)|D=RB3EG#W8EiNuDFE1}JFfcJOF)}hTGcz+aH8nOi zHa9mnI5;>tIXOByIy*Z%JUl!-Jv}}?K0iM{KtMo2K|w-7LPJACMMXtMMn*?RM@UFW zNl8gcN=i#hOH52mO-)TsPEJoxPf$=$QBhG+Qc_b>Q&m+}R#sM5S65hASXo(FT3T9L zTU%UQTwPsVUS3{bUteHgU}0flVq#)rV`F7yWoBk(XJ=<Cc=sHmx_sj8}~tE;Q5tgNlAt*)-FudlDLu&}YQv9hwVv$M0cwY9dkwzs#p zxVX5vxw*Q!y1To(yu7@dCU$jHda z$;ryf%FD~k%*@Qq&CSlv&d<-!(9qD)(b3Y<($mw^)YR0~)z#M4*4Nk9*x1lt)=I7_<=;-L_>FMg~>g((4 z?Ck9A?d|UF?(gsK@bK{Q@$vHV^7Hfa^z`)g_4W4l_V@Sq`1ttw`T6?#`uqF){QUg= z{r&#_{{R2~A^8LW000L7EC2ui03QG!000Qe01pTpNU)&6g9r%*Sjey;!-NPI3YbW- zqJV`E4F(V}prgl+11@GPxN!i1lPFP!3@}n5M*;<6$}B)&Wy^sjVa|+MQ{>G9Id}53 z`7@}{o-B*L6iSomO`|)J{sg-8sMD5EXG&FSlIhl`Rij=d=}=-13Xar#gmtvhq}* bi8Ftmo73}X(j4=i)+={4*~6|^2Lu2+U=QTO literal 0 HcmV?d00001 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 "

" $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:

Various technical parameters: