+# $Id: showfull.egw,v 1.23 1996/03/13 14:07:31 adam Exp $
+
+proc buttons {setNo tno no format count host after} {
+ global sessionId
+ global useIcons
+ global env
+ global hist
+
+ html "<p>\n"
+ button-main
+ if {$no < $count} {
+ if {!$useIcons} {
+ html "\n | "
+ }
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/showfull.egw/} $setNo + $tno +
+ html [expr $no + 1] + $format
+ if {$useIcons} {
+ html {"><img src="/egwgif/button-next-record.gif" }
+ html {alt="Next Record" border=0></a>}
+ } else {
+ html {">Next</a>}
+ }
+ }
+ if {$no > 1} {
+ if {!$useIcons} {
+ html "\n | "
+ }
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/showfull.egw/} $setNo + $tno +
+ html [expr $no - 1] + $format
+ if {$useIcons} {
+ html {"><img src="/egwgif/button-previous-record.gif" }
+ html {alt="Previous Record" border=0></a>}
+ } else {
+ html {">Previous</a>}
+ }
+ }
+
+ if {!$useIcons} {
+ html "\n | "
+ }
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/showfull.egw/} $setNo + $tno + $no +
+ if {$format == "full"} {
+ html raw
+ if {$useIcons} {
+ html {"><img src="/egwgif/button-raw-marc.gif" }
+ html {alt="Raw Format" border=0></a>}
+ } else {
+ html {">Raw Format</a>}
+ }
+ } else {
+ html full
+ if {$useIcons} {
+ html {"><img src="/egwgif/button-full-format.gif" }
+ html {alt="Full Format" border=0></a>}
+ } else {
+ html {">Full Format</a>}
+ }
+ }
+
+ button-result-set $setNo $tno
+ button-new-query $setNo
+ button-new-target
+ html "<p>\n"
+}