{
# $Id: sameas.egw,v 1.1 1996/03/07 12:46:08 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
global nextSetNo
set setNo [lindex $sessionParms 0]
set targetNo [lindex $sessionParms 1]
set startPos [lindex $sessionParms 2]
set endPos [lindex $sessionParms 3]
set docId [lindex $sessionParms 4]
if {[info exists hist(setNoT,docId$docId)]} {
set setNo $hist(setNoT,docId$docId)
} else {
set hist($nextSetNo,$targetNo,idAuthentication) \
$hist($setNo,$targetNo,idAuthentication)
set hist($nextSetNo,$targetNo,host) \
$hist($setNo,$targetNo,host)
set hist($nextSetNo,$targetNo,database) \
$hist($setNo,$targetNo,database)
set setNo $nextSetNo
incr nextSetNo
}
set hist($setNo,scan) 0
for {set i 1} {$i <= 3} {incr i} {
set hist($setNo,form,menu$i) {}
set hist($setNo,form,entry$i) {}
set hist($setNo,form,logic$i) {}
}
set host $hist($setNo,$targetNo,host)
html " WWW/Z39.50 Gateway Search Feedback "
html [splitHostSpec $host]
html " \n"
html "\n"
set hist($setNo,$targetNo,query) {}
set hist($setNo,$targetNo,queryId) $docId
egw_log debug "In sameas: got docID $docId"
display-result-set-s $setNo $targetNo $startPos $endPos
}