3 # $Id: nwi.egw,v 1.5 1996/03/15 14:43:44 adam Exp $
6 set scriptQuery nwi.egw
8 set utilExtension nwiutil.tcl
10 if {![info exists debug]} {
11 if {[lindex $sessionParms 1] == "1"} {
17 if {[info commands saveState] == ""} {
20 set html3 [lindex $sessionParms 0]
21 if {[string length $html3] == 0} {
22 if {![info exists env(HTTP_USER_AGENT)]} {
24 } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
26 egw_log debug "New user using Netscape"
29 egw_log debug "New user Not using Netscape"
34 <title> Nordic Web Index, Simple search </title>
43 if {[catch {set setNo $nextSetNo}]} {
57 set initSet [lindex $sessionParms 0]
62 for {set i 1} {$i <= $hist($initSet,0,host)} {incr i} {
63 lappend curTargets $hist($initSet,$i,host)
65 set curSort $hist($initSet,sort)
66 set curFormat $hist($initSet,format)
67 set curEntry $hist($initSet,form,entry1)
70 html {<form action="http:} $env(SCRIPT_NAME)
71 html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
74 html {<dt><b>Enter your query</b><dd>}
76 html {<input type="text" name="entry1" size=50 value="}
77 html [join $curEntry] {">}
78 html {<input type=submit value="Search"><br>}
80 html {<dt><b>and search the following servers</b><dd>}
83 {nwi.ub2.lu.se/sverige}
84 {nwi.ub2.lu.se/new_nor_lib}
86 html {<input type="checkbox" name="host" }
87 if {[info exists curTargets]} {
88 if {[lsearch -exact $curTargets $t] != -1} {
92 html {value="} $t {"> } [lindex $targets($t) 0]
94 catch {unset curTargets}
95 html {<p><dt><b>Display each record in <select name="format"><dd>}
96 if {![string compare $curFormat brief]} {
97 html "<option>brief\n"
98 html "<option>medium\n"
100 html "<option>medium\n"
101 html "<option>brief\n"
103 html "</select> notation"
104 html { and sort by <select name="sort">}
105 if {![string compare $curSort score]} {
106 html "<option>score\n"
107 html "<option>server\n"
109 html "<option>server\n"
110 html "<option>score\n"
112 html "</select></b><br></dl>\n"