X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=0e0c228159939c3e0408233cf83cb6348df151f0;hb=6315a552d51ac08b60d25d8500da5574a83ba530;hp=4a05178f383ed4a2068adc95b3c13019d353ee92;hpb=949f8c4efedfe6d191264853690c84f527e1790b;p=egate.git
diff --git a/www/showfull.egw b/www/showfull.egw
index 4a05178..0e0c228 100644
--- a/www/showfull.egw
+++ b/www/showfull.egw
@@ -1,16 +1,61 @@
{
-# $Id: showfull.egw,v 1.2 1995/11/01 16:15:46 adam Exp $
+# $Id: showfull.egw,v 1.5 1995/11/08 12:42:17 adam Exp $
- htmlr { WWW/Z39.50 Gateway Record } $host { }
- htmlr {}
- htmlr {sessionParms: } $sessionParms {
}
- wflush
+proc buttons {setNo no} {
+ global sessionId
+ global env
+ global hist
+
+ html "\n"
+ if {$no < [z39.$setNo resultCount]} {
+ html { Next } "| \n"
+ }
+ if {$no > 1} {
+ html { Prev } "| \n"
+ }
+ html { Result } "| \n"
+
+ html { New target } " | \n"
+ html { New query } "
\n"
+}
+
+ 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"
+
+ buttons $setNo $no
+
+ z39present $setNo $no $no display-full
+
+ buttons $setNo $no
}