X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=4eb9d66036c964c94be91390167b7a4df3d5e47d;hb=6e37e8e91bf35cb14c930e8988085cf78f11029a;hp=4a05178f383ed4a2068adc95b3c13019d353ee92;hpb=949f8c4efedfe6d191264853690c84f527e1790b;p=egate.git
diff --git a/www/showfull.egw b/www/showfull.egw
index 4a05178..4eb9d66 100644
--- a/www/showfull.egw
+++ b/www/showfull.egw
@@ -1,17 +1,77 @@
{
-# $Id: showfull.egw,v 1.2 1995/11/01 16:15:46 adam Exp $
+# $Id: showfull.egw,v 1.4 1995/11/07 14:56:59 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
+}
+
+{
+ if {$no < [z39.$setNo resultCount]} {
+ html { Next } "| \n"
+ }
+ if {$no > 0} {
+ html { Prev } "| \n"
+ }
+ html { Result } "| \n"
+
+ html { New target } " | \n"
+ html { New query }
+}
+