3 # $Id: showfull.egw,v 1.12 1995/12/20 16:31:32 adam Exp $
5 proc buttons {setNo tno no format count host after} {
12 if {!$useIcons && $after && $no < $count} {
14 html {<a href="http:} $env(SCRIPT_NAME)
15 html / $sessionId {/showfull.egw/} $setNo + $tno +
16 html [expr $no + 1] + $format
17 html {"><img src="/gif/darrw.gif"></a>}
21 html {<img src="/gif/button-egw.gif">}
24 html {<a href="http:} $env(SCRIPT_NAME)
25 html / $sessionId {/showfull.egw/} $setNo + $tno +
26 html [expr $no + 1] + $format
28 html {"><img src="/gif/button-next-record.gif" border=0></a>}
30 html {">Next record</a>} " | \n"
34 html {<a href="http:} $env(SCRIPT_NAME)
35 html / $sessionId {/showfull.egw/} $setNo + $tno +
36 html [expr $no - 1] + $format
38 html {"><img src="/gif/button-previous-record.gif" border=0></a>}
40 html {">Previous record</a>} " | \n"
44 html {<a href="http:} $env(SCRIPT_NAME)
45 html / $sessionId {/showfull.egw/} $setNo + $tno + $no +
46 if {$format == "full"} {
49 html {"><img src="/gif/button-raw-marc.gif" border=0></a>}
51 html {">Raw format</a>} " | \n"
56 html {"><img src="/gif/button-full-format.gif" border=0></a>}
58 html {">Full format</a>} " | \n"
62 html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
69 html + $hist($setNo,maxPresent)
71 html {"><img src="/gif/button-result-set.gif" border=0></a>}
73 html {">Result set</a>} " | \n"
75 html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
83 html {"><img src="/gif/button-new-query.gif" border=0></a>}
85 html {">New query</a>} " | \n"
87 html {<a href="http:} $env(SCRIPT_NAME) / $sessionId
94 html {"><img src="/gif/button-new-target.gif" border=0></a>}
96 html {">New target</a>}
99 if {!$useIcons && !$after && $no > 1} {
101 html {<a href="http:} $env(SCRIPT_NAME)
102 html / $sessionId {/showfull.egw/} $setNo + $tno +
103 html [expr $no - 1] + $format
104 html {"><img src="/gif/uarrw.gif"></a>}
105 html "</center><p>\n"
109 if {[info commands saveState] == ""} {
113 html "<head><title> WWW/Z39.50 Gateway Record " $host " </title>\n"
114 html "</head><body>\n"
119 set sno [lindex $sessionParms 0]
120 set tno [lindex $sessionParms 1]
121 set no [lindex $sessionParms 2]
122 set format [lindex $sessionParms 3]
128 set host $hist($setNo,$tno,host)
131 set host $hist($setNo,host)
134 if {[z39search $setNo 0 $tno F] != "1"} {
137 set count [$zz.$setNo resultCount]
138 html "<h2>Record \#$no out of $count </h2><br>\n"
140 buttons $setNo $tno $no $format $count $host 0
142 eval {z39present $setNo $tno $no $no display-$format F}
143 buttons $setNo $tno $no $format $count $host 1