www/nwi.egw

   1 <html>
   2 {
   3 # $Id: nwi.egw,v 1.1 1996/03/11 17:41:16 adam Exp $
   4     source ztargets.conf
   5     if {[info commands saveState] == ""} {
   6         source z39util.tcl
   7     }
   8     set mMode 1
   9
  10     if {![info exists debug]} {
  11         if {[lindex $sessionParms 1] == "1"} {
  12             set debug 1
  13         } else {
  14             set debug 0
  15         }
  16     }
  17     set html3 [lindex $sessionParms 0]
  18     if {[string length $html3] == 0} {
  19         if {![info exists env(HTTP_USER_AGENT)]} {
  20             set html3 1
  21         } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
  22             set html3 1
  23             egw_log debug "New user using Netscape"
  24         } else {
  25             set html3 0
  26             egw_log debug "New user Not using Netscape"
  27         }
  28     }
  29 }
  30 <head>
  31 <title> Nordic Web Index, Simple search </title>
  32 </head>
  33 <body>
  34 {
  35     global setNo
  36     global nextSetNo
  37     global hist
  38     global targets
  39
  40     if {[catch {set setNo $nextSetNo}]} {
  41         set nextSetNo 1
  42         set setNo 1
  43     }
  44
  45     set useIcons 1
  46     button-europagate
  47     button-new-target 0
  48
  49     html {<form action="http:} $env(SCRIPT_NAME)
  50     html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
  51
  52     html "Enter your query:<br>\n"
  53
  54     html {<input type="text" name="entry1" size=50>}
  55     html {<input type=submit value="Search"><br>}
  56
  57     html {and search the following servers:<br>}
  58
  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}
  63
  64     html "<br>\n"
  65
  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"
  74 }