X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fnwi.egw;h=75209c3a41222b0e52985801ca85eb33a0548abe;hb=8bafbc608e1ffba9ee87f4856e586dffa57901b8;hp=b2b7d22edb0212dc6a41275869cc7c6a1c7c1f8f;hpb=22c18161ea1085930fd3cf7005208e8d9b2cd433;p=egate.git diff --git a/www/nwi.egw b/www/nwi.egw index b2b7d22..75209c3 100644 --- a/www/nwi.egw +++ b/www/nwi.egw @@ -1,11 +1,11 @@ { -# $Id: nwi.egw,v 1.1 1996/03/11 17:41:16 adam Exp $ +# $Id: nwi.egw,v 1.4 1996/03/14 11:50:46 adam Exp $ source ztargets.conf - if {[info commands saveState] == ""} { - source z39util.tcl - } - set mMode 1 + + set scriptQuery nwi.egw + set scriptTarget {} + set utilExtension nwiutil.tcl if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { @@ -14,6 +14,9 @@ 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)]} { @@ -43,32 +46,77 @@ } set useIcons 1 - button-europagate - button-new-target 0 + 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 - html "Enter your query:
\n" + html "
" + html {
Enter your query
} - html {} + html {} html {
} - html {and search the following servers:
} + html {
and search the following servers
} - html { Sweden} - html { Norway} - - html "
\n" - - html {Display each record in } [lindex $targets($t) 0] + } + catch {unset curTargets} + html {

Display each record in notation" html { and sort by
\n" -} \ No newline at end of file + if {![string compare $curSort score]} { + html "
\n" + + set useIcons 0 + button-main + + catch maintenance +} + +