Subversion Repositories wimsdev

Rev

Rev 2670 | Rev 6462 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##sheet
  2. !if $srch!=$empty
  3.  suffix_dictionary=
  4.  dictionary=bases/sheet/index/$search_lang
  5.  translator_unknown=
  6.  sout=!exec translator $srch
  7.  sout=!items2words $sout
  8.  sout=!words2lines $sout
  9.  sout=!translate ? to $ $ in $sout
  10.  sout=!sort lines $sout
  11.  sout=!nonempty lines $sout
  12.  scnt=!linecnt $sout
  13. !else
  14.  scnt=0
  15. !endif
  16.  
  17. # Limit of shown items
  18. gotlim=50
  19. !distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod
  20.  
  21. !for i=1 to $scnt
  22.  l_=!line $i of $sout
  23.  t_=!wordcnt $l_
  24.  !if $t_=2
  25.   !distribute word $l_ into m_,w_
  26.   !if $m_=$lastmod or $gotcnt>$gotlim
  27.    weight=$[$weight+$w_]
  28.   !else
  29.    !if $lastmod!=$empty
  30.     gotm=$gotm $lastmod
  31.     gotw=$gotw $weight
  32.     !advance gotcnt
  33.    !endif
  34.    lastmod=$m_
  35.    weight=$w_
  36.   !endif
  37.  !endif
  38. !next i
  39. !if $lastmod!=$empty
  40.  gotm=$gotm $lastmod
  41.  gotw=$gotw $weight
  42.  !advance gotcnt
  43. !endif
  44.  
  45. translator_switch=leaveline
  46. !if $gotcnt=0
  47.  gottype=popular
  48. !else
  49.  gottype=search
  50.  gotw=!words2lines $gotw
  51.  gotm=!words2lines $gotm
  52.  dictionary=bases/sheet/index/weight.$search_lang
  53.  gotW=!exec translator $gotm
  54.  w_=
  55.  !for i=1 to $gotcnt
  56.   u_=!line $i of $gotw
  57.   v_=!line $i of $gotW
  58.   w_=!append line $[round(100*($u_+1)/($v_+1)^0.7)] to $w_
  59.  !next i
  60.  gotw=!sort reverse numeric lines $w_
  61.  gotm=!line $wims_sort_order of $gotm
  62. !endif
  63.  
  64. dictionary=bases/sheet/index/title.$search_lang
  65. gott=!exec translator $gotm
  66. dictionary=bases/sheet/index/description.$search_lang
  67. gotd=!exec translator $gotm
  68. !if $gotcnt>0 and / notin $gotm
  69.  dictionary=bases/sheet/index/addr.$search_lang
  70.  gotm=!exec translator $gotm
  71. !endif
  72.  
  73.