--- /dev/null
+<html>
+{
+# $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"
+ }
+ }
+}
+<head>
+<title> Nordic Web Index, Simple search </title>
+</head>
+<body>
+{
+ 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 {<form action="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
+
+ html "Enter your query:<br>\n"
+
+ html {<input type="text" name="entry1" size=50>}
+ html {<input type=submit value="Search"><br>}
+
+ html {and search the following servers:<br>}
+
+ html {<input type="checkbox" name="host"}
+ html { value="nwi.ub2.lu.se/sverige"> Sweden}
+ html {<input type="checkbox" name="host" }
+ html { value="nwi.ub2.lu.se/new_nor_lib"> Norway}
+
+ html "<br>\n"
+
+ html {Display each record in <select name="format">}
+ html "<option>brief\n"
+ html "<option>medium\n"
+ html "</select> notation"
+ html { and sort by <select name="sort">}
+ html "<option>score\n"
+ html "<option>server\n"
+ html "</select><br>\n"
+}
\ No newline at end of file
projects / egate.git / commitdiff