}
html "\n" html "
}
html "\n" if {$setMax < [z39.$setNo resultCount]} { html {Next records} " | \n" } if {$startPos != "" && $startPos != "1"} { html {Previous records} " | \n" } html {New query} " | \n" html {New target} "
\n" if {!$after && $startPos != "" && $startPos != "1"} { html "
}
html "\n"
}
}
if {[info commands saveState] == ""} {
source z39util.tcl
}
global sessionWait
global nextSetNo
global setNo
global hist
set setNo [lindex $sessionParms 0]
if {[wform menu1] != ""} {
set hist($nextSetNo,idAuthentication) $hist($setNo,idAuthentication)
set hist($nextSetNo,host) $hist($setNo,host)
set setNo $nextSetNo
html "using host " $hist($setNo,host) " Search result $r hits
\n"
wflush
set setOffset [z39.$setNo numberOfRecordsReturned]
display-rec 1 $setOffset display-brief 0
incr setOffset
set setMax [z39.$setNo resultCount]
if {$setMax > $hist($setNo,maxPresent)} {
set setMax $hist($setNo,maxPresent)
}
} else {
if {[z39search $setNo 0 0 B] != "1"} {
return
}
set r [z39.$setNo resultCount]
html " Search result $r hits
\n"
wflush
set setOffset $startPos
set setMax [z39.$setNo resultCount]
if {$setMax > $endPos} {
set setMax $endPos
}
if {$setMax > 0} {
buttons $setNo $setMax $startPos 0
}
}
if {$setMax > 0} {
z39present $setNo 0 $setOffset $setMax display-brief B
}
buttons $setNo $setMax $startPos 1
}
{
html "
\n"
html "Debug information
\n"
html "sessionId: $sessionId
\n"
html "sessionParms: $sessionParms
\n"
foreach e {SERVER_NAME PATH_INFO SCRIPT_NAME} {
html $e {: } $env($e) {
} \n
}
html "form: " [wform] "
\n"
html "target: " $host "
\n"
html "databases: " $hist($setNo,database) "
\n"
html "selected: " [wform base] "
\n"
html "query: --" $hist($setNo,query) "--
"
html "setNo: " $setNo "
\n"
html "nextSetNo: " $nextSetNo "
\n"
}