Subversion Repositories wimsdev

listfile=wimshome/public_html/scripts/model/$lang/list

!reset list_exists

!read $listfile

!if $list_exists=yes

  !exit

!endif

src=!sh cd $wims_home/public_html/scripts/model/$lang/src; ls *.oef | sed 's/.oef$$//'

src=!words2items $src

!writefile $listfile

!! allow to order types. The types not written here are automatically added at the end

!set types=first,datalist,question,select,gapfill,classify,order,game,imaudio,chemistry

!for f in $src

  def=!record 0 of model/$lang/src/$f.oef

  type=!getopt type in $def

  !if $type!=$empty and text/css notin $type

    !if $type notitemof $types

      types=!append item $type to $types

      type_$type=

    !endif

    type_$type=!append item $f to $(type_$type)

    desc=!record 1 of model/$lang/src/$f.oef

    desc=!line 1 of $desc

    tit=

    !for i=2 to 8

      r=!record $i of model/$lang/src/$f.oef

      r=!trim $r

      c=!char 1 of $r

      !if \ = $c and +++\title isin +++$r

        tit=!embraced extract $r

        !break

      !endif

    !next i

    !appendfile $listfile tit_$f=$tit\

desc_$f=$desc

  !endif

!next f

!appendfile $listfile list_exists=yes\

types=$types

!for t in $types

  !appendfile $listfile type_$t=$(type_$t)

!next t

!read $listfile