X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fsearch.egw;h=7c0b84e5346b81d5f6ddaec5836a0a355a5b9c3c;hb=c1c09b4242df9a16cd11477deea2e35f8ff57fec;hp=d521220051cd2b56e79619fe3cb2f71ce3b526b4;hpb=a6f3beb071fe8c894ee6c846c86296c84f48e3d4;p=egate.git diff --git a/www/search.egw b/www/search.egw index d521220..7c0b84e 100644 --- a/www/search.egw +++ b/www/search.egw @@ -1,9 +1,36 @@ { -# $Id: search.egw,v 1.1 1995/10/23 17:04:17 adam Exp $ +# $Id: search.egw,v 1.2 1995/10/27 17:30:16 adam Exp $ + +proc search-response {} { + global sessionWait + set sessionWait 0 + + htmlr "search response
" + set r [z39.1 resultCount] + htmlr "$r hits
" + htmlr "" +} + +proc fail-response {} { + global sessionWait + set sessionWait 0 + + htmlr "failed
" + htmlr "" +} + + global sessionWait + + z39 callback search-response + z39 failback fail-response + set sessionWait 1 + ir-set z39.1 z39 + z39.1 databaseNames [form base] + z39.1 search [form entry1] + htmlr + htmlr " WWW/Z39.50 Gateway Search Result ..." } - - WWW/Z39.50 Gateway Search Result sessionId: {html $sessionId}
@@ -12,6 +39,6 @@ form: {html [form]}
target: {html $t}
databases: {html $databases}

Search in databases

Not Functional Yet

- - +{ + htmlr [form entry1]
+}