www/showfull.egw

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