From dc96146a41b92065d4fbb398dd1c66afd338f0c7 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Fri, 12 Jan 1996 13:39:22 +0000 Subject: [PATCH] Scan work. --- www/search.egw | 30 +++++++++++++++++++++++++++--- 1 file changed, 27 insertions(+), 3 deletions(-) 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" -- 1.7.10.4