X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fsearch.egw;h=76a443414e1a89658f1099ae49c5f776147f82e1;hb=6e37e8e91bf35cb14c930e8988085cf78f11029a;hp=7c0b84e5346b81d5f6ddaec5836a0a355a5b9c3c;hpb=c1c09b4242df9a16cd11477deea2e35f8ff57fec;p=egate.git diff --git a/www/search.egw b/www/search.egw index 7c0b84e..76a4434 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,44 +1,120 @@ { -# $Id: search.egw,v 1.2 1995/10/27 17:30:16 adam Exp $ +# $Id: search.egw,v 1.9 1995/11/07 14:56:59 adam Exp $ -proc search-response {} { + if {[info commands saveState] == ""} { + source z39util.tcl + } global sessionWait - set sessionWait 0 + global nextSetNo + global setNo + global hist - htmlr "search response
" - set r [z39.1 resultCount] - htmlr "$r hits
" - htmlr "" -} + set oldHost $hist($setNo,host) -proc fail-response {} { - global sessionWait - set sessionWait 0 + if {[wform menu1] == ""} { + set setNo [lindex $sessionParms 0] + } else { + if {![info exists hist($nextSetNo,host)]} { + set hist($nextSetNo,host) $oldHost + } + set setNo $nextSetNo + html "using host " $hist($setNo,host) " WWW/Z39.50 Gateway Search " $host " \n" + html "\n" - htmlr "failed
" - htmlr "" + set startPos [lindex $sessionParms 1] + set endPos [lindex $sessionParms 2] + set setMax 0 + set setOffset 0 + if {$startPos == ""} { + if {[z39search $setNo 1] != "1"} { + return + } + set r [z39.$setNo resultCount] + html "

Search result $r hits

\n" + wflush + set setOffset [z39.$setNo numberOfRecordsReturned] + display-rec 1 $setOffset display-brief z39 + incr setOffset + set setMax [z39.$setNo resultCount] + if {$setMax > $hist($setNo,maxPresent)} { + set setMax $hist($setNo,maxPresent) + } + } else { + if {[z39search $setNo 0] != "1"} { + return + } + set r [z39.$setNo resultCount] + html "

Search result $r hits

\n" + wflush + set setOffset $startPos + set setMax [z39.$setNo resultCount] + if {$setMax > $endPos} { + set setMax $endPos + } + } + if {$setMax > 0} { + z39present $setNo $setOffset $setMax display-brief + } } - global sessionWait - z39 callback search-response - z39 failback fail-response - set sessionWait 1 - ir-set z39.1 z39 - z39.1 databaseNames [form base] - z39.1 search [form entry1] - htmlr - htmlr " WWW/Z39.50 Gateway Search Result ..." +
+{ + if {$setMax < [z39.$setNo resultCount]} { + html { Next } "| \n" + } + if {$startPos != "" && $startPos != "1"} { + html { Prev } "| \n" + } + html { New target } " | \n" + html { New query } } - - -sessionId: {html $sessionId}
-sessionParms: {html $sessionParms}
-form: {html [form]}
-target: {html $t}
-databases: {html $databases}
-

Search in databases

+ { - htmlr [form entry1]
+ 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 "query: --" $hist($setNo,query) "--
" + html "setNo: " $setNo "
\n" + html "nextSetNo: " $nextSetNo "
\n" } + + +