X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=eed24c07f54fd64975d8f13c7c042e90360991f4;hb=7c2d86a77557592c7dd8d5415d8345f9bb74661c;hp=d6d871754f9b3ae88475637061cc9b5154bd5c45;hpb=dc96146a41b92065d4fbb398dd1c66afd338f0c7;p=egate.git diff --git a/www/search.egw b/www/search.egw index d6d8717..eed24c0 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,6 +1,6 @@ { -# $Id: search.egw,v 1.29 1996/01/12 13:39:22 adam Exp $ +# $Id: search.egw,v 1.31 1996/01/26 15:50:08 adam Exp $ proc start-scan {scanNo cache dir initSet} { global sessionId @@ -16,9 +16,50 @@ proc start-scan {scanNo cache dir initSet} { set host $hist($setNo,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 == ""} { @@ -50,14 +91,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 {