From: Adam Dickmeiss Date: Fri, 12 Jan 1996 13:39:22 +0000 (+0000) Subject: Scan work. X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=dc96146a41b92065d4fbb398dd1c66afd338f0c7;p=egate.git Scan work. --- diff --git a/www/search.egw b/www/search.egw index 670facd..d6d8717 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,6 +1,6 @@ { -# $Id: search.egw,v 1.28 1996/01/12 13:08:30 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"