<html>
{
-# $Id: search.egw,v 1.23 1996/01/03 15:19:41 adam Exp $
+# $Id: search.egw,v 1.24 1996/01/05 16:35:01 adam Exp $
proc start-scan {scanNo cache dir} {
global sessionId
}
set r [z39.$setNo resultCount]
set setOffset [z39.$setNo numberOfRecordsReturned]
- html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
+ if {$setOffset > 0} {
+ html {<h3> Records 1-} $setOffset " out of $r</h3>\n"
+ } else {
+ html "<h3> No hits</h3>\n"
+ }
wflush
html "<ul>\n"
display-rec 1 $setOffset display-brief 0
if {$setMax > 0} {
buttons $setNo $setMax $startPos 0
}
- html {<h3> Records } $startPos {-} $setMax " out $r</h3>\n"
+ if {$setMax > 0} {
+ html {<h3> Records } $startPos {-} $setMax " out of $r</h3>\n"
+ } else {
+ html "<h3> No hits</h3>\n"
+ }
wflush
html "<ul>\n"
}
* USE OR PERFORMANCE OF THIS SOFTWARE.
*
* $Log: wproto.c,v $
- * Revision 1.11 1996/01/05 16:21:21 adam
+ * Revision 1.12 1996/01/05 16:35:02 adam
+ * Minor changes.
+ *
+ * Revision 1.11 1996/01/05 16:21:21 adam
* Bug fix: shell (wproto) sometimes closed server FIFO before cgi
* program opened it - solution: cgi sends OK when response has been read.
*
gw_log (GW_LOG_DEBUG, mod, "wproto_dumpcache");
wproto_dumpcache(wc, level);
wo_finish(wc);
+
}
else
{