www/nwi.egw

   1 <html>
   2 {
   3 # $Id: nwi.egw,v 1.7 1996/05/22 16:50:26 adam Exp $
   4     source ztargets.conf
   5
   6     set scriptQuery nwi.egw
   7     set scriptTarget {}
   8     set utilExtension nwiutil.tcl
   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     if {[info commands saveState] == ""} {
  18         source z39util.tcl
  19     }
  20     set html3 [lindex $sessionParms 0]
  21     if {[string length $html3] == 0} {
  22         if {![info exists env(HTTP_USER_AGENT)]} {
  23             set html3 1
  24         } elseif {[string first Mozilla $env(HTTP_USER_AGENT)] == 0} {
  25             set html3 1
  26             egw_log debug "New user using Netscape"
  27         } else {
  28             set html3 0
  29             egw_log debug "New user Not using Netscape"
  30         }
  31     }
  32 }
  33 <head>
  34 <title> Nordic Web Index, Simple search </title>
  35 </head>
  36 <body>
  37 {
  38     global setNo
  39     global nextSetNo
  40     global hist
  41     global targets
  42
  43     if {[catch {set setNo $nextSetNo}]} {
  44         set nextSetNo 1
  45         set setNo 1
  46     }
  47
  48     set useIcons 1
  49     button-main
  50
  51     set curSort score
  52     set curFormat brief
  53     set curEntry {}
  54
  55     set initSet 0
  56
  57     catch {
  58         set initSet [lindex $sessionParms 0]
  59         if {$initSet < 0} {
  60             set initSet 0
  61         }
  62         if {$initSet} {
  63             for {set i 1} {$i <= $hist($initSet,0,host)} {incr i} {
  64                 lappend curTargets $hist($initSet,$i,host)
  65             }
  66             set curSort $hist($initSet,sort)
  67             set curFormat $hist($initSet,format)
  68             set curEntry $hist($initSet,form,entry1)
  69         }
  70     }
  71     html {<form action="http:} $env(SCRIPT_NAME)
  72     html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
  73
  74     html "<dl>"
  75     html {<dt><b>Enter your query</b><dd>}
  76
  77     html {<input type="text" name="entry1" size=50 value="}
  78     html [join $curEntry] {">}
  79     html {<input type=submit value="Search"><br>}
  80
  81     html {<dt><b>and search the following servers</b><dd>}
  82
  83     set hosts {
  84             {mars.dtv.dk:9999/Default}
  85             {nwi.ub2.lu.se:2121/sverige}
  86     }
  87     foreach t $hosts {
  88         html {<input type="checkbox" name="host" }
  89         if {[info exists curTargets]} {
  90             if {[lsearch -exact $curTargets $t] != -1} {
  91                 html {checked }
  92             }
  93         }
  94         html {value="} $t {"> } [lindex $targets($t) 0]
  95     }
  96     catch {unset curTargets}
  97     html {<p><dt><b>Display each record in <select name="format"><dd>}
  98     if {![string compare $curFormat brief]} {
  99         html "<option>brief\n"
 100         html "<option>medium\n"
 101     } else {
 102         html "<option>medium\n"
 103         html "<option>brief\n"
 104     }
 105     html "</select> notation"
 106     html { and sort by <select name="sort">}
 107     if {![string compare $curSort score]} {
 108         html "<option>score\n"
 109         html "<option>server\n"
 110     } else {
 111         html "<option>server\n"
 112         html "<option>score\n"
 113     }
 114     html "</select></b><br></dl>\n"
 115
 116     html {<input type=submit value="Search"><input type=reset value="Reset">}
 117
 118     html "\n<br><p><hr>\n"
 119
 120     if {0} {
 121     html {<form action="http:} $env(SCRIPT_NAME)
 122     html / $sessionId {/msearch.egw/} $setNo {" method=get>} \n
 123     }
 124
 125     html {<b>Advanced search</b><br>}
 126
 127     set host [lindex $hosts 0]
 128     set fields [lindex $targets($host) 2]
 129     for {set no 2} {$no < 6} {incr no} {
 130
 131         html {<select name="menu} $no {">} \n
 132         set template {}
 133         if {$initSet} {
 134             set template [join $hist($initSet,form,menu$no)]
 135         }
 136         if {[string length $template] > 0} {
 137             html {<option> } $template "\n"
 138         }
 139         foreach f $fields {
 140             set name [lindex $f 0]
 141             if {$template == $name} continue
 142             html {<option> } $name \n
 143         }
 144         html "</select>\n"
 145
 146         html {<input type="text" name="entry} $no {" size=35 value="}
 147
 148         if {$initSet} {
 149             if {[info exists hist($initSet,form,entry$no)]} {
 150                 html [join $hist($initSet,form,entry$no) " "]
 151             }
 152         }
 153         html {">} \n
 154         if {$no < 5} {
 155             html {<select name="logic} $no {">} \n
 156             set template {}
 157             if {$initSet} {
 158                 set template [join $hist($initSet,form,logic$no) " "]
 159             }
 160             if {[string length $template] > 0} {
 161                 html "<option> " $template \n
 162             }
 163             foreach op {And Or {And not}} {
 164                 if {$template == $op} continue
 165                 html "<option> " [join $op " "] \n
 166             }
 167             html "</select>\n"
 168         }
 169         html "<br>\n"
 170     }
 171     unset hosts
 172     html "</form><br>\n"
 173     set useIcons 0
 174     button-main
 175
 176
 177     catch maintenance
 178 }
 179
 180