X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=738906bd5ea7c1762c8bd8154ed96cca339f0b4c;hb=4938d0c2e8f4e1eec397c2bfbbc7e23fd150c369;hp=588f13a4d6cc9585402281689f447ad3686428d3;hpb=ebeb5e591b8f1bf6c5045efaddf74f3eee7bdbaf;p=egate.git diff --git a/www/search.egw b/www/search.egw index 588f13a..738906b 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,8 +1,8 @@ { -# $Id: search.egw,v 1.30 1996/01/24 08:27:29 adam Exp $ +# $Id: search.egw,v 1.34 1996/03/07 12:46:09 adam Exp $ -proc start-scan {scanNo cache dir initSet} { +proc start-scan {scanNo targetNo cache dir initSet} { global sessionId global sessionParms global sessionWait @@ -14,11 +14,54 @@ proc start-scan {scanNo cache dir initSet} { global useIcons global debug - set host $hist($setNo,host) + set host $hist($setNo,$targetNo,host) - html " WWW/Z39.50 Gateway Scan " $host " \n" + html " WWW/Z39.50 Gateway Scan " [splitHostSpec $host] + html " \n" html "\n" + set useIcons 1 + button-europagate + + 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 {$hist($setNo,$scanNo,scanTerm) != ""} { + if {[z39scan $setNo $scanNo 0 $lines $pos $cache] != "1"} { + button-new-query 0 $setNo + egw_log debug "z39_scan failed" + return + } + html {} + if {$useIcons} { + html {} + } else { + html {Previous Terms | } + } + + html {} + if {$useIcons} { + html {} + } else { + html {Next Terms | } + } + html {} + } + button-new-query 0 $setNo + set databases [lindex $targets($host) 1] if {$initSet == ""} { @@ -26,11 +69,11 @@ proc start-scan {scanNo cache dir initSet} { set oSetNo 0 } else { set oSetNo $initSet - set databaseDefault $hist($oSetNo,database) + set databaseDefault $hist($oSetNo,$targetNo,database) } html {
} \n + html / $sessionId {/search.egw/} $setNo + $targetNo {+1" method=get>} \n set nodb [llength $databases] if {$nodb > 1} { if {$nodb > 2} { @@ -50,14 +93,15 @@ proc start-scan {scanNo cache dir initSet} { html { All
} \n } - html "Input your search criteria:
\n" } + html "Input your scan criteria:
\n" set fields [lindex $targets($host) 2] set no 1 html {