X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=efee05ed8a42a5d73d6ab0428e8c83071b3cec06;hb=852b4caac48a2542af95c577dab306db1bda56f1;hp=c2d11ce79cea48d39af1b3796c1d8d939cc70303;hpb=654d28333d817ccf5ad104b7375584e38ba8d5dc;p=egate.git diff --git a/www/showfull.egw b/www/showfull.egw index c2d11ce..efee05e 100644 --- a/www/showfull.egw +++ b/www/showfull.egw @@ -1,8 +1,8 @@ { -# $Id: showfull.egw,v 1.6 1995/11/08 16:14:34 adam Exp $ +# $Id: showfull.egw,v 1.7 1995/11/09 15:24:37 adam Exp $ -proc buttons {setNo no} { +proc buttons {setNo no format} { global sessionId global env global hist @@ -10,17 +10,26 @@ proc buttons {setNo no} { html "
\n" if {$no < [z39.$setNo resultCount]} { html { Next } "| \n" + html / $sessionId {/showfull.egw/} $setNo + [expr $no + 1] + $format + html {"> Next record } "| \n" } if {$no > 1} { html { Prev } "| \n" + html / $sessionId {/showfull.egw/} $setNo + [expr $no - 1] + $format + html {"> Previous record } "| \n" } + + html {Raw format} "| \n" + } else { + html full {">Full format} "| \n" + } + html { Result } "| \n" html { New query } "
\n" + } if {[info commands saveState] == ""} { @@ -42,6 +52,7 @@ proc buttons {setNo no} { set sno [lindex $sessionParms 0] set no [lindex $sessionParms 1] + set format [lindex $sessionParms 2] set setNo $sno @@ -51,11 +62,10 @@ proc buttons {setNo no} { set total [z39.$setNo resultCount] html "