[http://www.thunderstone.com/site/webinator/scripts51/search]
<!--
   Webinator 5.1.41
   $Id: search4.src,v 2.263 2006/03/17 19:46:10 john Exp $
   thunderstone_file_sha1: 0000000000000000000000000000000000000000
-->

<SCRIPT LANGUAGE=vortex>

<!-- export variables we want to stick across user clicks -->
<EXPORT $query     QUERY USEROK><!-- user's query -->
<EXPORT $db        QUERY USEROK><!-- walk database -->
<EXPORT $pr        QUERY USEROK><!-- walk profile -->
<EXPORT $prox      QUERY USEROK><!-- proximity setting -->
<EXPORT $rorder    QUERY USEROK><!-- rank order setting -->
<EXPORT $rprox     QUERY USEROK><!-- rank proximity setting -->
<EXPORT $rdfreq    QUERY USEROK><!-- rank database freq setting -->
<EXPORT $rwfreq    QUERY USEROK><!-- rank words-in-doc freq setting -->
<EXPORT $rlead     QUERY USEROK><!-- rank lead bias setting -->
<EXPORT $sufs      QUERY USEROK><!-- suffix processing setting -->
<EXPORT $thesaurus QUERY USEROK><!-- thesaurus setting -->
<EXPORT $order     QUERY USEROK><!-- result order -->
<EXPORT $mode      QUERY USEROK><!-- interface mode -->
<EXPORT $opts      QUERY USEROK><!-- admin mode options -->
<EXPORT $tq        QUERY USEROK><!-- users title query -->
<EXPORT $uq        QUERY USEROK><!-- users url query -->
<EXPORT $dq        QUERY USEROK><!-- users depth query -->
<EXPORT $cq        QUERY USEROK><!-- users catno query -->
<EXPORT $bestbet   QUERY USEROK><!-- bestbet result -->
<EXPORT $groups    QUERY USEROK><!-- group result -->

<!-- Some notes on variables:
  == $query     Form var: User's search query (+$sq +$refine -$notq in <init>)
  == $txtquery  Text-search part of $query (sans `site:host')
  == $q         Text-search query, from $query or more-like-this
  == $sqlq      Actual SQL text query: $q after UTF-8 decode if XML output
  -->

<!-- ========================= Initial Setup ============================== -->
<!-- determine system settings and set defaults -->

<A NAME=init>
<local x y Name String userpr=$pr defaultdir>
  <if $didinit eq y><return></if>
  <$didinit=y>
  <$version="5.1.41"><!-- no spaces in version -->
  <vxinfo installdir><$installdir = $ret>
  <vxinfo version>
  <rex "winnt" $ret>
  <if "" neq $ret><!-- Windows -->
    <$isnt=1>
    <!-- see also below, and dowalk: -->
    <strfmt "%s\\etc\\aspell\\bin\\aspell" $installdir><$aspellExe=$ret>
    <quoteit var=$&aspellExe>
    <strfmt "--prefix=%s\\etc\\aspell" $installdir><$aspellPrefix=$ret>
    <quoteit var=$&aspellPrefix>
  <else>
    <$isnt=0>
    <!-- see also above, and dowalk: -->
    <strfmt "%s/etc/aspell/bin/aspell" $installdir><$aspellExe=$ret>
    <strfmt "--prefix=%s/etc/aspell" $installdir><$aspellPrefix=$ret>
  </if>
  <!-- Remove the next line (`<$db = >') to enable `db=...' in query string.
    == Not recommended.
    -->
  <$db = >
  <!-- $defaultdir is the standard prefix for all dbs  -->
  <sum "%s" $installdir "/texis/">
  <$defaultdir=$ret>
  <$dbdir="">
  <$SSc_hitsperpage=10>
  <$SSc_pagelinks=10>
  <$SSc_resultwidth=600>
  <$SSc_likeprows=200>
  <$SSc_abstractstyle=query>
  <$SSc_abstractlen=180>
  <$SSc_resultboxcolor="#c0c0c0">
  <$SSc_font="Arial,Helvetica">
  <$SSc_bbrightwidth="20%">
  <$SSc_allowxml="N">
  <$SSc_friend="127.0.0.1">
  <$SSc_searchfields="Title\Description\Keywords\Meta\Body">
  <$hilighturl="N">
  <!-- <sql "set locale='es_ES'"></sql> -->
  <!-- settings which also have SSc_t... administrative mode variants: -->
  <$x="'SSc_abstractlen','SSc_abstractstyle','SSc_bbrightborder',
       'SSc_bbrightcolor','SSc_bbrightid','SSc_bbrighttitle',
       'SSc_bbrightwidth','SSc_bbtopborder','SSc_bbtopcolor',
       'SSc_bbtopid','SSc_bbtoptitle','SSc_charsetdisplay',
       'SSc_font','SSc_hitsperpage','SSc_pagelinks','SSc_lfbot',
       'SSc_lftop','SSc_likeprows','SSc_logo',
       'SSc_resultboxcolor','SSc_resultorder','SSc_resultstyle',
       'SSc_resultwidth','SSc_rightcolor','SSc_sherlock',
       'SSc_showadvanced','SSc_pdfhighlighting','SSc_xslfile'"
  >
  <if "" neq $mode><!-- administrative mode, use test look&feel -->
     <sandr "SSc_" "SSc_t" $x><$x = $ret>
  </if>
  <$y="'SS_db','SSc_querylog','SSc_spelling','SSc_suggestTime',
       'SSc_suggestNum','SSc_rorder','SSc_rprox','SSc_rdfreq',
       'SSc_rwfreq','SSc_rlead','SSc_sufs','SSc_prox','SSc_alequivs',
       'SSc_alintersects','SSc_allinear','SSc_alpostproc','SSc_alwithin',
       'SSc_exactphrase','SSc_keepnoise','SSc_noiselist','SSc_fastcount',
       'SSc_alnot','SSc_alwild',
       'SSc_noisechar','SSc_allowxml','SSc_searchfields','SSc_friend',
       'SSc_metasearch','SSc_metahost','SSc_metaprofile','SSc_visible',
       'SSc_eqprefix','SSc_ueqprefix','SSc_catvisible','SSc_xmlutf8',
       'SSc_xmlexportvar','SSc_CJKmode','SSc_charsetstorage'">
  <if $pr eq ""><!-- no profile specified -->
     <if $db eq ""><!-- no database specified -->
        <$pr="default"><!-- use default profile -->
     </if>
  </if>
  <if $pr ne ""><!-- profile specified or defaulted -->
    <vxinfo globaldb><!-- find control database (with profiles) -->
    <$controldb=$ret>
    <!-- read all settings for this and global profile from options table -->
    <sql db=$controldb row "select Name,String from options
         where (Profile=$pr or Profile='_tsaUpgrade')
           and Name in (" $y "," $x ")">
       <procoption Name=$Name String=$String><!-- process the setting -->
    </sql>
  </if>
  <if $dbdir eq ""><!-- no database set by profile -->
    <IF $db eq ""><!-- no database specified by user -->
      <if "" eq $userpr><!-- no profile specified by user -->
        <FM>No profile specified.</F>
      <else>
        <FM>No such profile.</F>
      </if>
      <exit>
    </IF>
    <sum "%s" $defaultdir $db>
    <!-- Security check: disallow /.. in paths; keep users in webinator/: -->
    <sandr "[/\\]=\.{2,}" "" $ret>
    <$dbdir = $ret>
  </if>
  <if $pr eq ""><!-- no profile, load option settings set at time of walk -->
    <$controldb=$dbdir><!-- set the control database to the walk database -->
    <!-- read all settings for this profile from options table -->
    <sql db=$controldb row "select Name,String from options where Name in (" $x ")">
       <procoption Name=$Name String=$String><!-- process the setting -->
    </sql>
  </if>
  <!-- use profile specified order if non specified by user -->
  <if $order eq ""><$order=$SSc_resultorder></if>
  <if $power eq 1><!-- only if showing advanced search form -->
     <!-- set defaults for form vars not set by user or profile -->
     <if "" eq $sufs  ><$sufs=0></if>
     <if "" eq $prox  ><$prox=page></if>
     <if "" eq $rorder><$rorder=500></if>
     <if "" eq $rprox ><$rprox=500></if>
     <if "" eq $rdfreq><$rdfreq=500></if>
     <if "" eq $rwfreq><$rwfreq=500></if>
     <if "" eq $rlead ><$rlead=500></if>
  </if>
  <getapisettings>
  <DB = $dbdir><!-- set the database to search -->
  <sqlcp autocreatedb off><!-- prevent creation of the db if it's not there -->
  <!-- see also logic in webinatoradmin:Update -->
  <if "" eq $SSc_charsetstorage>
     <$SSc_charsetstorage="UTF-8">
  </if>
  <if "" neq $SSc_charsetdisplay>
     <$charsetdisplay=$SSc_charsetdisplay>
  <elseif "" neq $SSc_charsetstorage>
     <$charsetdisplay=$SSc_charsetstorage>
  <else>
     <$charsetdisplay="UTF-8">
  </if>
  <if $arg ne ""><$query=$arg></if><!-- ver 1 back compatibility -->
  <!-- Add in $refine ("Search these answers").  Do this early, so that any
    == `site:host' syntax in $refine is parsed below, and $refine shows up
    == in title, log etc. even for XML output style:
    -->
  <if $refine ne ""><!-- add previous query to this query -->
     <$query=($refine+ ' ' +($query-$refine))><!-- make sure not redundant -->
     <$refine=>
  </if>
  <!-- Parse `site:host' syntax: set $txtquery, $siteq; update $query: -->
  <$txtquery = $query>
  <!-- Add in NOT query ("Without this").
    -->
  <IF $notq neq ""><!-- add not'd notq to query -->
     <local n>
     <rex "[^\space\-\+]+" $notq><$n=$ret><!-- remove junk, keep "words"  -->
     <sum " -%s" "" $txtquery $n><!-- place - in front of each word -->
     <substr $ret 4 -1><$txtquery = $ret><!-- remove leading " - -" -->
     <sum " -%s" "" $query $n><!-- same for $query -->
     <substr $ret 4 -1><$query = $ret>
     <$notq = >
  </IF>
  <if $SSc_noisechar neq ''>
     <sandr "\space" "" $SSc_noisechar>
     <if $ret neq ''>
        <sandr "." "\\\1" $ret>
        <strfmt "[%s]" $ret>
	<sandr $ret "" $txtquery>
	<$txtquery=$ret>
     </if>
  </if>
  <sum "%s" $txtquery " @0 w/."><!-- markup all terms, not just first match -->
  <if $hl eq N><!-- no hilight -->
     <$mmfmt=""><!-- will be given to fmtcp later -->
  <else>
     <$mmfmt=$ret><!-- will be given to fmtcp later -->
  </if>
</A>

<!-- get query options -->
<a name=getapisettings public>
<local apis>
   <$apis=alintersects allinear alpostproc alwithin exactphrase
          keepnoise alnot alwild>
   <loop $apis>
      <strfmt "SSc_%s" $apis>
      <getvar $ret>
      <switch $ret>
         <case Y><apicp $apis on>
         <case N><apicp $apis off>
      </switch>
   </loop>
   <switch $SSc_alintersects>
      <case "Y"><sql novars "set likepobeyintersects=1"></sql>
      <case "N"><sql novars "set likepobeyintersects=0"></sql>
   </switch>
   <!-- This used to be just Y/N: -->
   <getvar "SSc_alequivs">
   <switch $ret>
      <case "disabled"><apicp eqprefix ""><apicp ueqprefix "">
      <case "N"><apicp alequivs "no">
      <case "Y"><apicp alequivs "yes">
      <case "keepeqvs"><apicp alequivs "yes"><apicp keepeqvs "yes">
   </switch>
   <split NONEMPTY "\space+" $SSc_noiselist></split>
   <if $ret neq ''><apicp noise $ret></if>
</a>

<!-- process an individual option setting -->
<a name=procoption Name String>
       <!-- assign the incoming value to the correct variable -->
       <switch $Name>
       <case SS_db><$dbdir=$String>
       <case SSc_querylog><$SSc_querylog=$String>
       <case SSc_resultorder><$SSc_resultorder=$String>
       <case SSc_tresultorder><$SSc_resultorder=$String>
       <case SSc_resultstyle><$SSc_resultstyle=$String>
       <case SSc_tresultstyle><$SSc_resultstyle=$String>
       <case SSc_font><$SSc_font=$String>
       <case SSc_tfont><$SSc_font=$String>
       <case SSc_sherlock><$SSc_sherlock=$String>
       <case SSc_tsherlock><$SSc_sherlock=$String>
       <case SSc_lftop><$SSc_lftop=$String>
       <case SSc_tlftop><$SSc_lftop=$String>
       <case SSc_lfbot><$SSc_lfbot=$String>
       <case SSc_tlfbot><$SSc_lfbot=$String>
       <case SSc_hitsperpage><if $String ne ""><sum "%d" $String><$SSc_hitsperpage=$ret></if>
       <case SSc_thitsperpage><if $String ne ""><sum "%d" $String><$SSc_hitsperpage=$ret></if>
       <case SSc_pagelinks><if $String ne ""><sum "%d" $String><$SSc_pagelinks=$ret></if>
       <case SSc_tpagelinks><if $String ne ""><sum "%d" $String><$SSc_pagelinks=$ret></if>
       <case SSc_resultwidth><if $String ne ""><$SSc_resultwidth=$String></if>
       <case SSc_tresultwidth><if $String ne ""><$SSc_resultwidth=$String></if>
       <case SSc_resultboxcolor><if $String ne ""><$SSc_resultboxcolor=$String></if>
       <case SSc_tresultboxcolor><if $String ne ""><$SSc_resultboxcolor=$String></if>
       <case SSc_showadvanced><if $String ne ""><$SSc_showadvanced=$String></if>
       <case SSc_tshowadvanced><if $String ne ""><$SSc_showadvanced=$String></if>
       <case SSc_pdfhighlighting><if $String ne ""><$SSc_pdfhighlighting=$String></if>
       <case SSc_tpdfhighlighting><if $String ne ""><$SSc_pdfhighlighting=$String></if>
       <case SSc_likeprows><if $String ne ""><$SSc_likeprows=$String></if>
       <case SSc_tlikeprows><if $String ne ""><$SSc_likeprows=$String></if>
       <case SSc_abstractstyle><if $String ne ""><$SSc_abstractstyle=$String></if>
       <case SSc_tabstractstyle><if $String ne ""><$SSc_abstractstyle=$String></if>
       <case SSc_abstractlen><if $String ne ""><$SSc_abstractlen=$String></if>
       <case SSc_tabstractlen><if $String ne ""><$SSc_abstractlen=$String></if>
       <case SSc_spelling><if $String ne ""><$SSc_spelling=$String></if>
       <case SSc_suggestTime><if $String ne ""><$SSc_suggestTime=$String></if>
       <case SSc_suggestNum><if $String ne ""><$SSc_suggestNum=$String></if>
       <case SSc_bbrightborder><$SSc_bbrightborder=$String>
       <case SSc_tbbrightborder><$SSc_bbrightborder=$String>
       <case SSc_bbrightcolor><$SSc_bbrightcolor=$String>
       <case SSc_tbbrightcolor><$SSc_bbrightcolor=$String>
       <case SSc_bbrightid><$SSc_bbrightid=$String>
       <case SSc_tbbrightid><$SSc_bbrightid=$String>
       <case SSc_bbrighttitle><$SSc_bbrighttitle=$String>
       <case SSc_tbbrighttitle><$SSc_bbrighttitle=$String>
       <case SSc_bbrightwidth><$SSc_bbrightwidth=$String>
       <case SSc_tbbrightwidth><$SSc_bbrightwidth=$String>
       <case SSc_bbtopborder><$SSc_bbtopborder=$String>
       <case SSc_tbbtopborder><$SSc_bbtopborder=$String>
       <case SSc_bbtopcolor><$SSc_bbtopcolor=$String>
       <case SSc_tbbtopcolor><$SSc_bbtopcolor=$String>
       <case SSc_bbtopid><$SSc_bbtopid=$String>
       <case SSc_tbbtopid><$SSc_bbtopid=$String>
       <case SSc_bbtoptitle><$SSc_bbtoptitle=$String>
       <case SSc_tbbtoptitle><$SSc_bbtoptitle=$String>
       <case SSc_alequivs><$SSc_alequivs=$String>
       <case SSc_alintersects><$SSc_alintersects=$String>
       <case SSc_allinear><$SSc_allinear=$String>
       <case SSc_alpostproc><$SSc_alpostproc=$String>
       <case SSc_alwithin><$SSc_alwithin=$String>
       <case SSc_exactphrase><$SSc_exactphrase=$String>
       <case SSc_keepnoise><$SSc_keepnoise=$String>
       <case SSc_noiselist><$SSc_noiselist=$String>
       <case SSc_fastcount><$SSc_fastcount=$String>
       <case SSc_alnot><$SSc_alnot=$String>
       <case SSc_alwild><$SSc_alwild=$String>
       <case SSc_sufs  ><if "" eq $sufs  ><$sufs=$String></if>
       <case SSc_prox  ><if "" eq $prox  ><$prox=$String></if>
       <case SSc_rorder><if "" eq $rorder><$rorder=$String></if>
       <case SSc_rprox ><if "" eq $rprox ><$rprox=$String></if>
       <case SSc_rdfreq><if "" eq $rdfreq><$rdfreq=$String></if>
       <case SSc_rwfreq><if "" eq $rwfreq><$rwfreq=$String></if>
       <case SSc_rlead ><if "" eq $rlead ><$rlead=$String></if>
       <case SSc_charsetstorage><$SSc_charsetstorage=$String>
       <case SSc_charsetdisplay><$SSc_charsetdisplay=$String>
       <case SSc_tcharsetdisplay><$SSc_charsetdisplay=$String>
       <case SSc_noisechar><$SSc_noisechar=$String>
       <case SSc_allowxml><$SSc_allowxml=$String>
       <case SSc_searchfields><$SSc_searchfields=$String>
          <strstr "Url" $SSc_searchfields>
          <if $ret gt -1><$hilighturl="Y"></if>
       <case SSc_catvisible>
          <split nonempty "\x0d?\x0a" $String></split><$SSc_catvisible=$ret>
       <case SSc_xmlutf8><$SSc_xmlutf8=$String>
       <case SSc_CJKmode><$SSc_CJKmode=$String>
       </switch>
</a>

<!-- ===================== HTML at the top of every page ================== -->

<a name="top">
  <init>
  <if $SSc_lftop ne ""><!-- profile has a top html -->
     <!-- replace $query in html with the user's query -->
     <strfmt "%H" $query>
     <sandr "\$$query=\F[^_\alnum]" $ret $SSc_lftop>
     <send $ret>
  <else><!-- no profile html, use default -->
     <html>
     <head>
     <meta http-equiv="Content-Type" content="text/html; charset=$charsetdisplay">
     <title>Search: $query</title>
     </head>
     <body>
  </if>
  <if $mode ne ""><!-- administrative mode -->
     <FS>
     <!-- provide links back to admin -->
     <adminurl>
     <p>Test mode ($pr)
      - <a href="$ret">Back to Administration</a>
     <makeliveurl>
      - <a href="$ret">Make this appearance live</a>
     </F><p>
  </if>
</a>

<a name=adminurl>
     <sandr "[^/]+/?>>=" "dowalk\?profile=%U\&opts=%U" $urlroot>
     <strfmt $ret $pr $opts>
</a>
                                                                               
<a name=makeliveurl>
     <sandr "[^/]+/?>>=" "dowalk/Update.html\?profile=%U\&opts=%U\&SSc_applylf=Y" $urlroot>
     <strfmt $ret $pr $opts>
</a>

<!-- =================== HTML at the bottom of every page ================= -->

<a name="bottom">
  <!-- big red license violation warning will be seen by all search users -->
  <vxinfo license violationmsg>
  <if $ret ne "">
     <font size="-1" color=red>
     This site has been in violation of its license since
     <vxinfo license violationtime>$ret
     (<vxinfo license violationmsg>$ret)
     <!-- (<vxinfo license maxtblrows>$'ret'(<vxinfo license curtblrows>$ret)d/<vxinfo license maxhits>$'ret'(<vxinfo license curhits>$ret)h) -->
     </font>
  </if>
  <if $SSc_lfbot ne ""><!-- profile has a bottom html -->
     <!-- replace $query in html with the user's query -->
     <strfmt "%H" $query>
     <sandr "\$$query=\F[^_\alnum]" $ret $SSc_lfbot>
     <send $ret>
  <else><!-- no profile html, use default html -->
     </body></html>
  </if>
</a>

<!-- ======================= Generate a boxed region ====================== -->

<a name="box"> 
<table width="$SSc_resultwidth" border=0 cellpadding=1 cellspacing=0 bgcolor="$SSc_resultboxcolor">
<tr> 
  <td><fm> </a> <a name=/box> </f></td></tr>
</table>
</a> <a name=boxmessage message>
      <if $SSc_resultstyle neq 8>
              <box><fmt %H $message></box>
      <else>
              <strfmt "<QueryMessage>%hhV</QueryMessage>\n" $message>
              <$xmlPage=$xmlPage $ret>
      </if>
</a>
<!-- ============================ Font macros ============================= -->

<a name="FH export"><font face="$SSc_font" size="+2"></a>
<a name="FL export"><font face="$SSc_font" size="+1"></a>
<a name="FM export"><font face="$SSc_font"></a>
<a name="FS export"><font face="$SSc_font" size="-1"></a>
<a name="FT export"><font face="$SSc_font" size="-2"></a>
<a name="/F export"></font></a>
<a name="LT"><send "<"></a>
<a name="GT"><send ">"></a>

<!-- ======================= Show the search form ========================= -->

<a name="showform refine=n">
  <table width="$SSc_resultwidth" border="0" cellspacing="0" cellpadding="0">
  <form method=get action="$urlroot">
  <IF $power neq 1><!-- non-power form, hide these settings -->
    <$vars = "mode" "opts" "pr" "db" "prox" "rorder" "rprox" "rdfreq" "rwfreq" "rlead" "sufs" "order"
    >
  <ELSE><!-- power form, only hide these -->
    <$vars = "mode" "opts" "pr" "db">
  </IF>
  <LOOP $vars><!-- generate hidden vars to retain settings -->
    <getvar $vars>
    <IF "" neq $ret>
      <input type="hidden" name="$vars" value="$ret">
    </IF>
  </LOOP>
  <IF $power neq 1><!-- basic search form -->
    <tr><th align="right nowrap"><FS>Search for this:</font></th><td nowrap><FM><input size=30 name=query value="$query"><catbox><input type=submit name=submit value="Submit"> <if $SSc_showadvanced neq 'N'><input type=submit name=cmd value="Advanced"></if>
    </F></TD></TR>
   <if $refine eq y>
      <tr><td><FS>&nbsp;</font></td><td><FS><input type=checkbox name=refine value="$query">Search these answers</font></td></tr>
   </if>
  <ELSE><!-- advanced search form -->
    <tr><th align=right><FS>Search for this:</font></th><td><fm><input size=30 name=query value="$txtquery"><catbox><input type=submit name=submit value="Submit"><input type=submit name=cmd value="Hide Advanced">
    </F></td></tr>
    <tr><th align=right nowrap><FS>Without this:</th><td><FM><input size=30 name=notq></F>
    <if $refine eq y>
       <FS>&nbsp;<input type=checkbox name=refine value="$query">Search these answers&nbsp;</FONT>
    </if>
    <FS>&nbsp;<checkbox order dd $order "sort by date"></font>
    </td></tr>
    </table><table width="$SSc_resultwidth" border=0 cellspacing=0 cellpadding=0>
    <tr>
    <td valign=top width=30%><helpbox></td>
    <td valign=top width=30%><proxbox><br /><sufbox></td>
    <td valign=top width=30%><rankbox></td>
    </tr>
  </IF>
  </form>
  </table>
</a>

<!-- display the selectable list of categories, if any -->
<a name=catbox>
<sql "select distinct Catno,Category from categories order by convert(Catno,'int')"></sql>
<if $loop gt 0><!-- has some categories -->
   <select name=cq>
   <if "" eq $cq><!-- none currently selected, select everything -->
      <option value="" selected>everything
   <else>
      <option value="">everything
   </if>
   <loop $Catno $Category $SSc_catvisible><!-- display all cats, select already selected ones -->
      <$sel = "">
      <loop $cq>
          <if $Catno eq $cq>
	      <$sel="selected">
	      <$SSc_catvisible="Y">
	  </if>
      </loop>
      <if "N" eq $SSc_catvisible><continue></if><!-- not visible -->
      <option value=$Catno $sel>Only $Category
   </loop>
   </select><!--nop-->
</if>
</a>

<!-- display ranker adjustment knobs -->
<a name=rankbox>
  <$rnames= "off" "low" "medium" "high" "max">
  <$rval  =  0     250  500        750    1000>
  <$rvarnames = "rorder"        "rprox"          "rdfreq" "rwfreq" "rlead">
  <$rvar = "SSc_rorder"        "SSc_rprox"          "SSc_rdfreq" "SSc_rwfreq" "SSc_rlead">
  <$rvardesc  = "Word ordering" "Word proximity" "Database Frequency"
                "Document Frequency" "Position in text">
  <table border=0 cellpadding=0 cellspacing=1>
  <tr><th nowrap align=center colspan=2><FS>RANKING FACTORS</th></tr>
  <tr><th nowrap align=left><FS>Rank Factor</th>
      <th nowrap><FS>Importance</th></tr>
  <LOOP $rvarnames $rvardesc $rvar>
    <tr><td nowrap><FS>$rvardesc</td>
    <getvar $rvarnames><IF $ret eq ""><$ret = $rvar></IF>
    <td nowrap><FS><select name=$rvarnames>
    <options $rval $ret $rnames>
    </select></td></tr>
  </LOOP>
  </table>
</a>

<!-- proximity setting choices -->
<a name=proxbox>
  <$proxval = line sentence paragraph page>
  <$proxout = line sentence paragraph page>
  <table border=0 cellpadding=0 cellspacing=0>
  <tr><th nowrap><FS>PROXIMITY</th></tr>
  <LOOP $proxval $proxout>
    <tr><td nowrap><FS><LT>input type=radio name=prox value="$proxval" <IF $prox eq $proxval>CHECKED</IF><GT> $proxout</td></tr>
  </LOOP>
  </table>
</a>

<!-- suffix processing choices -->
<a name=sufbox>
  <$suftype = "Exact match" "Plural & posessives" "Any word forms">
  <table border=0 cellpadding=0 cellspacing=0>
  <tr><th nowrap align=left><FS>WORD FORMS</th></tr>
  <LOOP $suftype>
    <tr><td nowrap><FS><LT>input type=radio name=sufs value=$loop <IF $loop eq $sufs>CHECKED</IF><GT> $suftype</td></tr>
  </LOOP>
  </table>
</a>

<!-- help links -->
<a name=helpbox>
  <table border=0 cellpadding=3 cellspacing=0>
  <$helplst =
   "Using logic operators"
   "Phrase Matching"
   "Wild Card Searches"
   "Using the Thesaurus"
   "Regular Expressions"
   "Quantity Searching"
   "More Subjects..."
  >
  <$helplnks =
   Applying+Search+Logic
   Keywords+Phrases+and+Wild-cards
   Keywords+Phrases+and+Wild-cards
   Invoking+Thesaurus+Expansion
   Using+the+Special+Pattern+Matchers
   Using+the+Special+Pattern+Matchers
   Search+Interface+Help
  >
  <tr><th nowrap align=left><FS>SEARCH HELP</th></tr>
  <LOOP $helplst $helplnks>
    <tr><td nowrap><FS><a href="http://www.thunderstone.com/texis/site/searchman?ver=w4&query=$helplnks"><b>$helplst</b></a></td></tr>
  </LOOP>
  </table>
</a>

<!-- ======================================================================
                   Parse the settings from the form
======================================================================= -->

<a name=fpar>
<switch $order><!-- use like for date ordered answers, likep for rank order -->
<case "dd"><$liketype=like><$sqlorder=" order by Modified desc">
<case "da"><$liketype=like><$sqlorder=" order by Modified">
<case "r"><$liketype=likep><$sqlorder=>
<default><$order="r"><$liketype=likep><$sqlorder=>
</switch>
<switch $suffixproc><!-- translate oldstyle webinator form variables to new -->
<case min><$sufs=1>
<case max><$sufs=2>
</switch>
<switch $sufs>
<!-- minimum suffix processing, but not off -->
<case 1><apicp suffixproc 1>
        <apicp minwordlen 5>
        <$x= "'" "s" "es"><apicp suffix $x>
<!-- maximum suffix processing -->
<case 2><apicp suffixproc 1>
        <apicp minwordlen 5>
</switch>
<switch $proximity><!-- translate oldstyle webinator form variables to new -->
<case sent><$prox=sentence>
<case line><$prox=line>
<case para><$prox=paragraph>
<case page><$prox=>
</switch>
<switch $prox><!-- proximity setting -->
<case line>     <apicp sdexp "\x0a">
                <apicp edexp "\x0a">
                <apicp incsd 0>
                <apicp inced 1>
                <apicp alpostproc yes>
                <$count=1><!-- need extra work to get precise hit count -->
<case sentence> <apicp sdexp '[^\digit\upper]\P=>>[.?!\n]=\F[\space\x27"]'>
                <apicp edexp '[^\digit\upper]\P=>>[.?!\n]=\F[\space\x27"]'>
                <apicp incsd 0>
                <apicp inced 1>
                <apicp alpostproc yes>
                <$count=1><!-- need extra work to get precise hit count -->
<case paragraph><apicp sdexp "\x0a=[ \r\t]*\x0a+">
                <apicp edexp "\x0a=[ \r\t]*\x0a+">
                <apicp incsd 1>
                <apicp inced 0>
                <apicp alpostproc yes>
                <$count=1><!-- need extra work to get precise hit count -->
<case page>     <apicp sdexp ""><!-- no delim means within record -->
                <apicp edexp "">
</switch>
<if $thesaurus eq 1>
   <apicp keepeqvs 1>
</if>
<if $tq ne ""><$count=1></if><!-- need extra work to get precise hit count -->
<if $uq ne ""><$count=1></if><!-- need extra work to get precise hit count -->
<if $dq ne ""><$count=1></if><!-- need extra work to get precise hit count -->
<if "" ne $cq><$count=1></if><!-- need extra work to get precise hit count -->
<!-- rank knobs -->
<if "" ne $rorder><sql "set likeporder    =$rorder"></sql><else><$rorder=></if>
<if "" ne $rprox ><sql "set likepproximity=$rprox "></sql><else><$rprox=></if>
<if "" ne $rdfreq><sql "set likeptblfreq  =$rdfreq"></sql><else><$rdfreq=></if>
<if "" ne $rwfreq><sql "set likepdocfreq  =$rwfreq"></sql><else><$rwfreq=></if>
<if "" ne $rlead ><sql "set likepleadbias =$rlead "></sql><else><$rlead=></if>
<apicp qminwordlen  1><!-- allow single letter query terms -->
<apicp qminprelen   1><!-- and wildcard prefixes -->
<!-- Other setting you may wish to tweek. See the Texis and Vortex manuals
     for descriptions of what they do and other settings.
   <sql "set likeprows     =100"></sql>
   <sql "set likepallmatch =1"></sql>
   <apicp exactphrase  1>
   <apicp keepnoise    1>
-->
</a>

<!-- ============ Parse the settings from the query ===================== -->

<a name=qpar>
<if $SSc_likeprows eq ''><$SSc_likeprows=200></if>
<SQL "set likeprows=$SSc_likeprows"></SQL><!-- set max of 200 hits -->
<sum "%s" "" $cq><$cq=$ret><!-- make sure it's a string, not int -->
<if $mltquery ne ""><!-- we're doing "more like this" -->
   <$q=$mltquery>
<else>
   <SQL "set likepallmatch=1"></SQL><!-- require all query terms in hit -->
   <fpar><!-- process form settings -->
   <$q=$txtquery>
</if>
</a>

<!-- ======================  Search Result Summary   ==================== -->

<!-- display list of possible pages to jump to -->
<a name=pageno export>
<if $indexcount gt $SSc_hitsperpage><!-- more than one page of hits -->
<local ualist uavar curPage dispPage pageLowRange pageHighRange>
      <$dispPage = (($jump / $SSc_hitsperpage) + 1)>
   <!-- figure out what our low and high range are for hits.
     == use pageLowRange as a temporary var -->
   <$pageLowRange = (fmod($SSc_pagelinks,2))>
   <if $pageLowRange eq 0>
      <!-- pagelinks is even, so lowRange needs to be 1 less than
        == high range (to account for the current item) -->
      <$pageHighRange = ($SSc_pagelinks / 2)>
      <$pageLowRange = ($pageHighRange - 1)>
   <else>
      <!-- pagelinks is odd, low & high get an even split
        == (rounded down to account for current page) -->
      <$pageLowRange = (floor($SSc_pagelinks / 2))>
      <$pageHighRange = $pageLowRange>
   </if>
   <$i=0>
   <$t=$next><!-- preserve $next -->
   <!-- if we're too close to the low range, increase the high range
     == (so that page #1 of 10 shows 1-10 instead of 1-5 -->
   <if $dispPage - $pageLowRange lte 0>
      <!-- subtract the negative value from highRange,
        == effectively adding to it -->
      <$pageHighRange = ($pageHighRange - ($dispPage - $pageLowRange - 1))>
   </if>
   <!-- if we're too close to the high range, increase the low range
     == (so that page #10 of 10 shows 1-10 instead of 5-10) -->
      <local tmp>
      <!-- if the number of pages of results left (tmp) is less than
        == the number of pages we want to show (pageHighRange), then add the
        == difference onto pageLowRange. -->
      <$tmp = ( ceil( ($indexcount - $jump) / $SSc_hitsperpage) )>
      <if $tmp lt $pageHighRange>
        <$pageLowRange = ($pageLowRange + ($pageHighRange - $tmp) )>
      </if>
      </local>

   Page:
   <local ualistCur>
   <while 1 eq 1>
      <$curPage = ($loop+1)>
      <$ualistCur=>
      <loop skip=$loop max=1 $ualist><$ualistCur = $ualist></loop>
      <if $i ge $indexcount><!-- hit end, stop numbering -->
         <break>
      </if>
      <!-- if we're above the range we want to display, stop numbering
        == dispPage won't be set if we haven't hit the page we're on -->
      <if $dispPage neq "" and $curPage gt ($dispPage + $pageHighRange)>
         <break>
      </if>
      <$j=($i+1)>
      <!-- don't display a page link for this one
        == if the displayed page is too far ahead -->
      <if $curPage gte ( $dispPage - $pageLowRange) >
         <if $j eq $start><!-- no hyperlink for the page we're on -->
               <b>$curPage</b>
            <else>                                   <!-- output not XML -->
               <if $j eq $nextpage><!-- next page -->
                  <a href="$url$urlq$mltvar&jump=$i$uavar">$curPage</a>
               <else>
                  <a href="$url$urlq$mltvar&jump=$i$uavar">$curPage</a>
               </if>
            </if>
      </if> <!-- if(not too low) -->

     <$i=($i+$SSc_hitsperpage)><!-- increment by number of hits per page -->
     <!-- If we know there's no more results, don't show future pages: -->
     <if $i gte $end><if "n" eq $shownext><break></if></if>
   </while>
   </local>
   <$next=$t><!-- restore $next -->
</if>
</a>

<!-- issue thunderstone logo -->
<a name=credit><IF $CREDIT eq ""><$CREDIT = 1><FT>Results by:<a href="http://www.thunderstone.com/"><img align=middle border=0 src=/webinator/tstonebut.gif alt="Thunderstone"><!--<i>THUNDERSTONE</i>--></a></F></IF></a>

<!-- ======================  Search Result Summary   ==================== -->

<!-- display prev,next,page links and option to change sort order -->
<a name=summary>
<local dispstart=$start dispend=$end>
  <table width="$SSc_resultwidth" border=0 cellpadding=1 cellspacing=0 bgcolor="$SSc_resultboxcolor">
  <tr><td colspan=3 align=center><FM>
    $start through $end of <if $count eq 1><if $SSc_fastcount eq Y>about</if></if><fmt " %kd " $indexcount>
    <if $cmd eq mlt><!-- doing a "more like this" query -->
       similar documents,
       best matches first.
    <else>
       matching documents,
       <local order=$order>
       <switch $order>
       <case "da">oldest pages first. &nbsp;&nbsp;
           <$order="r"><a href="$url$urlq$mltvar">sort by relevance</a>
       <case "dd">newest pages first. &nbsp;&nbsp;
           <$order="r"><a href="$url$urlq$mltvar">sort by relevance</a>
       <default>best matches first. &nbsp;&nbsp;
           <$order="dd"><a href="$url$urlq$mltvar">sort by date</a>
       </switch>
       </local>
    </if>
  </F></td></tr>
  <IF $indexcount gt $SSc_hitsperpage and $start gt 0 or $indexcount gt $end>
    <tr><td align=left valign=center width=20%><FM>
     <IF $jump gt 0>                            <!-- show previous link -->
       <$ret=($jump-$SSc_hitsperpage)>
       <a href="$url$urlq$mltvar&jump=$ret">&lt;&lt;previous</a>
     <ELSE><credit>
     </IF>
     &nbsp;</F></td>
     <td align=center width=60%><FM><pageno></F></td>
     <td align=right  width=20%><FM>&nbsp;
     <IF "y" eq $shownext>                      <!-- show next link -->
        <a href="$url$urlq$mltvar&jump=$end">next&gt;&gt;</a>
     <ELSE><credit>
     </IF>
     </F></td></tr>
  </IF>
</table>
</a>

<!-- ======================================================================
             Setup hilight info link for PDF documents
======================================================================= -->
<a name=setpdfhi>
   <if "N" eq $SSc_pdfhighlighting><$pdfhiurl=""><$pdfhi=""><return></if><!-- turned off -->
   <!-- find our hostname for a fully qualified url -->
   <$xsvr=$HTTP_HOST>
   <if $xsvr eq ""><$xsvr=$SERVER_NAME></if>
   <if $xsvr ne ""><!-- found a hostname -->
      <capture>$urlq</capture><!-- "display" urlq so vars get exported to it -->
      <$pdfhiurl="http://" $xsvr $url "/pdfhi.txt" $urlq "&id=" $id $mpurl>
      <sum "%s" $pdfhiurl><$pdfhiurl=$ret><!-- unadorned for xml output -->
      <sum "%s" "#xml=" $pdfhiurl><$pdfhi=$ret>
   <else><!-- no hostname, don't make invalid url -->
      <$pdfhiurl=""><$pdfhi="">
   </if>
</a>

<!-- ======================  Search Result Item   ==================== -->

<a name=fixcharset xmlmode="n">
<!-- Map result data to display charset -->
   <if "" eq $Charset><!-- assume old (pre-2004-07-16) walk -->
      <if "y" eq $xmlmode>
         <!-- It's *probably* UTF-8, and therefore no conversion needed
           == if Display Charset is also UTF-8, but if it's not UTF-8,
           == we can't risk any non-UTF-8 output in XML.  So force a
           == conversion; the characters may get mangled, but they'll
           == be valid UTF-8 at least:
           -->
         <$Charset = "ISO-8859-1">
      <else>
         <$Charset = "UTF-8">
      </if>
   <else if "UNKNOWN" eq $Charset>
      <if "y" eq $xmlmode>
         <$Charset = "ISO-8859-1"><!-- XML requires perfect UTF-8 output -->
      <else>
         <!-- HTML browsers are more forgiving than XML; different-charset
           == chars on a page just show as `?' without a whole-page error,
           == and the user can flip encodings to show them.  But if we
           == convert, chars will never show correctly under any encoding:
           -->
         <return><!-- cannot convert -->
      </if>
   </if>
   <if $Charset eq $charsetdisplay><return></if><!-- nothing to do -->
   <local vars savloop=$loop savnext=$next>
   <$vars = "dtitle" "dabstract" "durl"><!-- vars to fix; see fixxmlutf8 -->
   <vxinfo release>
   <if $ret gt "2004-01-15">
      <urlcp charsetsrc $Charset>
      <urlcp charsettxt $charsetdisplay>
   </if>
   <urlcp timeout 5>
   <loop $vars>
      <getvar $vars>
      <strfmt "%lH" $ret>
      <fetch "http://localhost/foo.html" $ret>
      <!-- if we fail to convert one field, probably can't convert others: -->
      <urlinfo errnum><if 0 neq $ret><break></if>
      <urlinfo text>
      <setvar $vars $ret>
   </loop>
   <$loop = $savloop><$next = $savnext>
</a>

<a name=fixxmlutf8>
<!-- Does SSc_xmlutf8 fixup if needed.
  == NOTE: assumes data is UTF-8, and HTML-encoded (ie. past hit markup).
  == NOTE: see also crawl-time fixup.
  -->
   <if "Y" neq $xmlutf8><return></if><!-- nothing to do -->
   <local vars savloop=$loop savnext=$next>
   <$vars = "dtitle" "dabstract" "durl"><!-- vars to fix; see fixcharset -->
   <loop $vars>
      <getvar $vars>
      <!-- MSIE XML does not like invalid UTF-8 sequences: -->
      <strfmt "%!hhV" $ret><strfmt "%hV" $ret>
      <!-- XML does not like control chars.
        == At this point they have been HTML-encoded by hit markup,
        == and should be the only numeric escapes (<>&" are named escapes):
        -->
      <sandr ">>&#=\digit{1,3};=" " " $ret>
      <!-- <sandr ">>[\x00-\x08\x0b-\x0c\x0e-\x1f]" " " $ret> -->
      <!-- MSIE XML also does not like Unicode U+0080 - U+00FF: -->
      <!-- MSIE Seems OK -->
      <sandr "<=/?>>B=>=" "\1\2b\4" $ret>
      <setvar $vars $ret>
   </loop>
   <$loop = $savloop><$next = $savnext>
</a>

<a name=setupresult export fmt="%mbH" xmlmode="n">
   <$mpurl="">
   <$pdfhi="">
   <rex ">>=\alnum{1,4}\R document (=\digit+k)=>>=" $Title>
   <IF $ret ne ""><!-- was the result of a plugin -->
      <rex "[^/]+\.=\alnum{1,4}>>=" $Url>
      <sum "%s" $Title " " $ret><!-- append filename to title -->
      <$dtitle = $ret>
      <substr $dtitle 0 14>
      <IF $ret="PDF Document ("><!-- setup acrobat viewer hilighting -->
         <setpdfhi>
      </IF>
   <ELSE><!-- not the result of a plugin (or had a real title) -->
      <rex ">>=.{,60}[\alnum]{0,10}" $Title><!-- limit to first 60 chars,
                               rounded up to nearest reasonable sized word -->
      <if $ret ne $Title><!-- truncated, indicate such -->
         <sum "%s" $ret " ..."><$dtitle=$ret>
      <else>
         <sandr "\space" "" $Title>
         <if $ret eq "">
            <$dtitle = "--No Title--">
         <else>
            <$dtitle = $Title>
         </if>
      </if>
      <$ret = "\.pdf=>>=" "\.pdf#">
      <rex $ret $Url>
      <if $ret ne ""><!-- setup acrobat viewer hilighting -->
         <setpdfhi>
      </if>
   </IF>
   <rex ">>=http" $Url><if $ret eq ""><$pdfhi=></if>
   <if "" neq $pdfhi>
      <sandr ">>#=.*" "" $Url><$Urlnoanchor=$ret>
   <else>
      <$Urlnoanchor=$Url>
   </if>
   <strfmt $fmt $mmfmt $dtitle><$dtitle=$ret>
   <switch $SSc_abstractstyle>
   <case desc>
      <$dabstract=$Description>
   <case smart>
      <abstract $Body $SSc_abstractlen smart><$dabstract=$ret>
   <case dumb>
      <abstract $Body $SSc_abstractlen dumb><$dabstract=$ret>
   <default><!--<case query>-->
      <abstract $Body $SSc_abstractlen smart $sqlq><$dabstract=$ret>
   </switch>
   <strfmt $fmt $mmfmt $dabstract><$dabstract=$ret>
   <if $hilighturl eq "Y">
      <$mf=$mmfmt>
   <else>
      <$mf="">
   </if>
   <setupresulturl fmt=$fmt>
   <fixcharset xmlmode=$xmlmode>
   <fixxmlutf8>
</a>

<a name=setupmpurl><!-- extra state info for urls -->
  <$mpurl=>
</a>

<!-- make a presentable form of the url -->
<a name=setupresulturl fmt>
   <strlen $Url>
   <if $ret gt 60><!-- very long, show truncated version -->
      <rex ">>=\alpha+://=[^/]+/" $Url><$durl=$ret><!--nop-->
      <strlen $ret><$x=($ret-57)>
      <substr $Url $x -1><sum "%s" $durl "..." $ret>
      <if $hilighturl eq Y>
         <strfmt $fmt $mf $ret>
      <else>
         <strfmt "%H" $ret>
      </if>
      <$durl=$ret><!--nop-->
   <else>
      <if $hilighturl eq Y>
         <strfmt $fmt $mf $Url><$durl=$ret>
      <else>
         <strfmt "%H" $Url><$durl=$ret>
      </if>
   </if>
</a>

<!-- display title for a result record -->
<a name=result_title export>
   <if $SSc_querylog eq Y><!-- log url clickovers as well -->
      <strfmt "%U%U" $Urlnoanchor $pdfhi>
      <A HREF="$url/redir.html$urlq&u=$ret"><send $dtitle></a><!--nop-->
   <else>
      <A HREF="$Urlnoanchor$pdfhi"><send $dtitle></a><!--nop-->
   </if>
</a>

<!-- display abstract with hit markup for a result record -->
<a name=result_abstract>
   <send $dabstract> ...<!--nop-->
</a>

<!-- display url for a result record -->
<a name=result_url>
   <send $durl>
</a>

<!-- display rank for a result record -->
<a name=result_rank export num=y graph=y>
<local imgroot="/webinator">
  <IF $rawrank neq "" and $rawrank gt 5>
    <!-- Translate 0-1000 rank value into a (non-linear) scaled value: -->
    <$grnum=10><!-- number of gradations -->
    <IF $maxr neq ""><!-- doing a "more like this", scale up ranks -->
      <$scaledrank = ((975*$rawrank) / $maxr)>
    <else>
      <$scaledrank = $rawrank>
    </IF>
    <$pctrank= ($scaledrank/10)>
    <if $num eq y><!-- show the number -->
       <if $SSc_sherlock eq Y>
          <fmt "<!-- RELEVANCE START -->%d%%<!-- RELEVANCE END -->" $pctrank>
       <else>
          <fmt "%d%%" $pctrank>
       </if>
    </if>
    <if $graph eq y><!-- show the graph -->
       <!-- Scale rank to graph size: -->
       <IF $grnum gt 1000>
         <$grnum = 1000>
       </IF>
       <$r = (($scaledrank*$grnum)/1000.0)><!-- scaled rank value 1-10 -->
       <$n = (convert(($r + 0.5), 'int'))><!-- round to integer -->
       <$x = (convert((5 * $r), 'int'))><!-- pixel width "good" side -->
       <IF $x gt 0><!-- the "good" side -->
         <strfmt "%*s" $n "">
         <sandr " " "*" $ret>
         <img src=$imgroot/bar1.gif align=top  width=$x height=10 alt=$ret><!--nop-->
       </IF>
       <$x = (5 * $grnum - $x)><!-- pixel width of remainder "bad" side -->
       <IF $x gt 0><!-- what's left is the "bad" side -->
         <$n = ($grnum - $n)>
         <strfmt "%*s" $n "">
         <sandr " " "_" $ret>
         <img src=$imgroot/bar0.gif align=top width=$x height=10  alt=$ret><!--nop-->
       </IF>
    </if>
  </IF>
</a>

<!-- display document size for a result record -->
<a name=result_docsize export saybytes=y>
   <if $SSc_metasearch eq "Y">
      $Docsize<rex "\alpha=>>=" $Docsize>
      <if $ret eq ""><send " bytes"></if>
      <return>
   </if>
   <SWITCH $Size>
   <CASE lt 1024><!-- less that 1k -->
      $Size<if $saybytes eq y><send " bytes"></if><!--nop-->
   <CASE lt 1048576><!-- less than 1 meg -->
      <$n = ($Size / 1024)>
      $'n'K<!--nop-->
   <DEFAULT><!-- megabytes -->
      <$n = ($Size / 1048576.0)>
      <fmt "%1.1fM" $n>
   </SWITCH>
</a>

<!-- display link depth for a result record -->
<a name=result_depth export>
   $Depth<!--nop-->
</a>

<!-- display "more like this" link for a result record -->
<a name=result_similar_url export>
   <capture><local p><vxcp htmlmode off><$p=$ret>$url$urlq&cmd=mlt&id=$id$mpurl<vxcp htmlmode $p></capture>
</a>
<a name=result_similar text="Find Similar" class="">
   <result_similar_url><a href="$ret"$class>$text</a><!--nop-->
</a>

<!-- display "match info" link for a result record -->
<a name=result_info_url export>
   <capture><local p><vxcp htmlmode off><$p=$ret>$url$urlq&cmd=context&id=$id$mpurl#hit1<vxcp htmlmode $p></capture>
</a>
<a name=result_info text="Match Info" class="">
   <result_info_url><a href="$ret"$class>$text</a><!--nop-->
</a>

<!-- display "parents" link for a result record -->
<a name=result_parents_url export>
   <capture><local p><vxcp htmlmode off><$p=$ret>$url$urlq&cmd=links&id=$id$mpurl<vxcp htmlmode $p></capture>
</a>
<a name=result_parents>
   <result_parents_url><a href="$ret">Show Parents</a><!--nop-->
</a>

<!-- display modified date for a result record -->
<a name=result_modified export>
   $Visited<!--nop-->
</a>


<!-- display a record in a standard result style -->
<a name=result1>
   <setupresult><!-- make sure everything we need to know is setup -->
   <table border=0 cellpadding=0 cellspacing=5>
   <tr><td valign=top><FM>$next:</F></td>
   <td valign=top width="99%"><FM>
      <result_title><br />
      <result_abstract><br />
      <font size=-1><result_url></F></F>
   </td><td valign=top nowrap align=right><FM>
      <result_rank num=y graph=y><br />
      Size: <result_docsize><br />
      Depth: <result_depth><br />
      <result_similar><br />
      <result_info><br />
      <result_parents>
   </F></td></tr>
   </table>
</a>


<!-- display a record in a unique result style -->
<a name=result2>
   <setupresult><!-- make sure everything we need to know is setup -->
   <table border=0 cellpadding=0 cellspacing=5>
   <tr><td valign=top><FM>$next:</F></td>
   <td valign=top width="99%"><FM>
      <result_title><font size="-1">&nbsp;<i>(<result_docsize>)</i>&nbsp;<result_info text="preview document matches"></font><br />
      <result_abstract><br />
      <font size=-1><result_url></F>
      </F>
   </td><td valign=top nowrap align=right><FM>
      <result_rank num=y graph=y>
   </F></td></tr>
   </table>
</a>

<!-- display a record in a unique result style -->
<a name=result3>
   <setupresult><!-- make sure everything we need to know is setup -->
   <FM>
   <dl><dt><b>$'next'. <result_title></b>
       <dd><result_abstract><br />
       <font size=-1>
       <b>URL:</b> <result_url><br />
       Modified: <result_modified> - <result_docsize><br />
       <result_similar text="Find Similar Documents">
       </F>
   </dl>
   </F>
</a>

<!-- display a record in a unique result style -->
<a name=result4>
   <setupresult><!-- make sure everything we need to know is setup -->
   <p>
   <FM>
   <b><result_rank num=y graph=y></b> <result_title><send " - "><result_abstract><br />
   <font size="-1"><result_url></F>
   </F>
</a>

<!-- display a record in a unique result style -->
<a name=result5>
   <setupresult><!-- make sure everything we need to know is setup -->
   <table border=0 cellpadding=0 cellspacing=5>
   <tr><td valign=top><FM><b>$'next'.</b><p><FT><result_rank num=y graph=y></F></F></td>
       <td valign=top width="99%"><FM><result_title><br />
           <result_abstract><br />
           <FS><b>URL:</b> <result_url><br />
           [<result_similar>] [<result_info text="Preview document matches">] [<result_parents>] <b>Depth:</b> $Depth &nbsp; <b>Size:</b> <result_docsize>
           </F></F>
       </td></tr>
   </table>
</a>

<!-- display a record in a unique result style -->
<a name=result6>
   <setupresult><!-- make sure everything we need to know is setup -->
   <FM>
   <dl><dt><b>$'next'.</b> <result_title> &nbsp; <b>Size:</b> <result_docsize> &nbsp; <b>Depth:</b> $Depth <b>Rank:</b> <result_rank num=y graph=y>
       <dd><result_abstract><br />
           <result_url><br />
           [<result_similar>] [<result_info>] [<result_parents>]
   </dl>
   </F>
</a>

<!-- display a record in a unique result style -->
<a name=result7>
   <setupresult><!-- make sure everything we need to know is setup -->
   <table border=0 cellpadding=0 cellspacing=5>
   <tr>
   <td valign=top nowrap><FM><b>$'next'.</b></F><FT><result_rank num=y graph=n></F></TD>
   <td valign=top width="99%"><FM><result_title></F></td>
   </tr>
   </table>
</a>


<a name=resultConcise>
  <p class=z>
  <setupresult>
  <result_title><br />
  <font size="-1">
  <capture><result_abstract></capture>
  <sandr ">>=.{90}[^\space]*" "\2\3<br />" $ret>
  <send $ret>
  <br />
  <font color="#008000"><sandr ">>=http://=" "" $durl>
  <send $ret><send " - "><result_docsize><send " - </font>">
  <result_info class=" class=y"><send " - ">
  <result_similar class=" class=y" text="Similar pages"></font><p class=z>
</a>



<!-- display a record in a the configured result style -->
<a name=result>
   <if $SSc_sherlock eq Y>
      <send "<!-- RESULT ITEM START -->">
   </if>
   <switch $SSc_resultstyle>
   <case 1><result1>
   <case 2><result2>
   <case 3><result3>
   <case 4><result4>
   <case 5><result5>
   <case 6><result6>
   <case 7><result7>
   <case Concise><resultConcise>
   <default><result1>
   </switch>
   <if $SSc_sherlock eq Y>
      <send "<!-- RESULT ITEM END -->">
   </if>
   <flush><!-- send it back to the user right away before waiting for next -->
</a>

<!-- generate a page displaying a fake hit with all of the result styles -->
<!-- this is used by the admin script to show what the options look like -->
<!-- $sv is pipe-delimited list of style values, $sn is style names -->
<a name=sampleresults public sv sn>
<local sm>
   <$query="text retrieval"><!-- set fake query before init as if from user -->
   <init>
   <db=$controldb><!-- in case there's no walk yet -->
   <!-- setup the fake record -->
   <$q=$txtquery>
   <fmtcp query "%mblH" $mmfmt>
   <$Url="http://www.thunderstone.com/">
   <$Depth=0>
   <$Title="Thunderstone: Home">
   <$Body="
Thunderstone is an independent R&D company that has been providing
high-performance state-of-the-art solutions to intelligent information
retrieval and management problems for over 20 years. Our flagship
product, Texis, is the most comprehensive text retrieval and publishing
software available. In one package Texis provides every full-text, SQL,
multimedia management, and dynamic publishing operation needed for an
enterprise search application.

Our customers use Texis in a wide range of applications such as
auctions & classifieds, automated categorization, litigation support,
competitive intelligence, help desk, document & multimedia management,
Internet publishing, real-time message handling, and web content
searching.

Thunderstone has higher market penetration amongst sites with more than
1,000,000 hits per day than any rival software company and more
Internet searches are conducted daily by its software than any other
available package.

All information contained in this website is the copyrighted work of
Thunderstone Software LLC or Expansion Programs International, Inc. and
may not be copied, duplicated, or retransmitted in any manner without
expressed written consent. ">

   <strlen $Body><$Size=($ret*3)>
   <$Visited=(convert( 'now' , 'date' ))>
   <$id=(counter)>
   <$sm=$SSc_metasearch>
   <$SSc_metasearch=N>
   <!-- loop over all of the result styles -->
   <split "|" $sv><$SSc_resultstyle = $ret>
   <split "|" $sn><$SSc_resultstylename = $ret>
   <loop $SSc_resultstyle $SSc_resultstylename>
      <!-- put a box around each style -->
      <table border=1 width="$SSc_resultwidth"><tr><td>
      <box><b>$SSc_resultstylename</b></box>
      <$rawrank=950><!-- make sure rank and next are properly reset each time -->
      <$next=1>
      <result>
      </td></tr></table><p>
   </loop>
   <$SSc_metasearch=$sm>
</a>

<!-- ====================== MLT: More Like This function ================= -->

<a name=mlt public>
<local Url>
   <top>
   <$mlt=1><!-- note the mode we're in -->
   <$order="r"><!-- force rank order -->
   <$liketype=likep><!-- force rank search -->
   <$sqlorder=>
   <!-- generate a query based on the selected document -->
      <sql max=1 "select Url,
               texttomm(Description\Keywords\Meta\Title\Body,10) mltquery
            from html where id=$id">
      </sql>
   <!-- build some state info to pass for "next" page -->
   <sum "%s" "&cmd=mlt&id=" $id $mpurl>
   <if $maxr neq ""><sum "%s" $ret "&maxr=" $maxr></if>
   <$mltvar = $ret>
   <!-- go do the search -->
   <search>
   <bottom>
</a>


<!-- =============== SIMILAR: Find pages similar to referrer ============= -->

<a name=similar public>
   <$cat=><!-- clear query settings -->
   <$q=" ">
   <init>
   <if $ref eq ""><$ref=$HTTP_REFERER></if><!-- no page specified, use referrer -->
   <if $ref eq ""><main><exit></if><!-- no page, just go to normal entry -->
   <!-- find the url in the database -->
   <$order="r"><!-- force rank order -->
   <$liketype=likep><!-- force rank search -->
   <$sqlorder=>
      <sql max=1 "select texttomm(Description\Keywords\Meta\Title\Body,10) mltquery from html where Url=$ret"></sql>
   <if $mltquery eq ""><!-- url not found in database, go fetch it -->
      <urlcp timeout 10><!-- short timeout -->
      <urlcp maxpgsize 200000><!-- and some other settings -->
      <urlcp maxredirs 1>
      <urlcp getframes yes>
      <urlcp maxframes 5>
      <urlcp useragent "Mozilla/4.0">
      <urlcp 8bithtml yes>
      <urlcp alttxt yes>
      <urlcp strike yes>
      <fetch $ref><!-- go get the page -->
      <urlinfo title><$Title=$ret><!-- extract title -->
      <urltext><$Body=$ret><!-- extract body -->
      <!-- extract meta data -->
      <$metaname=keywords keyword>
      <findmeta><sum " %s" "" $metadata><substr $ret 2 -1>
      <$Keywords=$ret>
      <$metaname=description>
      <findmeta><sum " %s" "" $metadata><substr $ret 2 -1>
      <$Description=$ret>
      <!-- generate query based on page content -->
      <sql "select texttomm($Keywords + ' ' + $Description + ' ' + $Title + ' '
+ $Body,10) mltquery from SYSDUMMY"></sql>
   </if>
   <if $mltquery eq ""><main><exit></if><!-- no query, give up -->
   <!-- do search in the manner of "more like this" -->
   <top>
   <$mlt=1><!-- indicate search mode -->
   <strfmt "&cmd=similar&ref=%U" $ref><!-- build state info -->
   <if $maxr neq ""><sum "%s" $ret "&maxr=" $maxr></if>
   <$mltvar = $ret>
   <search><!-- do the search -->
   <bottom>
</a>

<!-- find specific meta info in all possible places -->
<a name=findmeta>
   <$metadata=>
   <urlinfo header     $metaname><$metadata=$ret><!-- http headers -->
   <urlinfo metaheader $metaname><$metadata=$ret $metadata><!-- meta headers -->
   <urlinfo metaname   $metaname><$metadata=$ret $metadata><!-- meta -->
</a>


<!-- ====================== Main: The form and search ==================== -->

<a name=main public>
  <top><!-- top of page boilerplate -->
  <search><!-- perform search -->
  <bottom><!-- bottom of page boilerplate -->
  <flush><!-- send everything to user while we continue locally -->
  <if $SSc_querylog eq Y><!-- query log on -->
     <if $query ne ""><!-- there was a query -->
        <qinfo what="q"><!-- indicate it's a query -->
        <if $REMOTE_HOST eq ""><$REMOTE_HOST=$REMOTE_ADDR></if>
        <!-- log it -->
        <sql novars "insert into querylog values(counter,$REMOTE_HOST,$qinfo,$query)"></sql>
     </if>
  </if>
</a>



<a name=gotquote hit>
</a>
    
<a name=getunicode hit>
<LOCAL charcode ncharcode nchar>
	<rex "\digit+" $hit>
	<strtonum $ret>
	<$charcode=$ret>
	<if $charcode gt 65280 and $charcode lt 65375>
	<!-- Full-width character equivalent -->
		<$ncharcode=($ret - 65248)>
		<strfmt "%c" $ncharcode>
		<$nchar=$ret>
		<gotother hit=$nchar>
		<$inunicode=y>
		<$skipunicode=y>
		<return>
	</if>
        <if $inunicode eq "">
                "<!-- -->
        <else>
                <fmt " ">
        </if>
        $hit<!-- -->
        <$inunicode=y>
</a>
  
<a name=getaunicode hit>
<LOCAL charcode ncharcode nchar>
	<rex "\digit+" $hit>
	<strtonum $ret>
	<$charcode=$ret>
	<if $charcode gt 65280 and $charcode lt 65375>
	<!-- Full-width character equivalent -->
		<$ncharcode=($charcode - 65248)>
		<fmt "%c" $ncharcode>
		<return>
	</if>
        $hit<!-- -->
</a>
  
<a name=gotother hit>
        <if $inunicode eq y>
                <if $hit eq ";">
                        <$inunicode=n>
			<if $skipunicode eq 'y'>
				<$inunicode=>
				<$skipunicode=>
			</if>
                </if>
                <return>
        </if>
        <if $inunicode eq n>
                " <!-- -->
        </if>
        <$inunicode=>
        $hit<!-- -->
</a>
  
<a name=trCJKfull q>
<LOCAL result htmlenc htmlmode s c r>
        <strfmt %!hV $q>
	<sandr "&#12288;" " " $ret>
        <$htmlenc=$ret>
        <$s="&#=\digit+;">
        <$c="getaunicode">
        <fmtcp sandcall $s $c>
        <fmtcp sandcall $s $c>
	<vxcp htmlmode off><$htmlmode=$ret>
        <capture><sb>$htmlenc</sb><if $inunicode neq '' and $skipunicode eq ''>"</if></capture>
        <$result=$ret>
	<vxcp htmlmode $htmlmode>
        <strfmt %hV $result>
	<$q=$ret>
</a>

<a name=trCJK q>
<LOCAL result htmlenc htmlmode s c r>
        <strfmt %!hV $q>
	<sandr "&#12288;" " " $ret>
        <$htmlenc=$ret>
        <$s="&#=\digit+;" "\x22" .>
        <$c="getunicode" "gotquote" "gotother">
        <fmtcp sandcall $s $c>
	<vxcp htmlmode off><$htmlmode=$ret>
        <capture><sb>$htmlenc</sb><if $inunicode neq '' and $skipunicode eq ''>"</if></capture>
        <$result=$ret>
	<vxcp htmlmode $htmlmode>
        <strfmt %hV $result>
</a>

<!-- central search function -->
<a name=search>
<local savenext saveindexcount>
   <IF $query eq "" and $mlt eq ""><!-- no query of any kind -->
      <showform>
      <IF $submit eq Submit>
         <FL><p><b>Please enter a query.</b></F>
      </IF>
   <ELSE><!-- there's a query -->
      <$null= ""><!-- ignore empty settings -->
      <qpar><!-- parse query settings -->
      <$next=$jump><!-- set next to first in case nothing else -->
         <$sqlq=$q>
         <$stq=$tq>
         <$suq=$uq>
         <$sdq=$dq>
         <$scq=$cq>
      <if $SSc_CJKmode eq 'simple'>
         <trCJK q=$sqlq>
	 <$sqlq=$ret>
	 <trCJKfull q=$&mmfmt>
      </if>
      <fmtcp query "%mblH" $mmfmt><!-- setup hit markup -->
      <if $SSc_sherlock eq Y>
         <send "<!-- RESULT LIST START -->">
      </if>
      <if $SSc_metasearch eq "Y">
         <collectmetaresults>
      <else>
         <collectlocalresults>
      </if>
      <if $Url eq ""><!-- no hits -->
         <$xloop=0>
         <$next=0>
      <else>
         <showresults>
         <$xloop=$loop>
      </if>
      <if $right ne "" and $right ne 0>
            <if $xloop gt 0>
               </TD>
               <TD VALIGN=TOP WIDTH="$SSc_bbrightwidth">
            </if>
            &nbsp;<send $right>
      </if>
         <if $xloop gt 0>
            </TD></tr></TABLE>
         </if>
      <$noResults=0>
      <SWITCH $xloop>
         <CASE 0><!-- no hits this page -->
            <IF $next eq 0><!-- this is the 1st page -->
               <$noResults=1>
                  <showform>
                  <if $top ne "" and $top ne 0>
                     <send $top><br />
                  </if>
                  <FL><b><p>No <if 0 lt $jump><send "more "></if>documents match the query.</b></F><!-- tell 'em -->
               <if "Y" eq $SSc_spelling>
                  <rex row "[^\space]+" $txtquery></rex>
                  <if $loop lte 5><!-- 5 or fewer query words -->
                     <sysinfo proctime>
                     <$startTime=$ret>
                     <spellchecker nhits=0>
                  </if>
               </if>
            <else><!-- 2nd or later page: make sure form gets shown -->
                  <showform refine=y>
            </IF>
         <CASE gt 5><!-- over 5 hits -->
               <summary><!-- enough to warrant a summary at bottom too -->
         <CASE lte 5><!-- 5 or fewer hits -->
            <if "Y" eq $SSc_spelling>
               <if $jump eq '' and $loop eq 1>
                  <rex row "[^\space]+" $txtquery></rex>
                  <if $loop lte 5><!-- 5 or fewer query words -->
                     <sysinfo proctime>
                     <$startTime=$ret>
                     <spellchecker nhits=1>
                     <sysinfo proctime $startTime>
                  </if>
               </if>
            </if>
	    <if $SSc_resultstyle ne "8">
               <br /><!-- few on page -->
	    </if>
      </SWITCH>
      <if $SSc_sherlock eq Y>
         <send "<!-- RESULT LIST END -->">
      </if>
   </IF>
</a>

<!-- ====================================================================== -->

<a name=showresults>
<local ic=$indexcount firsthitno>
      <!-- Compute $pgresults (see top for definition) to help determine $end.
        == Takes care of $indexcount < end-of-full-page as well as
        == likeprows < end-of-full-page.
        -->
      <$pgresults = ($totresults - $ignore)>
      <if $pgresults gt $SSc_hitsperpage><$pgresults = $SSc_hitsperpage></if>
      <$start=(1+$jump)><!-- Start/end hit # for this page -->
      <$end= (-1 + $pgresults + $start
            )><!-- last hit on page -->
      <if $mlt neq "" and $maxr eq "">
         <!-- a "more like this" query and max rank not set yet -->
         <!-- remember rank of first rank as "best" to scale ranks -->
         <loop max=1 $rawrank>
            <$maxr=$rawrank>
            <sum "%s" $mltvar "&maxr=" $maxr><!-- remember this for state -->
            <$mltvar = $ret>
         </loop>
      </if>
               <showform refine=y><!-- show the search form w/refine button -->
            <if $top ne "" and $top ne 0>
                  <send $top><br />
            </if>
            <$indexcount=$ic>
               <summary><!-- display the query summary (next,prev,how many) -->
               <table width="$SSc_resultwidth" border=0 cellpadding=0 cellspacing=0>
                  <tr>
                     <td valign=TOP>
      <if $ignore eq 0>
         <$firsthitno=(1+$jump
               )>
      <else>
         <$firsthitno=1>
      </if> 
      <!-- (tag:allfields) -->
      <loop skip=$ignore max=$SSc_hitsperpage $Url $UrlDisplay $Depth $Title $Description $Body $Size $Modified $Visited $id $Charset $rawrank $Docsize $urlseq $urlprofile
             >
         <$next=($firsthitno+$loop)>
         <result><!-- display the result record -->
      </loop>
</a>

<!-- ====================================================================== -->

<a name=collectlocalresults>
<!-- Performs local SQL query.
  == Sets $loop, $next (for next-page raw SKIP),
  -->
   <$ignore=0><!-- starting precisely, ignore nothing -->
   <$totresults = 0><!-- number of results collected in loop vars -->
   <$shownext = "y"><!-- whether to show `next>>' link -->
   <bbsetup>
   <!-- may need to do this part of sql twice, so put in variable instead
      of coding it redundantly -->
   <$sql="from html
        where " $SSc_searchfields " " $liketype " $$sqlq
        and   Title like $$stq
        and   Url matches $$suq
        and   Depth <= $$sdq
        and   Catno matches $$scq
       ">
      <!-- determine what fields to retrieve (are available)
        -->
      <$fields="Url,Depth,Title,Description,Body,Size,Visited,id,$$$$rank rawrank ">
      <SQL MAX=1 "select NAME from SYSCOLUMNS where TBNAME = 'html' and NAME = 'Charset'">
        <$fields="Url,Depth,Title,Description,Body,Size,Modified Visited,id,Charset,$$$$rank rawrank ">
      </SQL>
         <!-- perform query on database -->
         <sql skip=$jump max=$SSc_hitsperpage
               "select " $fields $sql $sqlorder>
         </sql>
         <$totresults = $loop>
      <!-- If SQL look-ahead says no more raw results, don't show `next'.
        == This catches $indexcount <= $end as well as hitting likeprows:
        -->
      <if $rows.min lte $next><$shownext = "n"></if>
      <IF $count eq 1><!-- need to count rows to get precise hit count -->
         <if $loop ge $SSc_hitsperpage><!-- page is full -->
            <if $SSc_fastcount ne Y><!-- get precise rather than fast counts -->
               <local ic sl=$loop sn=$next>
               <SQL "select count(*) ic " $sql></SQL>
               <$indexcount=$ic><!-- reset texis's indexcount to actual count -->
               <$loop = $sl><$next = $sn>
            </if>
         <else><!-- page not full: reached end of results -->
            <$indexcount = $next>
         </if>
      </if>
</a>


<!-- ====================================================================== -->


<!-- ====================================================================== -->

<!-- show parents of the selected link -->
<a name=links public>
   <$title = "Document Linkage">
   <$xmlname="ThunderstoneLinks">
   <top>
   <$Targetid=$id>
   <$id=>
   <$Targeturl=>
   <if "" eq $skip><$skip=0></if>
   <$end=($skip+$SSc_hitsperpage)>
      <!-- find the url for the selected item -->
      <SQL MAX=1 "select Url Targeturl, Title Targettitle from html where id = $Targetid"></SQL>
      <$Parent = $Targeturl>
      <IF $loop gt 0><!-- found in database -->
            <!-- find all urls with a parent of the selected url -->
            <SQL MAX=$SSc_hitsperpage skip=$skip "
                 select html.Url Url,Depth,Title,Body,Size,refs.Url Parent,
                       html.id id
                 from refs,html
                 where refs.Ref = $Targeturl and html.Url = refs.Url">
            </SQL>
         <$nparentsthispage=$loop>
         <$nparents=($skip+$nparentsthispage)><!-- not complete! -->
      <else>                                    <!-- not found in database -->
         <$nparentsthispage=0>
         <$nparents=0>
      </if>
      <showform>
      <IF $Targeturl eq ""><!-- not found in database -->
         <H3>No such document id</H3>
         <bottom>
         <EXIT><!-- get out -->
      </IF>
      <box>
         <b>Documents with links to:<br />
         <IF $Targettitle eq ""><!-- no title, use url -->
            <a href="$Targeturl">$Targeturl</a></b>
         <ELSE>
            <abstract $Targettitle 90 0><!-- keep the title sane -->
            <a href="$Targeturl">$ret ...</a></b><br />
            <FS>$Targeturl</F>
         </IF>
      </box>
   <fmtcp query "%mblH" $mmfmt><!-- prepare to markup hits from last query -->
   <loop $Url $UrlDisplay $Depth $Title $Description $Body $Size $Modified $Visited $id $Charset $rawrank $Docsize $urlseq $urlprofile>
      <$next=($skip+$loop+1)>
      <result><!-- show the record -->
   </loop>
      <if $nparents eq 0><!-- none found -->
         <p><b>There are no pages above or linking-to this document</b><p>
      </if>
      <box>
      <if $nparentsthispage gte $SSc_hitsperpage><!-- a page full -->
         <b><a href="$url$urlq&cmd=links&skip=$end&id=$Targetid$mpurl">More Parent Links...</a></b><p>
      </if>
      This display shows the pages which are the "parents"
      or "above" this document. It can help you navigate
      upwards when there are no <i>go-back</i> links on the page.
      </box>
   <bottom>
</a>

<!-- ======================================================================
                       Power Search
======================================================================= -->

<!-- handle the "Advanced" button -->
<a name=Advanced public>
   <$power=1><!-- indicate we should show the advanced options -->
   <main><!-- go to normal entry point -->
</a>

<!-- handle the "Help" button -->
<a name=Help>
   <Advanced><!-- show the advanced form which has search help -->
</a>

<!-- ======================================================================
             Send hilight info for PDF documents
======================================================================= -->
<a name=pdfhi public>
<local startpg fields arg1="characters" arg2="characters" arg3="characters"
       arg4="characters">
  <init>
  <!-- pdfxml needs these on -->
  <apicp alwithin 1>
  <apicp alintersects 1>
  <IF $mlid neq ""><!-- it's a result from "more like this" -->
    <!-- set the query based on page content -->
    <SQL MAX=1 "select texttomm(Title\Body, 10) query
                from html
                where id = $mlid">
    </SQL>
  </IF>
  <$fields = "Url, Body">
  <sql max=1 "select NAME from SYSCOLUMNS where TBNAME = 'html' and
                 NAME = 'Charset'">
     <$fields = "Url, Body, Charset">
  </sql>
  <!-- get the text for the selected page -->
  <SQL MAX=1 "select " $fields " from html where id = $id">
      <!-- find all terms on page and display in Acrobat hilight format -->
      <rex ">>#pg\P=\digit+" $Url>
      <if "" neq $ret>                  <!-- if not first page of document -->
         <sum "%d" $ret -1>             <!-- pdfxml counts pages from 0 -->
         <$startpg = $ret>
         <vxinfo release>
         <if $ret gte "2004-08-18">     <!-- if we support startpage -->
            <$arg1 = "startpage"><$arg2 = $startpg>
         </if>
      </if>
      <vxinfo release>
      <if $ret gte "2005-01-03">        <!-- if we support charset -->
         <$arg3 = "charset"><$arg4 = $Charset>
      </if>
      <pdfxml $txtquery $Body "#00FF00" characters $arg1 $arg2 $arg3 $arg4>
      <loop $ret><!-- answer comes back in parts -->
        $ret
      </loop>
  </SQL>
</a>

<!-- ======================================================================
                   The context View of a Match
======================================================================= -->

<a name=context public>
  <$title = "Context">
  <top>
  <fpar><!-- parse form settings -->
  <showform>
  <!-- get everything about selected url -->
     <sql max=1 "select * from html where id = $id"></sql>
  <fmtcp query "%mhbplH" $mmfmt><!-- prepare for hit markup -->

  <box><b>Match Context and Document information</b></box>
  <if "" eq $Url>
     <P><FM>No such document ID $id in database.</F><P>
     <bottom>
     <return>
  </if>
  <table width="$SSc_resultwidth">
  <tr><th valign="top" align="right"><FM>URL:</F></th><td><FM><a href="$Url"><strfmt "%H" $Url><sandr ".{60}" "\1<br />" $ret><send $ret></a></F></td></tr>
  <tr><th valign="top" align="right"><FM>Depth:</F></th><td><FM>$Depth <if $Depth gt 0>links away from </if>Home</F></td></tr>
  <tr><th valign="top" align="right"><FM>Size:</F></th><td><FM><varinfo size Body><fmt "%kd bytes" $Size></F></td></tr>
  <tr><th valign="top" align="right"><FM>Modified:</F></th><td><FM>$Modified</F></td></tr>
  <$Category="">
  <if (convert($Catno, 'varchar' ) ne '' )><!-- get all cat names -->
     <sql "select distinct Category from categories where Catno in ($Catno)">
     </sql>
  </if>
  <tr><th valign="top" align="right"><FM>Categories:</F></th><td><FM><if $Category eq ""><i>-None-</i><else><loop $Category>$Category<br /></loop></if></F></td></tr>
  <mm>
  <tr><th valign="top" align="right"><FM>Title:</F></th><td><FM>$Title</F></td></tr>
  <tr><th valign="top" align="right"><FM>Description:</F></th><td><FM><IF $Description neq "">$Description<ELSE><I>-None-</I></IF></F></td></tr>
  <tr><th valign="top" align="right"><FM>Keywords:</F></th><td><FM><IF $Keywords neq "">$Keywords<ELSE><I>-None-</I></IF></F></td></tr>
  <tr><th valign="top" align="right" NOWRAP><FM>Meta data:</F></th><td><FM><IF $Meta neq ""><PRE>$Meta</PRE><ELSE><I>-None-</I></IF></F></td></tr>
  <tr><th valign="top" align="right"><FM>Body:</F></th><td><FM>$Body</F></td></tr>
  </mm>
  </table>
  <bottom>
</a>

<!-- =================================================================== -->


<!-- =================================================================== -->
<!-- Prints spell-checked suggestions at search time, using aspell.
  == $nhits is number of search hits
  -->
<a name=spellchecker export nhits>
     <calcspelling nhits=$nhits>
  <if $okPhrases ne "">
     <showspelling>
  </if>
</a>

<!-- =================================================================== -->

<a name=calcspelling nhits>
<local dsName dict queryWords noSug wname phrases w0 w1 w2 w3 w4>
  <vxinfo db><$dsName=$ret>
  <switch $nhits>
    <case 0>  <strfmt "%s/aspellDict1" $dsName><!-- all non-noise words -->
    <default> <strfmt "%s/aspellDict2" $dsName><!-- multiple non-noise -->
  </switch>
  <$dict=$ret>
  <if $isnt neq 0><quoteit var=$&dict></if>
  <$words=>
  <exec $aspellExe $aspellPrefix -d $dict -a "--ignore-case">
    <send $txtquery>
  </exec>
  <loop skip=1 $ret>
    <if "" neq $ret>
      <$words=$words $ret>
    </if>
  </loop>
  <if "" neq $ret.stderr><!-- exec gave stderr -->
     <if $SSc_resultstyle neq 8>
        <if $mode ne ""><!-- admin mode, show me all errors -->
           <box><fmt "%H errors: %H" $aspellExe $ret.stderr></box>
        <else>
           <fmt "\n<!-- aspell errors: %H -->" $ret.stderr>
        </if>
     </if>
  </if>
  <split "\space+" $txtquery><$queryWords=$ret>
  <$noSug=0>
  <count $words>
  <loop max=$ret $words $queryWords>
    <strfmt "w%d" $loop><$wname = $ret>
    <strstr "#" $words>
    <if $ret eq -1>
      <strstr "*" $words>
      <if $ret ne -1>
        <setvar $wname $queryWords>
      </if>
      <strstr "&" $words>
      <if $ret ne -1>
        <split skip=1 ":" $words>
          <$tempList=$ret>
        </split>
        <split row ", " $tempList>
          <sandr ">>=\space" "" $ret>
          <setvar append $wname $ret>
        </split>
      </if>
    <else>
      <$noSug=1>
    </if>
  </loop>
  <$phrases=>
  <count $queryWords>
  <buildlist phrases=$&phrases queryWords=$queryWords
      curCount=0 totalCount=$ret phrase=""
      w0=$w0 w1=$w1 w2=$w2 w3=$w3 w4=$w4>
  <$okPhrases=>
  <$okindexc=>
  <if $noSug eq 0>
    <loop $phrases>
      <if $phrases ne $txtquery>
        <sysinfo proctime $startTime>
        <if $ret gt $SSc_suggestTime>
          <break>
        </if>
        <local sqlq=$phrases>
          <sql novars "select id " $sql></sql>
          <if $loop gt 0>
            <$okPhrases=$okPhrases $sqlq>
            <$okindexc=$okindexc $indexcount>
          </if>
        </local>
      </if>
    </loop>
  </if>
</a>

<!-- =================================================================== -->
<!-- Used during spelling suggestion at search time -->
<a name=buildlist export phrases queryWords
          curCount totalCount phrase w0 w1 w2 w3 w4>
<local queryWord curCount=$curCount tmpList>
  <loop skip=$curCount max=1 $queryWords>
    <$queryWord=$queryWords>
  </loop>
  <strfmt "w%d" $curCount><getvar $ret><$tmpList=$ret>
  <sum "%d" $curCount 1><$curCount = $ret>
  <loop $tmpList>
    <local phrase=$phrase>
      <sum "%s" $phrase " " $tmpList>
      <$phrase=$ret>
      <if $curCount lt $totalCount>
        <buildlist phrases=$&phrases queryWords=$queryWords
            curCount=$curCount totalCount=$totalCount phrase=$phrase
            w0=$w0 w1=$w1 w2=$w2 w3=$w3 w4=$w4>
      <else>
        <sandr ">>=[\space\cntrl]" "" $phrase>
        <$phrases=$phrases $ret>
      </if>
    </local>
  </loop>
</a>

<!-- =================================================================== -->

<a name=showspelling>
    <if $SSc_resultstyle eq "8">
      <capture>
        <Spelling>
          <$suggestWords=>
          <loop max=$SSc_suggestNum $okPhrases $okindexc>
            <SuggestWord>
              <SpellPhrase>
                <if $loop eq 0>
                  <if $nhits gt 0>
                    Suggestions which will provide more hits:
                  <else>
                    Did you mean:
                  </if>
                </if>
              </SpellPhrase>
              <local query=$okPhrases>
                <capture>$url$urlq$mltvar&jump=$i&dropXSL=$dropXSL</capture>
              </local>
	      <xmlExportAppend str=$ret>
              <SpellLink><fmt %H $ret></SpellLink>
              <SpellWord><fmt %H $okPhrases></SpellWord>
              <SpellCount>$okindexc</SpellCount>
            </SuggestWord>
          </loop>
        </Spelling>
      </capture>
      <$xmlPage=$xmlPage $ret>
      <xmlExportVar>
    <else>
      <p><FL>
        <$suggestWords=>
        <table>
          <loop max=$SSc_suggestNum $okPhrases $okindexc>
            <tr>
              <if $loop eq 0>
                <if $nhits gt 0>
                  <td>Suggestions which will provide more hits:</td>
                <else>
                  <td>Did you mean:</td>
                </if>
              <else>
                <td></td>
              </if>
              <local query=$okPhrases>
                <td><a href="$url$urlq$mltvar&jump=$i">$okPhrases ($okindexc)</a></td>
              </local>
            </tr>
          </loop>
        </table>
      </F></p>
    </if>
</a>

<!-- ============= Best Bets Code ========================================= -->

<!-- find and format best bets info -->
<a name=bbsetup>
   <$top=>
   <$right=>
   <if $jump eq ''><!-- only on first page -->
      <if $SSc_bbtopid ne ""><!-- top best bets -->
	 <$gid=$SSc_bbtopid>
	 <$bbbox=$SSc_bbtopborder>
	 <$bbcolor=$SSc_bbtopcolor>
	 <$bbtitle=$SSc_bbtoptitle>
	 <getbestbet place=Top>
         <bbformat place=Top>
      </if>
      <if $SSc_bbrightid ne ""><!-- right best bets -->
	 <$gid=$SSc_bbrightid>
	 <$bbbox=$SSc_bbrightborder>
	 <$bbcolor=$SSc_bbrightcolor>
	 <$bbtitle=$SSc_bbrighttitle>
	 <getbestbet place=Right>
         <bbformat place=Right>
      </if>
   </if>
</a>

<!-- =========================================================== -->

<!-- collect html (or xml) for best bet containers and their items -->
<a name=bbformat place>
   <!-- place should be "Top" or "Right" -->
   <if $bbresult ne "">
      <if $SSc_resultstyle eq "8">
      <local name>
         <sum "%s" $bbresult>
         <sum "%s" "<" $place "BestBets><BBTitle>" $bbtitle "</BBTitle>" $ret "</" $place "BestBets>">
      <else>
         <if $bbbox eq "grp">
            <$border=1>
         <else>
            <$border=0>
         </if>
         <if $bbcolor ne "" and $bbbox ne "indiv">
            <sum "%s" "BGCOLOR='" $bbcolor "'">
            <$bbcolor=$ret>
         <else>
            <$bbcolor=>
         </if>
         <if $place eq Top>
            <sum "%s" $bbresult>
            <sum "%s" "<font face='" $SSc_font "' SIZE='+1'><b>" $bbtitle "</b></font><table CELLPADDING=0 WIDTH='" $SSc_resultwidth "' CELLSPACING=0 BORDER=" $border " " $bbcolor "><tr><td>" $ret "</td></tr></table>">
         <else>
            <sum "%s&nbsp;" $bbresult>
            <sum "%s" "<font face='" $SSc_font "' SIZE='+1'><b>" $bbtitle "</b></font><table CELLPADDING=0 CELLSPACING=0 WIDTH='100%' BORDER=" $border " " $bbcolor "><tr><td>" $ret "</td></tr></table>">
         </if>
      </if>
   <else>
      <$ret=>
   </if>
   <if $place eq Top>
      <$top=$ret>
   <else>
      <$right=$ret>
   </if>
</a>

<!-- =========================================================== -->

<!-- lookup best bet info -->
<a name=getbestbet place>
<local shtitle shdesc shurl>
   <$bbresult=>
   <if $havebbtable eq "n"><return></if>
   <if $havebbtable eq "">
      <sql novars "select NAME from SYSTABLES where NAME in ('bestbets','groups')"></sql>
      <if $loop eq 2><$havebbtable=y><else><$havebbtable=n><return></if>
   </if>
      <sql row "select Title, Url, Descr, Groupid, Keywords
                from bestbets
                where Keywords like $sqlq and Groupid=$gid
                order by Priority desc">
         <$bbnum=$next>
         <sql max=1 "select Resulttype,Groupname from groups where id=$gid"></sql>
         <bbresult>
      </sql>
</a>

<!-- =========================================================== -->

<!-- collect html (or xml) for all best bets items -->
<a name=bbresult>
   <capture>
      <$bestbet=$Keywords>
      <$groups=$Groupname>
      <if $SSc_resultstyle eq "8">
         <switch $Resulttype>
            <case "title"><$shtitle=1><$shdesc=0><$shurl=0>
            <case "title and description"><$shtitle=1><$shdesc=1><$shurl=0>
            <case "title, description and url"><$shtitle=1><$shdesc=1><$shurl=1>
         </switch>
         <setupresult><!-- make sure everything we need to know is setup -->
         <BestBet>
            <BBResultNum>$bbnum</BBResultNum>
            <!-- put in BBLink regardless of whether shurl is set -->
            <if $SSc_querylog eq Y><!-- log url clickovers as well -->
               <strfmt "%U%U" $Urlnoanchor $pdfhi>
               <capture>$url/redir.html$urlq&u=$ret</capture>
            <else>
               <capture>$Urlnoanchor$pdfhi</capture>
            </if>
            <BBLink><fmt "%H" $ret></BBLink>
            <if $shurl ne 0>
               <BBLinkDisplay><fmt "%H" $Urlnoanchor></BBLinkDisplay>
            </if>
            <if $shtitle ne 0>
               <BBResult><fmt "%H" $dtitle></BBResult>
            </if>
            <if $shdesc ne 0>
               <BBDescription><fmt "%H" $Descr></BBDescription>
            </if>
            <BBGroupname><fmt "%H" $Groupname></BBGroupname>
            <BBGroupid><fmt "%H" $Groupid></BBGroupid>
            <BBKeywords><fmt "%H" $Keywords></BBKeywords>
         </BestBet>
      <else>
         <if $bbbox eq "indiv">
            <$border=1>
            <sum "%s" "bgcolor='" $bbcolor "'">
            <$cellcolor=$ret>
         <else>
            <$border=0>
            <$cellcolor=>
         </if>
         <switch $Resulttype>
         <case "title">
            <bbresult1>
         <case "title and description">
            <bbresult2>
         <case "title, description and url">
            <bbresult3>
         </switch>
      </if>
      <$bestbet=>
      <$groups=>
   </capture>
   <$bbresult=$bbresult $ret>
</a>

<!-- =========================================================== -->

<a name=bbresult1>
   <setupresult fmt="%hhmbV"><!-- make sure everything we need to know is setup -->
   <table border=$border cellpadding=5 cellspacing=0 $cellcolor WIDTH="100%">
      <tr>
         <td VALIGN=TOP WIDTH="99%"><FM>
            <result_title>
         </F></td>
      </tr>
   </table>
</a>

<!-- =========================================================== -->

<a name=bbresult2>
   <setupresult fmt="%hhmbV"><!-- make sure everything we need to know is setup -->
   <table border=$border cellpadding=5 cellspacing=0 $cellcolor WIDTH="100%">
      <tr>
         <td VALIGN=TOP WIDTH="99%"><FM>
            <result_title><br />
            <send $Descr><br />
         </F></td>
      </tr>
   </table>
</a>

<!-- =========================================================== -->

<a name=bbresult3>
   <setupresult fmt="%hhmbV"><!-- make sure everything we need to know is setup -->
   <table border=$border cellpadding=5 cellspacing=0 $cellcolor WIDTH="100%">
      <tr>
         <td VALIGN=TOP WIDTH="99%"><FM>
            <result_title><br />
            <send $Descr><br />
            <FONT SIZE=-1>
               <strlen $Url>
               <if $ret gt 60><!-- very long, show truncated version -->
                  <rex ">>=\alpha+://=[^/]+/" $Url>$'ret'...<!--nop-->
                  <strlen $ret><$x=($ret-57)>
                  <substr $Url $x -1>$ret<!--nop-->
               <else>
                  $Url<!--nop-->
               </if>
            </F>
         </F></td>
      </tr>
   </table>
</a>

<!-- === redirect the user to the specified url =========================== -->
<a name=doredir private u msg="That document is">
   <header name=Location value=$u><!-- http redirect header -->
   <HTML><HEAD><TITLE>Moved</TITLE><!-- backup for stupid browsers -->
      <META HTTP-EQUIV="Refresh" CONTENT="0; URL=$u">
   </HEAD><BODY BGCOLOR=white>
      $msg <a href="$u">here</a>.
   </BODY></HTML>
   <flush><!-- send info to user while we continue locally -->
</a>

<a name=redir public>
   <init>
   <doredir u=$u>
   <if $SSc_querylog eq Y><!-- log redirect to querylog table -->
      <$indexcount=>
      <qinfo what="u" query=$query>
      <if $REMOTE_HOST eq ""><$REMOTE_HOST=$REMOTE_ADDR></if>
      <sql novars "insert into querylog values(counter,$REMOTE_HOST,$qinfo,$u)"></sql>
   </if>
</a>

<!-- Double-quotes $var if needed (contains space): -->
<a name=quoteit private var>
   <rex row max=1 "\space" $var>
      <sum "%s" '"' $var '"'><$var = $ret>
      <return>
   </rex>
</a>

<!-- collect all info about the query for use in query log -->
<a name=qinfo what query="">
<local order=$order>
   <if $order eq "r"><$order=></if><!-- suppress default value -->
   <strfmt "what=%U" $what><$qinfo=$ret>
   <$n=rorder rprox rdfreq rwfreq rlead query prox sufs thesaurus order indexcount jump haderror bestbet groups>
   <loop $n><!-- check each setting -->
      <getvar $n>
      <if "" ne $ret><!-- non-default setting -->
         <if $n eq "indexcount">
           <if $noResults eq 1>
             <strfmt "%d" 0>
           </if>
         </if>
         <strfmt "&%s=%U" $n $ret><$qinfo=$qinfo $ret><!-- record it -->
      </if>
   </loop>
   <sum "%s" $qinfo><$qinfo=$ret><!-- put it all together -->
</a>

<!-- handle error messages -->
<a name=putmsg>
<local saidmmfail=0>
   <if 'y' eq $inputmsg><!-- putmsg caused another error, just display it -->
      <if $SSc_resultstyle eq 8><send "<QueryMessage>"><else><send "<!-- "></if>      $errnum $errscript:$errline: $errmsg
      <if $SSc_resultstyle eq 8><send "</QueryMessage>"><else><send " -->"></if>      <return>
   </if>
   <$inputmsg='y'>
   <$haderror=1><!-- record the fact that an error occurred -->
   <loop $errnum $errscript $errline $errmsg $errfunc $errvfunc>
      <if $SSc_resultstyle neq 8>
         <if $mode ne ""><!-- admin mode, show me all errors -->
            <box><fmt "%03d %H:%d: %H" $errnum $errscript $errline $errmsg></box>
         <else>
            <fmt "\n<!-- %03d %H:%d: %H -->" $errnum $errscript $errline $errmsg>
         </if>
      </if>
      <if $saidmmfail eq 0><!-- only show user first mm failure of a set -->
         <!-- some special cases the user needs to know about -->
         <if $errmsg eq "Nothing to search for in query">
            <$saidmmfail=1>
            <boxmessage message="Your query was all noise words. Please enter
                 a query with non-noise words.">
         <elseif $errmsg eq "Metamorph open failed.">
            <$saidmmfail=1>
            <boxmessage message="Your query was poorly formed. Please make corrections.">
         <else if $errnum eq 115>
            <rex ">>would require post-processing: \P=.+" $errmsg>
            <if $ret ne "">
               <strfmt "WARNING: %s" $ret>
               <boxmessage message=$ret>
            </if>
         </if>
      </if>
   </loop>
   <$inputmsg=>
</a>

<!-- ===================================================================== -->
<!-- Changes
2001-11-13 pdfxml characters for new plugin
2001-12-12 Version 4.0.1
2002-02-20 Version 4.0.2
2002-03-04 add additional query exports
2002-03-04 Version 4.0.3
2002-03-12 Version 4.0.4
2002-03-25 Version 4.0.5
2002-03-28 fix category list ordering for more than 9 categories
2002-06-11 fix more-like-this within a category: always stringize $cq
2002-06-13 display raw 8bit characters rather then html encoding them (fmtcp l)

2002-07-16 Version 4.1
2002-08-08 Version 4.1.1
2002-08-26 Version 4.1.2
2002-09-05 make results per page settable
2002-09-10 https changes
2002-09-12 Version 4.2
2002-10-08 Version 4.2.1
2002-11-14 Typo: database/document frequency reversed
2002-11-19 Version 4.2.2
2002-11-20 Version 4.2.3
2002-12-02 make ranking factors set to "off" stick on subsequent searches
2002-12-19 make putmsg html escape its messages in comments. (eliminates
           cross site scripting potential.)
2002-12-19 Version 4.2.4
2003-02-06 Version 4.2.6
2003-02-27 Version 4.2.8
2003-03-25 query logging: log client IP if client hostname not known
2003-04-02 Version 4.3
2003-04-08 Version 4.3.1
2003-05-07 Version 4.3.2
2003-06-11 Version 4.3.3
2003-06-19 Version 4.3.4
2003-06-23 Version 4.3.5
2003-06-25 Added default search settings customization functionality
2003-06-25 Version 4.3.6
2003-06-27 Cleanup search settings customization
2003-07-25 Version 4.3.7
2003-08-27 Spell checking for Webinator 5 as well
2003-08-29 Version 4.3.8
2003-09-11 Version 4.3.9
2003-09-23 Version 4.3.10
2003-09-23 Version 4.3.11
2003-07-30 Version 4.3.12
2003-10-08 Version 4.4.1
2003-10-20 Version 4.4.2
2003-10-20 Version 4.4.3
2003-10-27 Version 4.4.4
2003-10-28 Version 4.4.5
2003-11-06 Version 4.4.6
2003-11-06 Version 4.4.7
2003-12-18 Hide Advanced
2003-12-19 Ranked Rows
2003-12-19 Abstract Style/Len
2004-01-02 Version 4.4.9
2004-01-13 Version 4.4.9
2004-02-05 Version 4.4.10
2004-02-06 Remove trailing slash from $url etc in search script
2004-02-12 Fixed spell checking for Windows: quote aspell args
2004-02-23 Version 4.4.11
2004-03-11 separate abstract generation from display
2004-03-12 preserve raw rank and rank percentage in distinct variables
2004-03-17 preserve input query variables
2004-03-17 Version 4.4.12
2004-03-18 Version 4.4.13
2004-03-22 Version 4.4.14
2004-03-24 More UTF-8 improvements
2004-03-24 Version 4.4.15
2004-03-29 Decode query properly (no HTML escapement)
2004-04-13 Version 4.4.16
2004-04-23 Use right var name for spell check
2004-05-18 Version 5.0
2004-05-24 Version 5.0.2
2004-06-21 Version 5.0.3
2004-07-13 Version 5.0.4
2004-07-16 Map result data to display charset if needed
2004-07-16 Version 5.0.5
2004-08-05 Choose fields based on database version
2004-08-06 Version 5.0.6
2004-08-17 Support PDF highlighting in plugin-split pages
2004-08-17 Version 5.0.7
2004-08-20 Make sure proper UTF-8 encoding in XML
2004-08-20 Version 5.0.8
2004-08-25 Noise Character Support
2004-08-26 Version 5.0.9
2004-08-30 Noise Character Fix, Make sure we set the variable
2004-09-01 Version 5.0.10
2004-09-07 Don't try to convert unknown charset
2004-09-08 Version 5.0.11
2004-09-10 Version 5.0.12
2004-09-13 Version 5.0.13
2004-09-16 XML mode charset conversion fix
2004-09-16 Version 5.0.14
2004-09-30 Version 5.1.0
2004-10-08 Version 5.1.1
2004-10-08 Version 5.1.2
2004-10-12 Allow URL in search
2004-10-13 Version 5.1.3
2004-10-31 Separate search from display
2004-10-31 Version 5.1.4
2004-11-03 Don't show form in XML mode
2004-11-04 Remove gw compatibility notes
2004-11-10 Restore Allow URL in search (broken on 2004-10-31)
2004-11-15 Hilight hits in url too if including url in search
2004-11-23 BB description in BB result.
           BB XML result info based on BB settings.
2004-12-01 Version 5.1.5
2005-01-03 Fixed PDF highlighting in docs with hi-bit chars (w/texis upgrade)
2005-01-11 Allow Equivalences is now expanded
2005-01-17 Escape URL in XML mode: avoid error
2005-01-20 Version 5.1.7
2005-01-24 Hilight url in concise style (others already do)
2005-01-27 Add prefix option to aspell in case non-standard install dir
2005-02-01 Version 5.1.8
2005-02-01 Fixed pagination/document count on last page of results
2005-02-08 Version 5.1.9
2005-02-10 Version 5.1.10
2005-02-21 Added PDF Query Highlighting option (to turn off)
2005-03-02 Added support for file:// URL search results authorization
2005-03-04 Version 5.1.11
2005-03-10 Added Visible Y/N field to categories
2005-03-24 Version 5.1.12
2005-05-03 Version 5.1.13
2005-05-13 Version 5.1.14
2005-05-18 Version 5.1.15
2005-06-08 Version 5.1.16
2005-06-09 Version 5.1.17
2005-06-22 Version 5.1.18
2005-07-22 Version 5.1.19
2005-07-27 Version 5.1.20
2005-07-29 Add "Fast result counts" option
2005-07-29 Version 5.1.21
2005-08-03 Version 5.1.22
2005-08-26 User settable noise list
2005-09-15 Version 5.1.24
2005-11-16 Version 5.1.26
2005-12-05 Version 5.1.27
2005-12-21 Version 5.1.28
2006-01-06 Anchor within-sentence expression, to improve search speed a bit
2006-01-20 Version 5.1.30
2006-01-23 Version 5.1.31
2006-01-25 Version 5.1.32
2006-01-25 Version 5.1.33
2006-01-25 Version 5.1.34
2006-01-26 Version 5.1.35
2006-02-02 Minor result-count/next-link fixes, esp. for results-per-site
2006-02-02 Say "No *more* documents match the query" if no results and skip
2006-02-03 Version 5.1.37
2006-02-10 Version 5.1.38
2006-02-14 Version 5.1.39
2006-02-22 Version 5.1.40
2006-03-17 Fix display of titles that are all space.
-->
</SCRIPT>