X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=ebd2e66fdfb411cedbe2a5496e77367392ecaa0a;hb=6315a552d51ac08b60d25d8500da5574a83ba530;hp=d521220051cd2b56e79619fe3cb2f71ce3b526b4;hpb=d66a4b9debb168d9a03368429bcc933c57553c74;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index d521220..ebd2e66 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,17 +1,129 @@
{
-# $Id: search.egw,v 1.1 1995/10/23 17:04:17 adam Exp $
+# $Id: search.egw,v 1.10 1995/11/08 12:42:17 adam Exp $
+
+proc buttons {setNo setMax startPos} {
+ global sessionId
+ global env
+ global hist
+
+ html "\n"
+ if {$setMax < [z39.$setNo resultCount]} {
+ html { Next } "| \n"
+ }
+ if {$startPos != "" && $startPos != "1"} {
+ html { Prev } "| \n"
+ }
+ html { New target } " | \n"
+ html { New query } "
\n"
}
-
- WWW/Z39.50 Gateway Search Result
-
-
-sessionId: {html $sessionId}
-sessionParms: {html $sessionParms}
-form: {html [form]}
-target: {html $t}
-databases: {html $databases}
- Search in databases
-
+
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
+ global sessionWait
+ global nextSetNo
+ global setNo
+ global hist
+
+ set oldHost $hist($setNo,host)
+
+ 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"
+
+ 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} {
+ buttons $setNo $setMax $startPos
+ }
+ }
+ if {$setMax > 0} {
+ z39present $setNo $setOffset $setMax display-brief
+ }
+
+ buttons $setNo $setMax $startPos
+}
+
+{
+ 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"
+}
+