X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=www%2Fsearch.egw;h=76a443414e1a89658f1099ae49c5f776147f82e1;hb=6e37e8e91bf35cb14c930e8988085cf78f11029a;hp=7c0b84e5346b81d5f6ddaec5836a0a355a5b9c3c;hpb=c1c09b4242df9a16cd11477deea2e35f8ff57fec;p=egate.git
diff --git a/www/search.egw b/www/search.egw
index 7c0b84e..76a4434 100644
--- a/www/search.egw
+++ b/www/search.egw
@@ -1,44 +1,120 @@
{
-# $Id: search.egw,v 1.2 1995/10/27 17:30:16 adam Exp $
+# $Id: search.egw,v 1.9 1995/11/07 14:56:59 adam Exp $
-proc search-response {} {
+ if {[info commands saveState] == ""} {
+ source z39util.tcl
+ }
global sessionWait
- set sessionWait 0
+ global nextSetNo
+ global setNo
+ global hist
- htmlr "search response
"
- set r [z39.1 resultCount]
- htmlr "$r hits
"
- htmlr "