X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmsearch.egw;h=4ac4f3a72b9be40a1c1f0baccc1d5128d5d91031;hb=09f416a26c1c7e35ead317106f985774ec0c97bd;hp=efe43b926360f39cea959960c950e848197eb8e7;hpb=e1652b5355c529be09d2c847ca0354bfb8db8067;p=egate.git diff --git a/www/msearch.egw b/www/msearch.egw index efe43b9..4ac4f3a 100644 --- a/www/msearch.egw +++ b/www/msearch.egw @@ -1,6 +1,6 @@ { -# $Id: msearch.egw,v 1.5 1995/11/13 15:41:42 adam Exp $ +# $Id: msearch.egw,v 1.6 1995/12/21 15:49:51 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl @@ -27,7 +27,7 @@ incr nextSetNo for {set i 1} {$i <= $hist($setNo,0,host)} {incr i} { - set hist($setNo,$i,query) [build-query $hist($setNo,$i,host)] + set hist($setNo,$i,query) [build-query $hist($setNo,$i,host)] 3 } set hist($setNo,maxPresent) [wform hits] if {$hist($setNo,maxPresent) == ""} { @@ -40,17 +40,17 @@ set not $hist($setNo,0,host) for {set i 1} {$i <= $not} {incr i} { if {$zstatus($i) != 2} continue - html "
" [lindex $targets($hist($setNo,$i,host)) 0] ": " + html "

" [lindex $targets($hist($setNo,$i,host)) 0] ": " set status [z39$i.$setNo responseStatus] if {[lindex $status 0] == "NSD"} { z39$i.$setNo nextResultSetPosition 0 set code [lindex $status 1] set msg [lindex $status 2] set addinfo [lindex $status 3] - html "Error\n
NSD$code: $msg: $addinfo" + html "Error

\n
NSD$code: $msg: $addinfo" } else { set r [z39$i.$setNo resultCount] - html "$r hits\n
\n" + html "$r hits\n
\n" display-rec 1 $hist($setNo,$i,offset) display-brief $i } @@ -59,13 +59,26 @@ html "\n" } - -
{ + global useIcons + + if {$useIcons} { + html {} + } html { New target } " | \n" + html / $sessionId {/mtargets.egw} + if {$useIcons} { + html {">} + } else { + html {"> New target } " | \n" + } html { New query } + html / $sessionId {/mquery.egw/} $host + $setNo + if {$useIcons} { + html {">} + } else { + html {"> New query } + } } {