<html>
{
-# $Id: msearch.egw,v 1.16 1996/03/07 12:46:08 adam Exp $
+# $Id: msearch.egw,v 1.17 1996/03/08 16:47:04 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
if {$hist($setNo,maxPresent) == ""} {
set hist($setNo,maxPresent) 20
}
+ set hist($setNo,format) [egw_form format]
+ if {![string length $hist($setNo,format)]} {
+ set hist($setNo,format) brief
+ }
+ set hist($setNo,sort) [egw_form sort]
+ if {![string length $hist($setNo,sort)]} {
+ set hist($setNo,sort) server
+ }
}
set useIcons 1
html "<br>\n"
z39msearch $setNo B 1 $hist($setNo,maxPresent) 1
- html "<dl>\n"
- set not $hist($setNo,0,host)
- for {set i 1} {$i <= $not} {incr i} {
- if {$zstatus($i) != 2} continue
- html "<dt><h3>" [lindex $targets($hist($setNo,$i,host)) 0] ": "
- set status [z39$i.$setNo responseStatus]
- if {[lindex $status 0] == "NSD"} {
- z39$i.$setNo nextResultSetPosition 0
- set code [lindex $status 1]
- set msg [lindex $status 2]
- set addinfo [lindex $status 3]
- html "Error</h3>\n<dd>NSD$code: $msg: $addinfo"
- } else {
- set r [z39$i.$setNo resultCount]
- html "$r hits</h3>\n<dd>\n<ul>\n"
-
- if {$hist($setNo,$i,offset) > $hist($setNo,maxPresent)} {
- display-rec 1 $hist($setNo,maxPresent) display-brief $setNo $i
- } else {
- display-rec 1 $hist($setNo,$i,offset) display-brief $setNo $i
- }
- html "</ul>"
- }
- html "\n"
- }
- html "</dl>\n"
+ display-result-set-m $setNo
set useIcons 0
button-europagate
html "target: " $host " <br>\n"
html "query: --" $hist($setNo,1,query) "-- <br>\n"
html "database: " $hist($setNo,1,database) "<br>\n"
+ html "sort: " $hist($setNo,sort) "<br>\n"
+ html "format: " $hist($setNo,format) "<br>\n"
html "setNo: " $setNo " <br>\n"
html "nextSetNo: " $nextSetNo " <br>\n"
}