Subversion Repositories wimsdev

keyword=!items2words $keyword
keyword=!trim $keyword
kw=!words2items $keyword
kw=!deaccent $kw
kw=!tolower $kw
ccnt=!recordcnt wimshome/log/classes/.index

clcnt=0
sccnt=0
!reset list_cl_id
!for i=1 to $ccnt
  l=!record $i of wimshome/log/classes/.index
  !distribute items $l into code,expire,inst,cl,la,ty
  l1=!deaccent $l
  l1=!tolower $l1
  k=yes
  !for w in $kw
    !if $w notin $l1
      k=no
      !break
    !endif
  !next w
  !if $k = yes
    c1=!text extract 0123456789 in $code
    list_cl_id=!append item $c1 to $list_cl_id
    !if $ty isin 24
      sclasses=!append line $l to $sclasses
      !advance sccnt
    !else
      classes=!append line $l to $classes
      !advance clcnt
    !endif
  !endif

  !if $clcnt+$sccnt > 20
    overflow=yes
    !break
  !endif
!next i