www/search.egw

   1 <html>
   2 {
   3 # $Id: search.egw,v 1.14 1995/11/10 14:47:32 adam Exp $
   4
   5 proc buttons {setNo setMax startPos} {
   6     global sessionId
   7     global env
   8     global hist
   9
  10     html "<p>\n"
  11     if {$setMax < [z39.$setNo resultCount]} {
  12         html {<a href="http:} $env(SCRIPT_NAME)
  13         html / $sessionId {/search.egw/} $setNo + [expr $setMax + 1]
  14         html + [expr $setMax + $hist($setNo,maxPresent)]
  15         html {">Next records</a>} " | \n"
  16     }
  17     if {$startPos != "" && $startPos != "1"} {
  18         html {<a href="http:} $env(SCRIPT_NAME)
  19         html / $sessionId {/search.egw/} $setNo
  20         if {[expr $startPos - $hist($setNo,maxPresent)] > 1} {
  21             html + [expr $startPos - $hist($setNo,maxPresent)]
  22             html + [expr $startPos - 1]
  23         }
  24         html {">Previous records</a>} " | \n"
  25     }
  26     html {<a href="http:} $env(SCRIPT_NAME)
  27     html / $sessionId {/targets.egw">New target</a>} " | \n"
  28     html {<a href="http:} $env(SCRIPT_NAME)
  29     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo
  30     html {">New query</a>} "\n<p>\n"
  31 }
  32
  33     if {[info commands saveState] == ""} {
  34         source z39util.tcl
  35     }
  36     global sessionWait
  37     global nextSetNo
  38     global setNo
  39     global hist
  40
  41     set setNo [lindex $sessionParms 0]
  42     if {[wform menu1] != ""} {
  43         set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
  44         set hist($nextSetNo,host) $hist($setNo,host)
  45         set setNo $nextSetNo
  46         html "using host " $hist($setNo,host) " <br\n"
  47         incr nextSetNo
  48
  49         set hist($setNo,query) [build-query $hist($setNo,host)]
  50         set b [wform base]
  51         if {$b == ""} {
  52             set hist($setNo,database) $databases
  53         } else {
  54             set hist($setNo,database) $b
  55         }
  56         set hist($setNo,maxPresent) [wform hits]
  57         if {$hist($setNo,maxPresent) == ""} {
  58             set hist($setNo,maxPresent) 30
  59         }
  60     }
  61     set host $hist($setNo,host)
  62     set databases [lindex $targets($host) 1]
  63
  64     html "<head><title> WWW/Z39.50 Gateway Search " $host " </title>\n"
  65     html "</head><body>\n"
  66
  67     set startPos [lindex $sessionParms 1]
  68     set endPos [lindex $sessionParms 2]
  69     set setMax 0
  70     set setOffset 0
  71     if {$startPos == ""} {
  72         if {[z39search $setNo 1 0] != "1"} {
  73             return
  74         }
  75         set r [z39.$setNo resultCount]
  76         html "<h2> Search result $r hits</h2>\n"
  77         wflush
  78         set setOffset [z39.$setNo numberOfRecordsReturned]
  79         display-rec 1 $setOffset display-brief 0
  80         incr setOffset
  81         set setMax [z39.$setNo resultCount]
  82         if {$setMax > $hist($setNo,maxPresent)} {
  83             set setMax $hist($setNo,maxPresent)
  84         }
  85     } else {
  86         if {[z39search $setNo 0 0] != "1"} {
  87             return
  88         }
  89         set r [z39.$setNo resultCount]
  90         html "<h2> Search result $r hits</h2>\n"
  91         wflush
  92         set setOffset $startPos
  93         set setMax [z39.$setNo resultCount]
  94         if {$setMax > $endPos} {
  95             set setMax $endPos
  96         }
  97         if {$setMax > 0} {
  98             buttons $setNo $setMax $startPos
  99         }
 100     }
 101     if {$setMax > 0} {
 102         z39present $setNo 0 $setOffset $setMax display-brief
 103     }
 104
 105     buttons $setNo $setMax $startPos
 106 }
 107
 108 {
 109     html "<hr>\n"
 110     html "<h3>Debug information</h3>\n"
 111     html "sessionId: $sessionId <br>\n"
 112     html "sessionParms: $sessionParms <br>\n"
 113     foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
 114         html $e {: } $env($e) {<br>} \n
 115     }
 116     html "form: " [wform] " <br>\n"
 117     html "target: " $host " <br>\n"
 118     html "databases: " $hist($setNo,database) " <br>\n"
 119     html "selected: " [wform base] " <br>\n"
 120     html "query: --" $hist($setNo,query) "-- <br>"
 121     html "setNo: " $setNo " <br>\n"
 122     html "nextSetNo: " $nextSetNo " <br>\n"
 123 }
 124
 125 </body>
 126 </html>