www/showfull.egw

   1 <html>
   2 {
   3 # $Id: showfull.egw,v 1.5 1995/11/08 12:42:17 adam Exp $
   4
   5 proc buttons {setNo no} {
   6     global sessionId
   7     global env
   8     global hist
   9
  10     html "<p>\n"
  11     if {$no < [z39.$setNo resultCount]} {
  12         html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
  13         html / $sessionId {/showfull.egw/} $setNo + [expr $no + 1]
  14         html {"> Next </a>} "| \n"
  15     }
  16     if {$no > 1} {
  17         html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
  18         html / $sessionId {/showfull.egw/} $setNo + [expr $no - 1]
  19         html {"> Prev </a>} "| \n"
  20     }
  21     html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
  22     html / $sessionId {/search.egw/} $setNo + 1
  23     html + [expr $hist($setNo,maxPresent) - 1]
  24     html {"> Result </a>} "| \n"
  25
  26     html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
  27     html / $sessionId {/targets.egw"> New target </a>} " | \n"
  28     html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
  29     html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo
  30     html {"> New query </a>} "<p>\n"
  31 }
  32
  33     if {[info commands saveState] == ""} {
  34         source z39util.tcl
  35     }
  36
  37     html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
  38     html "</head><body>\n"
  39
  40     global setNo
  41     global hist
  42
  43     set sno [lindex $sessionParms 0]
  44     set no [lindex $sessionParms 1]
  45
  46     set setNo $sno
  47
  48     if {[z39search $setNo 0] != "1"} {
  49         return
  50     }
  51     set total [z39.$setNo resultCount]
  52     html "<h2>Record \#$no out of $total </h2><br>\n"
  53
  54     buttons $setNo $no
  55
  56     z39present $setNo $no $no display-full
  57
  58     buttons $setNo $no
  59 }
  60 </body>
  61 </html>
  62