X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=fd25d08ff8236d9404a0774351ee919a70b0e604;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=d6d871754f9b3ae88475637061cc9b5154bd5c45;hpb=dc96146a41b92065d4fbb398dd1c66afd338f0c7;p=egate.git diff --git a/www/search.egw b/www/search.egw index d6d8717..fd25d08 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,8 +1,8 @@ { -# $Id: search.egw,v 1.29 1996/01/12 13:39:22 adam Exp $ +# $Id: search.egw,v 1.38 1996/03/13 14:07:31 adam Exp $ -proc start-scan {scanNo cache dir initSet} { +proc start-scan {scanNo targetNo cache dir initSet} { global sessionId global sessionParms global sessionWait @@ -14,23 +14,66 @@ 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 databases [lindex $targets($host) 1] + set useIcons 1 + button-main + + 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 $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 $setNo + + set databases [splitDatabaseSpec $host] if {$initSet == ""} { set databaseDefault [lindex $databases 0] 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 {