Subversion Repositories wimsdev

Rev

Rev 11377 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11377 Rev 13626
Line 1... Line 1...
1 
 
 1 
 
2 
listfile=wimshome/public_html/scripts/model/$lang/list
 2 
listfile=wimshome/public_html/scripts/model/$lang/list
3 
!reset list_exists
 3 
!reset list_exists
4 
!read $listfile
 4 
!read $listfile
5 
!if $list_exists=yes
 5 
!if $list_exists=yes
6 
 !exit
 6 
  !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
src=!sh cd $wims_home/public_html/scripts/model/$lang/src; ls *.oef | sed 's/.oef$$//'
 9 
src=!sh cd $wims_home/public_html/scripts/model/$lang/src; ls *.oef | sed 's/.oef$$//'
10 
src=!words2items $src
 10 
src=!words2items $src
11 
 
 11 
 
12 
!writefile $listfile
 12 
!writefile $listfile
13 
!! allow to order types. The types not written here are automatically added at the end
 13 
!! allow to order types. The types not written here are automatically added at the end
14 
!set types=first,datalist,question,select,gapfill,classify,order,game,imaudio,chemistry
 14 
!set types=first,datalist,question,select,gapfill,classify,order,game,imaudio,chemistry
15 
!for f in $src
 15 
!for f in $src
16 
 def=!record 0 of model/$lang/src/$f.oef
 16 
  def=!record 0 of model/$lang/src/$f.oef
17 
 type=!getopt type in $def
 17 
  type=!getopt type in $def
18 
 !if $type!=$empty and text/css notin $type
 18 
  !if $type!=$empty and text/css notin $type
19 
  !if $type notitemof $types
 19 
    !if $type notitemof $types
20 
   types=!append item $type to $types
 20 
      types=!append item $type to $types
21 
   type_$type=
 21 
      type_$type=
22 
  !endif
 22 
    !endif
23 
  type_$type=!append item $f to $(type_$type)
 23 
    type_$type=!append item $f to $(type_$type)
24 
  desc=!record 1 of model/$lang/src/$f.oef
 24 
    desc=!record 1 of model/$lang/src/$f.oef
25 
  desc=!line 1 of $desc
 25 
    desc=!line 1 of $desc
26 
  tit=
 26 
    tit=
27 
  !for i=2 to 8
 27 
    !for i=2 to 8
28 
   r=!record $i of model/$lang/src/$f.oef
 28 
      r=!record $i of model/$lang/src/$f.oef
29 
   r=!trim $r
 29 
      r=!trim $r
30 
   c=!char 1 of $r
 30 
      c=!char 1 of $r
31 
   !if \ = $c and +++\title isin +++$r
 31 
      !if \ = $c and +++\title isin +++$r
32 
    tit=!embraced extract $r
 32 
        tit=!embraced extract $r
33 
    !break
 33 
        !break
34 
   !endif
 34 
      !endif
35 
  !next i
 35 
    !next i
36 
  !appendfile $listfile tit_$f=$tit\
 36 
    !appendfile $listfile tit_$f=$tit\
37 
desc_$f=$desc
 37 
desc_$f=$desc
38 
 !endif
 38 
  !endif
39 
!next f
 39 
!next f
40 
 
 40 
 
41 
!appendfile $listfile list_exists=yes\
 41 
!appendfile $listfile list_exists=yes\
42 
types=$types
 42 
types=$types
43 
 
 43 
 
44 
!for t in $types
 44 
!for t in $types
45 
 !appendfile $listfile type_$t=$(type_$t)
 45 
  !appendfile $listfile type_$t=$(type_$t)
46 
!next t
 46 
!next t
47 
 
 47 
 
48 
!read $listfile
 48 
!read $listfile