{ # $Id: search.egw,v 1.19 1995/12/21 15:49:52 adam Exp $ proc perform-scan {} { global sessionId global sessionParms global sessionWait global setNo global hist global targets global nextSetNo global env set scanNo 1000 set termPlusAttr [build-scan $hist($setNo,host) 3] if {"$termPlusAttr" == ""} { html "
\n" html "
\n"
if {$useIcons} {
html {}
}
if {$setMax < [z39.$setNo resultCount]} {
html {
}
} else {
html {">Next records} " | \n"
}
}
if {$startPos != "" && $startPos != "1"} {
html {
}
} else {
html {">Previous records} " | \n"
}
}
html {
}
} else {
html {">New query} " | \n"
}
html {
}
} else {
html {">New target}
}
html "
\n" if {!$useIcons && !$after && $startPos != "" && $startPos != "1"} { 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] != ""} { if {[wform submit] == "Scan"} { perform-scan wabort } set query [build-query $hist($setNo,host) 3] if {"x$query" == "x"} { html "