X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=04f29ce2acaa533f302aa94abfe34274aa8de577;hb=94e0e8ff10cdb5142f983cd76156310461f9eb89;hp=4a05178f383ed4a2068adc95b3c13019d353ee92;hpb=71b5b2cf0d923cf64e9353c9250bd2912e446e0a;p=egate.git
diff --git a/www/showfull.egw b/www/showfull.egw
index 4a05178..04f29ce 100644
--- a/www/showfull.egw
+++ b/www/showfull.egw
@@ -1,17 +1,78 @@
{
-# $Id: showfull.egw,v 1.2 1995/11/01 16:15:46 adam Exp $
+# $Id: showfull.egw,v 1.3 1995/11/06 17:44:21 adam Exp $
- htmlr { WWW/Z39.50 Gateway Record } $host { }
- htmlr {}
- htmlr {sessionParms: } $sessionParms {
}
- wflush
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
+
+ html " WWW/Z39.50 Gateway Record " $host " \n"
+ html "\n"
+
+ global setNo
+ global hist
set sno [lindex $sessionParms 0]
set no [lindex $sessionParms 1]
- display-full z39.$sno $no
+ set setNo $sno
+
+ if {[z39search $setNo 0] != "1"} {
+ return
+ }
+ set total [z39.$setNo resultCount]
+ html "Record \#$no out of $total
\n"
+}
+
+{
+ if {$no < [z39.$setNo resultCount]} {
+ html { Next } "| \n"
+ }
+ if {$no > 0} {
+ html { Prev } "| \n"
+ }
+ html { Result } "| \n"
+
+ html { New target } " | \n"
+ html { New query }
}
+
+{
+ z39present $setNo $no $no display-full
+# display-full z39.$sno $no
+}
+
+{
+ if {$no < [z39.$setNo resultCount]} {
+ html { Next } "| \n"
+ }
+ if {$no > 0} {
+ html { Prev } "| \n"
+ }
+ html { Result } "| \n"
+
+ html { New target } " | \n"
+ html { New query }
+}
+