X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=85c2194a0af27e6df6bea0c83bcfee62153dbbb5;hb=309c35b155c617707995d52197f64f7e17d143a2;hp=0afbc4e9b4ee09e32e6ea7d6352d03d5c873cc4d;hpb=da4f027b1e7c0bf90efe6782a326448af164cd37;p=egate.git diff --git a/www/showfull.egw b/www/showfull.egw index 0afbc4e..85c2194 100644 --- a/www/showfull.egw +++ b/www/showfull.egw @@ -1,6 +1,6 @@ { -# $Id: showfull.egw,v 1.18 1996/01/29 17:31:48 adam Exp $ +# $Id: showfull.egw,v 1.19 1996/03/05 18:50:25 adam Exp $ proc buttons {setNo tno no format count host after} { global sessionId @@ -77,10 +77,6 @@ proc buttons {setNo tno no format count host after} { source z39util.tcl } - html " WWW/Z39.50 Gateway Record " [splitHostSpec $host] - html " \n" - html "\n" - global setNo global hist @@ -99,6 +95,10 @@ proc buttons {setNo tno no format count host after} { set host $hist($setNo,host) } + html " WWW/Z39.50 Gateway Record " [splitHostSpec $host] + html " \n" + html "\n" + if {[z39search $setNo 0 $tno F] != "1"} { return }