X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=daaf3b7fb70e32b74e0b4e700bfb6bb58e4fdeb5;hb=6ceeaa167e3ef2970b6ef0ce2b6c7d9c362eda0a;hp=d1046ba7bdd561592b52af4266598838e701415e;hpb=74a4580ba9945fc86b47654230865a68089245b6;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index d1046ba..daaf3b7 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,33 +1,148 @@
{
-# $Id: search.egw,v 1.14 1995/11/10 14:47:32 adam Exp $
+# $Id: search.egw,v 1.22 1996/01/03 08:59:43 adam Exp $
-proc buttons {setNo setMax startPos} {
+proc start-scan {scanNo cache dir} {
global sessionId
+ global sessionParms
+ global sessionWait
+ global setNo
+ global hist
+ global targets
+ global nextSetNo
+ global env
+
+ set host $hist($setNo,host)
+
+ html "
WWW/Z39.50 Gateway Scan " $host " \n"
+ html "\n"
+
+ if {$hist($setNo,$scanNo,scanTerm) == ""} {
+ displayError "Empty query" \
+ "You must specify at least one search word"
+ html "\n"
+ wabort
+ return
+ }
+ if {$dir == "b"} {
+ set lines 20
+ set pos 20
+ } elseif {$dir == "f"} {
+ set lines 20
+ set pos 1
+ } else {
+ set lines 20
+ set pos 10
+ }
+ if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} {
+ return
+ }
+ html {Backward} "\n"
+
+ html {Forward
}
+
+ display-scan $setNo $scanNo 0
+
+ html {Backward} "\n"
+
+ html {Forward
}
+
+ html "
\n"
+ html "Debug information
\n"
+ html "sessionId: $sessionId
\n"
+ html "sessionParms: $sessionParms
\n"
+ foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
+ html $e {: } $env($e) {
} \n
+ }
+ html "form: " [wform] "
\n"
+ html "target: " $host "
\n"
+ html "databases: " $hist($setNo,database) "
\n"
+ html "selected: " [wform base] "
\n"
+ html "setNo: " $setNo "
\n"
+ html "nextSetNo: " $nextSetNo "
\n"
+
+ html "\n"
+ displayError "Empty query" \
+ "You must specify at least one search word"
+ html "