www/sameas.egw

   1 <html>
   2 {
   3 # $Id: sameas.egw,v 1.1 1996/03/07 12:46:08 adam Exp $
   4     if {[info commands saveState] == ""} {
   5         source z39util.tcl
   6     }
   7     global nextSetNo
   8
   9     set setNo [lindex $sessionParms 0]
  10     set targetNo [lindex $sessionParms 1]
  11     set startPos [lindex $sessionParms 2]
  12     set endPos [lindex $sessionParms 3]
  13     set docId [lindex $sessionParms 4]
  14
  15     if {[info exists hist(setNoT,docId$docId)]} {
  16         set setNo $hist(setNoT,docId$docId)
  17     } else {
  18         set hist($nextSetNo,$targetNo,idAuthentication) \
  19                 $hist($setNo,$targetNo,idAuthentication)
  20         set hist($nextSetNo,$targetNo,host) \
  21                 $hist($setNo,$targetNo,host)
  22         set hist($nextSetNo,$targetNo,database) \
  23                 $hist($setNo,$targetNo,database)
  24         set setNo $nextSetNo
  25         incr nextSetNo
  26     }
  27     set hist($setNo,scan) 0
  28
  29     for {set i 1} {$i <= 3} {incr i} {
  30         set hist($setNo,form,menu$i) {}
  31         set hist($setNo,form,entry$i) {}
  32         set hist($setNo,form,logic$i) {}
  33     }
  34     set host $hist($setNo,$targetNo,host)
  35
  36     html "<head><title> WWW/Z39.50 Gateway Search Feedback "
  37     html [splitHostSpec $host]
  38     html " </title>\n"
  39     html "</head><body>\n"
  40
  41     set hist($setNo,$targetNo,query) {}
  42     set hist($setNo,$targetNo,queryId) $docId
  43     egw_log debug "In sameas: got docID $docId"
  44     display-result-set-s $setNo $targetNo $startPos $endPos
  45 }
  46 </html>