X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=4eb9d66036c964c94be91390167b7a4df3d5e47d;hb=6e37e8e91bf35cb14c930e8988085cf78f11029a;hp=811d6b7c5819df47daffcb53347f17a687b86e50;hpb=cbf0ef7549f996f4d96f41c6dafa76dc17dd7782;p=egate.git
diff --git a/www/showfull.egw b/www/showfull.egw
index 811d6b7..4eb9d66 100644
--- a/www/showfull.egw
+++ b/www/showfull.egw
@@ -1,15 +1,77 @@
{
-# $Id: showfull.egw,v 1.1 1995/10/31 16:56:24 adam Exp $
+# $Id: showfull.egw,v 1.4 1995/11/07 14:56:59 adam Exp $
- htmlr {
WWW/Z39.50 Gateway Record } $host { }
- htmlr {}
- wflush
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
- set no $sessionParms
+ html " WWW/Z39.50 Gateway Record " $host " \n"
+ html "\n"
- display-full z39.1 $no
+ global setNo
+ global hist
+
+ set sno [lindex $sessionParms 0]
+ set no [lindex $sessionParms 1]
+
+ 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
+}
+
+{
+ if {$no < [z39.$setNo resultCount]} {
+ html { Next } "| \n"
+ }
+ if {$no > 0} {
+ html { Prev } "| \n"
+ }
+ html { Result } "| \n"
+
+ html { New target } " | \n"
+ html { New query }
+}
+