X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=d6d871754f9b3ae88475637061cc9b5154bd5c45;hb=65003d9d2a91f977ea85bef14e5e4d78806c45a5;hp=ede4eed6712f6b0ca9e13cd3d257b4d9767e52da;hpb=fff045d159e76bb8bb856fd7d2e6d34c1498d5a5;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index ede4eed..d6d8717 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
{
-# $Id: search.egw,v 1.27 1996/01/12 10:03:19 adam Exp $
+# $Id: search.egw,v 1.29 1996/01/12 13:39:22 adam Exp $
proc start-scan {scanNo cache dir initSet} {
global sessionId
@@ -72,8 +72,12 @@ proc start-scan {scanNo cache dir initSet} {
html { size=35> }
html {}
html "\n"
- html {}
+ html {
}
+
+ button-europagate
+
if {$hist($setNo,$scanNo,scanTerm) == ""} {
+ button-new-query 0 $setNo
wabort
return
}
@@ -91,7 +95,27 @@ proc start-scan {scanNo cache dir initSet} {
return
}
- html "
\n" + html {} + if {$useIcons} { + html {} + } else { + html {Previous Terms | } + } + + html {} + if {$useIcons} { + html {} + } else { + html {Next Terms | } + } + html {} + button-new-query 0 $setNo + + html "
\n" display-scan $setNo $scanNo 0 html "
\n" @@ -235,7 +259,7 @@ proc buttons {setNo setMax startPos after} { set termPlusAttr [build-scan $hist($setNo,host) $i] set hist($setNo,$scanNo,scanTerm) [lindex $termPlusAttr 0] set hist($setNo,scanAttr) [lindex $termPlusAttr 1] - start-scan $scanNo 0 {} $setNo + start-scan $scanNo 0 {} {} html "