3 # $Id: showfull.egw,v 1.4 1995/11/07 14:56:59 adam Exp $
5 if {[info commands saveState] == ""} {
9 html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
10 html "</head><body>\n"
15 set sno [lindex $sessionParms 0]
16 set no [lindex $sessionParms 1]
20 if {[z39search $setNo 0] != "1"} {
23 set total [z39.$setNo resultCount]
24 html "<h2>Record \#$no out of $total </h2><br>\n"
28 if {$no < [z39.$setNo resultCount]} {
29 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
30 html / $sessionId {/showfull.egw/} $setNo + [expr $no + 1]
31 html {"> Next </a>} "| \n"
34 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
35 html / $sessionId {/showfull.egw/} $setNo + [expr $no - 1]
36 html {"> Prev </a>} "| \n"
38 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
39 html / $sessionId {/search.egw/} $setNo + 1
40 html + [expr $hist($setNo,maxPresent) - 1]
41 html {"> Result </a>} "| \n"
43 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
44 html / $sessionId {/targets.egw"> New target </a>} " | \n"
45 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
46 html / $sessionId {/query.egw/} $host + $setNo {"> New query </a>}
50 z39present $setNo $no $no display-full
54 if {$no < [z39.$setNo resultCount]} {
55 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
56 html / $sessionId {/showfull.egw/} $setNo + [expr $no + 1]
57 html {"> Next </a>} "| \n"
60 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
61 html / $sessionId {/showfull.egw/} $setNo + [expr $no - 1]
62 html {"> Prev </a>} "| \n"
64 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
65 html / $sessionId {/search.egw/} $setNo + 1
66 html + [expr $hist($setNo,maxPresent) - 1]
67 html {"> Result </a>} "| \n"
69 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
70 html / $sessionId {/targets.egw"> New target </a>} " | \n"
71 html {<a href="http://} $env(SERVER_NAME) $env(SCRIPT_NAME)
72 html / $sessionId {/query.egw/} $host + $setNo {"> New query </a>}