www/showfull.egw

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