X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=www%2Fnwi.egw;h=a42ac74fe204f542e77d2c65f6669cb6b181428f;hb=a61ad0378b93e99e362a1d92c33d701dbf103eba;hp=b2b7d22edb0212dc6a41275869cc7c6a1c7c1f8f;hpb=22c18161ea1085930fd3cf7005208e8d9b2cd433;p=egate.git diff --git a/www/nwi.egw b/www/nwi.egw index b2b7d22..a42ac74 100644 --- a/www/nwi.egw +++ b/www/nwi.egw @@ -1,12 +1,15 @@ { -# $Id: nwi.egw,v 1.1 1996/03/11 17:41:16 adam Exp $ +# $Id: nwi.egw,v 1.3 1996/03/13 14:07:30 adam Exp $ source ztargets.conf + + set scriptQuery nwi.egw + set scriptTarget {} + set utilExtension nwiutil.tcl + if {[info commands saveState] == ""} { source z39util.tcl } - set mMode 1 - if {![info exists debug]} { if {[lindex $sessionParms 1] == "1"} { set debug 1 @@ -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 { Sweden} - html { Norway} - - html "
\n" + html {
and search the following servers
} - 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 +} + +