\n" if {$setMax < [z39.$setNo resultCount]} { html { Next } "| \n" } if {$startPos != "" && $startPos != "1"} { html { Prev } "| \n" } html { New target } " | \n" html { New query } "
\n"
}
if {[info commands saveState] == ""} {
source z39util.tcl
}
global sessionWait
global nextSetNo
global setNo
global hist
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
if {![info exists hist($nextSetNo,host)]} {
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 z39
incr setOffset
set setMax [z39.$setNo resultCount]
if {$setMax > $hist($setNo,maxPresent)} {
set setMax $hist($setNo,maxPresent)
}
} else {
if {[z39search $setNo 0] != "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
}
}
if {$setMax > 0} {
z39present $setNo $setOffset $setMax display-brief
}
buttons $setNo $setMax $startPos
}
{
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"
}