www/showfull.egw

   1 <html>
   2 {
   3 # $Id: showfull.egw,v 1.15 1996/01/03 15:19:47 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="/gif/button-next-record.gif" }
  19             html {alt="Next Record" border=0></a>}
  20         } else {
  21             html {">Next Record</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="/gif/button-previous-record.gif" }
  30             html {alt="Previous Record" border=0></a>}
  31         } else {
  32             html {">Previous Record</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="/gif/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="/gif/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="/gif/button-result-set.gif" }
  66         html {alt="Result Set" border=0></a>}
  67     } else {
  68         html {">Result Set</a>} " | \n"
  69     }
  70     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  71     if {$tno > 0} {
  72         html {/mquery.egw/}
  73     } else {
  74         html {/query.egw/}
  75     }
  76     html $host + $setNo
  77     if {$useIcons} {
  78         html {"><img src="/gif/button-new-query.gif" }
  79         html {alt="New Query" border=0></a>}
  80     } else {
  81         html {">New Query</a>} " | \n"
  82     }
  83     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  84     if {$tno > 0} {
  85         html {/mtargets.egw}
  86     } else {
  87         html {/targets.egw}
  88     }
  89     if {$useIcons} {
  90         html {"><img src="/gif/button-new-target.gif" }
  91         html {alt="New Target" border=0></a>}
  92     } else {
  93         html {">New Target</a>}
  94     }
  95     html "<p>\n"
  96 }
  97
  98     if {[info commands saveState] == ""} {
  99         source z39util.tcl
 100     }
 101
 102     html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
 103     html "</head><body>\n"
 104
 105     global setNo
 106     global hist
 107
 108     set sno [lindex $sessionParms 0]
 109     set tno [lindex $sessionParms 1]
 110     set no [lindex $sessionParms 2]
 111     set format [lindex $sessionParms 3]
 112
 113     set setNo $sno
 114
 115     if {$tno > 0} {
 116         set zz z39$tno
 117         set host $hist($setNo,$tno,host)
 118     } else {
 119         set zz z39
 120         set host $hist($setNo,host)
 121     }
 122
 123     if {[z39search $setNo 0 $tno F] != "1"} {
 124         return
 125     }
 126
 127     set count [$zz.$setNo resultCount]
 128
 129     buttons $setNo $tno $no $format $count $host 0
 130
 131     html "<h3>Record \#$no out of $count </h3><br>\n"
 132
 133     eval {z39present $setNo $tno $no $no display-$format F}
 134     buttons $setNo $tno $no $format $count $host 1
 135 }
 136 </body>
 137 </html>
 138