Subversion Repositories wimsdev

Rev

Rev 14049 | Rev 15987 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14049 Rev 14769
Line 24... Line 24...
24 
  !set listexam=!makelist exam_ i for i=1 to $examcnt
 24 
  !set listexam=!makelist exam_ i for i=1 to $examcnt
25 
  !set listsheet=!makelist sheet_ i for i=1 to $sheetcnt
 25 
  !set listsheet=!makelist sheet_ i for i=1 to $sheetcnt
26 
  !set listvote=!makelist vote_ i for i=1 to $votecnt
 26 
  !set listvote=!makelist vote_ i for i=1 to $votecnt
27 
  !set listtool=!makelist tool_ i for i=1 to $toolcnt
 27 
  !set listtool=!makelist tool_ i for i=1 to $toolcnt
28 
  !set listglossary=!makelist glossary_ i for i=1 to $glossarycnt
 28 
  !set listglossary=!makelist glossary_ i for i=1 to $glossarycnt
- 
 
 29 
  !set listfreework=!makelist freework_ i for i=1 to $freeworkcnt
29 
  list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary
 30 
  list=!nospace $listc,$listdoc,$listsheet,$listexam,$listvote,$listtool,$listglossary,$listfreework
30 
  list=!nonempty items $list
 31 
  list=!nonempty items $list
31 
  list1=debut
 32 
  list1=debut
32 
  !for x in $list
 33 
  !for x in $list
33 
    list1=!append item $($x) to $list1
 34 
    list1=!append item $($x) to $list1
34 
  !next
 35 
  !next
Line 39... Line 40...
39 
  !for j = 1 to $listcnt
 40 
  !for j = 1 to $listcnt
40 
    jj=!positionof item $j in $list1
 41 
    jj=!positionof item $j in $list1
41 
    !if $jj!=
 42 
    !if $jj!=
42 
      listfinal=!append item $(list[$jj]) to $listfinal
 43 
      listfinal=!append item $(list[$jj]) to $listfinal
43 
    !endif
 44 
    !endif
44 
  !next
 45 
  !next j
45 
  list=!replace internal _ by $ $ in $(listfinal)
 46 
  list=!replace internal _ by $ $ in $(listfinal)
46 
  new_data=!append line $list to $new_data
 47 
  new_data=!append line $list to $new_data
47 
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
 48 
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
48 
$visible
 49 
$visible
49 
 
 50