X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fshowfull.egw;h=0e0c228159939c3e0408233cf83cb6348df151f0;hb=6315a552d51ac08b60d25d8500da5574a83ba530;hp=4eb9d66036c964c94be91390167b7a4df3d5e47d;hpb=6e37e8e91bf35cb14c930e8988085cf78f11029a;p=egate.git
diff --git a/www/showfull.egw b/www/showfull.egw
index 4eb9d66..0e0c228 100644
--- a/www/showfull.egw
+++ b/www/showfull.egw
@@ -1,36 +1,19 @@
{
-# $Id: showfull.egw,v 1.4 1995/11/07 14:56:59 adam Exp $
+# $Id: showfull.egw,v 1.5 1995/11/08 12:42:17 adam Exp $
- if {[info commands saveState] == ""} {
- source z39util.tcl
- }
-
- html " WWW/Z39.50 Gateway Record " $host " \n"
- html "\n"
-
- global setNo
+proc buttons {setNo no} {
+ global sessionId
+ global env
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"
-}
-
-{
+ html "\n"
if {$no < [z39.$setNo resultCount]} {
html { Next } "| \n"
}
- if {$no > 0} {
+ if {$no > 1} {
html { Prev } "| \n"
@@ -43,35 +26,37 @@
html { New target } " | \n"
html { New query }
+ html / $sessionId {/query.egw/} $hist($setNo,host) + $setNo
+ html {"> New query } "
\n"
}
-{
- z39present $setNo $no $no display-full
-}
-
-{
- if {$no < [z39.$setNo resultCount]} {
- html { Next } "| \n"
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
}
- if {$no > 0} {
- html { Prev } "| \n"
+
+ html " WWW/Z39.50 Gateway Record " $host " \n"
+ html "\n"
+
+ global setNo
+ global hist
+
+ set sno [lindex $sessionParms 0]
+ set no [lindex $sessionParms 1]
+
+ set setNo $sno
+
+ if {[z39search $setNo 0] != "1"} {
+ return
}
- html { Result } "| \n"
-
- html { New target } " | \n"
- html { New query }
-}
+ set total [z39.$setNo resultCount]
+ html "Record \#$no out of $total
\n"
+
+ buttons $setNo $no
+ z39present $setNo $no $no display-full
+
+ buttons $setNo $no
+}