X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=587e94d392dd9aac820ff5684ff9e5a41d951f31;hb=71ad5b6272d0bc6320bea6c1ec10f5e10bbfe8ef;hp=edf07934948d2e686a9d07f7b697840bc7dc16c2;hpb=ba37ce207c47ac1fa27bb46df7dc54f72740bb96;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index edf0793..587e94d 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,6 +1,6 @@
{
-# $Id: search.egw,v 1.23 1996/01/03 15:19:41 adam Exp $
+# $Id: search.egw,v 1.25 1996/01/08 08:42:17 adam Exp $
proc start-scan {scanNo cache dir} {
global sessionId
@@ -212,6 +212,7 @@ proc buttons {setNo setMax startPos after} {
}
set hist($setNo,query) $query
} else {
+ if {![info exists hist($setNo,scan)]} return
if {$hist($setNo,scan) > 0} {
set scanNo [lindex $sessionParms 1]
set dir [lindex $sessionParms 2]
@@ -238,7 +239,11 @@ proc buttons {setNo setMax startPos after} {
}
set r [z39.$setNo resultCount]
set setOffset [z39.$setNo numberOfRecordsReturned]
- html { Records 1-} $setOffset " out of $r
\n"
+ if {$setOffset > 0} {
+ html { Records 1-} $setOffset " out of $r
\n"
+ } else {
+ html " No hits
\n"
+ }
wflush
html "\n"
display-rec 1 $setOffset display-brief 0
@@ -260,7 +265,11 @@ proc buttons {setNo setMax startPos after} {
if {$setMax > 0} {
buttons $setNo $setMax $startPos 0
}
- html { Records } $startPos {-} $setMax " out $r
\n"
+ if {$setMax > 0} {
+ html { Records } $startPos {-} $setMax " out of $r
\n"
+ } else {
+ html " No hits
\n"
+ }
wflush
html "\n"
}
@@ -278,8 +287,8 @@ proc buttons {setNo setMax startPos after} {
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
+ foreach n [array names env] {
+ html "env($n) = " $env($n) "
\n"
}
html "form: " [wform] "
\n"
html "target: " $host "
\n"