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
!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
 c1=!text extract 0123456789 in $code
 k=yes
 !for w in $kw
  !if $w notin $l1
   k=no
   !break
  !endif
 !next w
 !if $k = yes
  !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