3 # $Id: nwi.egw,v 1.1 1996/03/11 17:41:16 adam Exp $
5 if {[info commands saveState] == ""} {
10 if {![info exists debug]} {
11 if {[lindex $sessionParms 1] == "1"} {
17 set html3 [lindex $sessionParms 0]
18 if {[string length $html3] == 0} {
19 if {![info exists env(HTTP_USER_AGENT)]} {
21 } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
23 egw_log debug "New user using Netscape"
26 egw_log debug "New user Not using Netscape"
31 <title> Nordic Web Index, Simple search </title>
40 if {[catch {set setNo $nextSetNo}]} {
49 html {<form action="http:} $env(SCRIPT_NAME)
50 html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
52 html "Enter your query:<br>\n"
54 html {<input type="text" name="entry1" size=50>}
55 html {<input type=submit value="Search"><br>}
57 html {and search the following servers:<br>}
59 html {<input type="checkbox" name="host"}
60 html { value="nwi.ub2.lu.se/sverige"> Sweden}
61 html {<input type="checkbox" name="host" }
62 html { value="nwi.ub2.lu.se/new_nor_lib"> Norway}
66 html {Display each record in <select name="format">}
67 html "<option>brief\n"
68 html "<option>medium\n"
69 html "</select> notation"
70 html { and sort by <select name="sort">}
71 html "<option>score\n"
72 html "<option>server\n"
73 html "</select><br>\n"