From 22c18161ea1085930fd3cf7005208e8d9b2cd433 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Mon, 11 Mar 1996 17:41:16 +0000 Subject: [PATCH] New simple search form. --- www/nwi.egw | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 74 insertions(+) create mode 100644 www/nwi.egw diff --git a/www/nwi.egw b/www/nwi.egw new file mode 100644 index 0000000..b2b7d22 --- /dev/null +++ b/www/nwi.egw @@ -0,0 +1,74 @@ + +{ +# $Id: nwi.egw,v 1.1 1996/03/11 17:41:16 adam Exp $ + source ztargets.conf + if {[info commands saveState] == ""} { + source z39util.tcl + } + set mMode 1 + + if {![info exists debug]} { + if {[lindex $sessionParms 1] == "1"} { + set debug 1 + } else { + set debug 0 + } + } + set html3 [lindex $sessionParms 0] + if {[string length $html3] == 0} { + if {![info exists env(HTTP_USER_AGENT)]} { + set html3 1 + } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} { + set html3 1 + egw_log debug "New user using Netscape" + } else { + set html3 0 + egw_log debug "New user Not using Netscape" + } + } +} + + Nordic Web Index, Simple search + + +{ + global setNo + global nextSetNo + global hist + global targets + + if {[catch {set setNo $nextSetNo}]} { + set nextSetNo 1 + set setNo 1 + } + + set useIcons 1 + button-europagate + button-new-target 0 + + html {
} \n + + html "Enter your query:
\n" + + html {} + html {
} + + html {and search the following servers:
} + + html { Sweden} + html { Norway} + + html "
\n" + + html {Display each record in notation" + html { and sort by
\n" +} \ No newline at end of file -- 1.7.10.4