www/showfull.egw

   1 <html>
   2 {
   3 # $Id: showfull.egw,v 1.9 1995/11/10 14:47:32 adam Exp $
   4
   5 proc buttons {setNo tno no format count host} {
   6     global sessionId
   7     global env
   8     global hist
   9
  10     html "<p>\n"
  11     if {$no < $count} {
  12         html {<a href="http:} $env(SCRIPT_NAME)
  13         html / $sessionId {/showfull.egw/} $setNo + $tno +
  14         html [expr $no + 1] + $format
  15         html {">Next record</a>} " | \n"
  16     }
  17     if {$no > 1} {
  18         html {<a href="http:} $env(SCRIPT_NAME)
  19         html / $sessionId {/showfull.egw/} $setNo + $tno +
  20         html [expr $no - 1] + $format
  21         html {">Previous record</a>} " | \n"
  22     }
  23
  24     html {<a href="http:} $env(SCRIPT_NAME)
  25     html / $sessionId {/showfull.egw/} $setNo + $tno + $no +
  26     if {$format == "full"} {
  27        html raw {">Raw format</a>} " | \n"
  28     } else {
  29        html full {">Full format</a>} " | \n"
  30     }
  31
  32     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  33     if {$tno > 0} {
  34         html {/msearch.egw/}
  35     } else {
  36         html {/search.egw/}
  37     }
  38     html $setNo + 1
  39     html + $hist($setNo,maxPresent)
  40     html {">Result</a>} " | \n"
  41
  42     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  43     if {$tno > 0} {
  44         html {/mtargets.egw}
  45     } else {
  46         html {/targets.egw}
  47     }
  48     html {">New target</a>} " | \n"
  49
  50     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  51     if {$tno > 0} {
  52         html {/mquery.egw/}
  53     } else {
  54         html {/query.egw/}
  55     }
  56     html $host + $setNo
  57     html {">New query</a>} "<p>\n"
  58
  59 }
  60
  61     if {[info commands saveState] == ""} {
  62         source z39util.tcl
  63     }
  64
  65     html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
  66     html "</head><body>\n"
  67
  68     global setNo
  69     global hist
  70
  71     set sno [lindex $sessionParms 0]
  72     set tno [lindex $sessionParms 1]
  73     set no [lindex $sessionParms 2]
  74     set format [lindex $sessionParms 3]
  75
  76     set setNo $sno
  77
  78     if {$tno > 0} {
  79         set zz z39$tno
  80         set host $hist($setNo,$tno,host)
  81     } else {
  82         set zz z39
  83         set host $hist($setNo,$0,host)
  84     }
  85
  86     if {[z39search $setNo 0 $tno] != "1"} {
  87         return
  88     }
  89     set count [$zz.$setNo resultCount]
  90     html "<h2>Record \#$no out of $count </h2><br>\n"
  91
  92     buttons $setNo $tno $no $format $count $host
  93
  94     eval {z39present $setNo $tno $no $no display-$format}
  95     buttons $setNo $tno $no $format $count $host
  96 }
  97 </body>
  98 </html>
  99