www/showfull.egw

   1 <html>
   2 {
   3 # $Id: showfull.egw,v 1.19 1996/03/05 18:50:25 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/}
  59     } else {
  60         html {/search.egw/}
  61     }
  62     html $setNo + 1
  63     html + $hist($setNo,maxPresent)
  64     if {$useIcons} {
  65         html {"><img src="/egwgif/button-result-set.gif" }
  66         html {alt="Result Set" border=0></a>}
  67     } else {
  68         html {">Result Set</a>} " | \n"
  69     }
  70
  71     button-new-query 1 $setNo
  72     button-new-target 0
  73     html "<p>\n"
  74 }
  75
  76     if {[info commands saveState] == ""} {
  77         source z39util.tcl
  78     }
  79
  80     global setNo
  81     global hist
  82
  83     set sno [lindex $sessionParms 0]
  84     set tno [lindex $sessionParms 1]
  85     set no [lindex $sessionParms 2]
  86     set format [lindex $sessionParms 3]
  87
  88     set setNo $sno
  89
  90     if {$tno > 0} {
  91         set zz z39$tno
  92         set host $hist($setNo,$tno,host)
  93     } else {
  94         set zz z39
  95         set host $hist($setNo,host)
  96     }
  97
  98     html "<head><title> WWW/Z39.50 Gateway Record " [splitHostSpec $host]
  99     html " </title>\n"
 100     html "</head><body>\n"
 101
 102     if {[z39search $setNo 0 $tno F] != "1"} {
 103         return
 104     }
 105
 106     set count [$zz.$setNo resultCount]
 107
 108     set useIcons 1
 109     buttons $setNo $tno $no $format $count $host 0
 110
 111     html "<h3>Record \#$no out of $count </h3><br>\n"
 112
 113     eval {z39present $setNo $tno $no $no display-$format F}
 114     set useIcons 0
 115     buttons $setNo $tno $no $format $count $host 1
 116 }
 117 </body>
 118 </html>
 119