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