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 "
Record \#$no out of $total
\n"
- buttons $setNo $no
-
- z39present $setNo $no $no display-full
+ buttons $setNo $no $format
- buttons $setNo $no
+ eval {z39present $setNo $no $no display-$format}
+ buttons $setNo $no $format
}