X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=daaf3b7fb70e32b74e0b4e700bfb6bb58e4fdeb5;hb=6ceeaa167e3ef2970b6ef0ce2b6c7d9c362eda0a;hp=be30940e2200b6c7a4c41923bf3eba7cc5d7b9d8;hpb=fb42e8909c46dfe29d2b8d8852e0ebf297eb2963;p=egate.git diff --git a/www/search.egw b/www/search.egw index be30940..daaf3b7 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,43 +1,291 @@ { -# $Id: search.egw,v 1.3 1995/10/30 17:35:18 adam Exp $ +# $Id: search.egw,v 1.22 1996/01/03 08:59:43 adam Exp $ -proc search-response {} { +proc start-scan {scanNo cache dir} { + global sessionId + global sessionParms global sessionWait - set sessionWait 1 + global setNo + global hist + global targets + global nextSetNo + global env + + set host $hist($setNo,host) + + html "
\n" } -proc fail-response {} { - global sessionWait - set sessionWait -1 +proc buttons {setNo setMax startPos after} { + global sessionId + global useIcons + global env + global hist + + if {!$useIcons && $after && $setMax < [z39.$setNo resultCount]} { + html "
\n" + html "
\n" + } + + html "
\n"
+ if {$useIcons} {
+ html {}
+ }
+ if {$setMax < [z39.$setNo resultCount]} {
+ html {
}
+ } else {
+ html {">Next Records} " | \n"
+ }
+ }
+ if {$startPos != "" && $startPos != "1"} {
+ html {
}
+ } else {
+ html {">Previous Records} " | \n"
+ }
+ }
+ html {
}
+ } else {
+ html {">New Query} " | \n"
+ }
+
+ html {
}
+ } else {
+ html {">New Target}
+ }
+ html "
\n" + if {!$useIcons && !$after && $startPos != "" && $startPos != "1"} { + html "
\n" + } + } + if {[info commands saveState] == ""} { + source z39util.tcl + } global sessionWait - z39 callback search-response - z39 failback fail-response - set sessionWait 0 - ir-set z39.1 z39 - z39.1 databaseNames [form base] - z39.1 search [form entry1] - htmlr {
} - htmlr {