3 # $Id: showfull.egw,v 1.11 1995/11/14 09:30:20 adam Exp $
5 proc buttons {setNo tno no format count host after} {
11 if {$after && $no < $count} {
13 html {<a href="http:} $env(SCRIPT_NAME)
14 html / $sessionId {/showfull.egw/} $setNo + $tno +
15 html [expr $no + 1] + $format
16 html {"><img src="/gif/darrw.gif"></a>}
20 html {<a href="http:} $env(SCRIPT_NAME)
21 html / $sessionId {/showfull.egw/} $setNo + $tno +
22 html [expr $no + 1] + $format
23 html {">Next record</a>} " | \n"
26 html {<a href="http:} $env(SCRIPT_NAME)
27 html / $sessionId {/showfull.egw/} $setNo + $tno +
28 html [expr $no - 1] + $format
29 html {">Previous record</a>} " | \n"
32 html {<a href="http:} $env(SCRIPT_NAME)
33 html / $sessionId {/showfull.egw/} $setNo + $tno + $no +
34 if {$format == "full"} {
35 html raw {">Raw format</a>} " | \n"
37 html full {">Full format</a>} " | \n"
40 html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
47 html + $hist($setNo,maxPresent)
48 html {">Result set</a>} " | \n"
50 html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
57 html {">New query</a>} " | \n"
59 html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
65 html {">New target</a>} "<p>\n"
67 if {!$after && $no > 1} {
69 html {<a href="http:} $env(SCRIPT_NAME)
70 html / $sessionId {/showfull.egw/} $setNo + $tno +
71 html [expr $no - 1] + $format
72 html {"><img src="/gif/uarrw.gif"></a>}
77 if {[info commands saveState] == ""} {
81 html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
82 html "</head><body>\n"
87 set sno [lindex $sessionParms 0]
88 set tno [lindex $sessionParms 1]
89 set no [lindex $sessionParms 2]
90 set format [lindex $sessionParms 3]
96 set host $hist($setNo,$tno,host)
99 set host $hist($setNo,host)
102 if {[z39search $setNo 0 $tno F] != "1"} {
105 set count [$zz.$setNo resultCount]
106 html "<h2>Record \#$no out of $count </h2><br>\n"
108 buttons $setNo $tno $no $format $count $host 0
110 eval {z39present $setNo $tno $no $no display-$format F}
111 buttons $setNo $tno $no $format $count $host 1