www/showfull.egw

   1 <html>
   2 {
   3 # $Id: showfull.egw,v 1.14 1996/01/02 10:52:29 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     if {!$useIcons && $after && $no < $count} {
  13         html "<center>\n"
  14         html {<a href="http:} $env(SCRIPT_NAME)
  15         html / $sessionId {/showfull.egw/} $setNo + $tno +
  16         html [expr $no + 1] + $format
  17         html {"><img src="/gif/darrw.gif"></a>}
  18         html "</center><p>\n"
  19     }
  20     if {$useIcons} {
  21         html {<img src="/gif/button-egw.gif" alt="Europagate" border=0>}
  22     }
  23     if {$no < $count} {
  24         html {<a href="http:} $env(SCRIPT_NAME)
  25         html / $sessionId {/showfull.egw/} $setNo + $tno +
  26         html [expr $no + 1] + $format
  27         if {$useIcons} {
  28             html {"><img src="/gif/button-next-record.gif" }
  29             html {alt="Next Record" border=0></a>}
  30         } else {
  31             html {">Next Record</a>} " | \n"
  32         }
  33     }
  34     if {$no > 1} {
  35         html {<a href="http:} $env(SCRIPT_NAME)
  36         html / $sessionId {/showfull.egw/} $setNo + $tno +
  37         html [expr $no - 1] + $format
  38         if {$useIcons} {
  39             html {"><img src="/gif/button-previous-record.gif" }
  40             html {alt="Previous Record" border=0></a>}
  41         } else {
  42             html {">Previous Record</a>} " | \n"
  43         }
  44     }
  45
  46     html {<a href="http:} $env(SCRIPT_NAME)
  47     html / $sessionId {/showfull.egw/} $setNo + $tno + $no +
  48     if {$format == "full"} {
  49         html raw
  50         if {$useIcons} {
  51             html {"><img src="/gif/button-raw-marc.gif" }
  52             html {alt="Raw Format" border=0></a>}
  53         } else {
  54             html {">Raw Format</a>} " | \n"
  55         }
  56     } else {
  57         html full
  58         if {$useIcons} {
  59             html {"><img src="/gif/button-full-format.gif" }
  60             html {alt="Full Format" border=0></a>}
  61         } else {
  62             html {">Full Format</a>} " | \n"
  63         }
  64     }
  65
  66     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  67     if {$tno > 0} {
  68         html {/msearch.egw/}
  69     } else {
  70         html {/search.egw/}
  71     }
  72     html $setNo + 1
  73     html + $hist($setNo,maxPresent)
  74     if {$useIcons} {
  75         html {"><img src="/gif/button-result-set.gif" }
  76         html {alt="Result Set" border=0></a>}
  77     } else {
  78         html {">Result Set</a>} " | \n"
  79     }
  80     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  81     if {$tno > 0} {
  82         html {/mquery.egw/}
  83     } else {
  84         html {/query.egw/}
  85     }
  86     html $host + $setNo
  87     if {$useIcons} {
  88         html {"><img src="/gif/button-new-query.gif" }
  89         html {alt="New Query" border=0></a>}
  90     } else {
  91         html {">New Query</a>} " | \n"
  92     }
  93     html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
  94     if {$tno > 0} {
  95         html {/mtargets.egw}
  96     } else {
  97         html {/targets.egw}
  98     }
  99     if {$useIcons} {
 100         html {"><img src="/gif/button-new-target.gif" }
 101         html {alt="New Target" border=0></a>}
 102     } else {
 103         html {">New Target</a>}
 104     }
 105     html "<p>\n"
 106     if {!$useIcons && !$after && $no > 1} {
 107         html "<p><center>\n"
 108         html {<a href="http:} $env(SCRIPT_NAME)
 109         html / $sessionId {/showfull.egw/} $setNo + $tno +
 110         html [expr $no - 1] + $format
 111         html {"><img src="/gif/uarrw.gif"></a>}
 112         html "</center><p>\n"
 113     }
 114 }
 115
 116     if {[info commands saveState] == ""} {
 117         source z39util.tcl
 118     }
 119
 120     html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
 121     html "</head><body>\n"
 122
 123     global setNo
 124     global hist
 125
 126     set sno [lindex $sessionParms 0]
 127     set tno [lindex $sessionParms 1]
 128     set no [lindex $sessionParms 2]
 129     set format [lindex $sessionParms 3]
 130
 131     set setNo $sno
 132
 133     if {$tno > 0} {
 134         set zz z39$tno
 135         set host $hist($setNo,$tno,host)
 136     } else {
 137         set zz z39
 138         set host $hist($setNo,host)
 139     }
 140
 141     if {[z39search $setNo 0 $tno F] != "1"} {
 142         return
 143     }
 144
 145     set count [$zz.$setNo resultCount]
 146
 147     buttons $setNo $tno $no $format $count $host 0
 148
 149     html "<h3>Record \#$no out of $count </h3><br>\n"
 150
 151     eval {z39present $setNo $tno $no $no display-$format F}
 152     buttons $setNo $tno $no $format $count $host 1
 153 }
 154 </body>
 155 </html>
 156