X-Git-Url: http://git.indexdata.com/?p=egate.git;a=blobdiff_plain;f=www%2Fnwi.egw;h=a42ac74fe204f542e77d2c65f6669cb6b181428f;hp=ef66aec420d8c44bcd897310db5560d1886b1b54;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hpb=a4571caef991e968e3c20b515490b7923306a1cf diff --git a/www/nwi.egw b/www/nwi.egw index ef66aec..a42ac74 100644 --- a/www/nwi.egw +++ b/www/nwi.egw @@ -1,6 +1,6 @@ { -# $Id: nwi.egw,v 1.2 1996/03/12 16:30:27 adam Exp $ +# $Id: nwi.egw,v 1.3 1996/03/13 14:07:30 adam Exp $ source ztargets.conf set scriptQuery nwi.egw @@ -10,8 +10,6 @@ if {[info commands saveState] == ""} { source z39util.tcl } - set mMode 1 - if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { set debug 1 @@ -50,12 +48,17 @@ set useIcons 1 button-main - set initSet [lindex $sessionParms 0] set curSort score set curFormat brief set curEntry {} + + set initSet 0 catch { - if {$initSet > 0} { + 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) }