{
# $Id: nwi.egw,v 1.7 1996/05/22 16:50:26 adam Exp $
source ztargets.conf
set scriptQuery nwi.egw
set scriptTarget {}
set utilExtension nwiutil.tcl
if {![info exists debug]} {
if {[lindex $sessionParms 1] == "1"} {
set debug 1
} else {
set debug 0
}
}
if {[info commands saveState] == ""} {
source z39util.tcl
}
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"
}
}
}
Nordic Web Index, Simple search
{
global setNo
global nextSetNo
global hist
global targets
if {[catch {set setNo $nextSetNo}]} {
set nextSetNo 1
set setNo 1
}
set useIcons 1
button-main
set curSort score
set curFormat brief
set curEntry {}
set initSet 0
catch {
set initSet [lindex $sessionParms 0]
if {$initSet < 0} {
set initSet 0
}
if {$initSet} {
for {set i 1} {$i <= $hist($initSet,0,host)} {incr i} {
lappend curTargets $hist($initSet,$i,host)
}
set curSort $hist($initSet,sort)
set curFormat $hist($initSet,format)
set curEntry $hist($initSet,form,entry1)
}
}
html {
\n"
set useIcons 0
button-main
catch maintenance
}