Subversion Repositories wimsdev

Rev

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

Rev 2217 Rev 12619
Line 4... Line 4...
4 
!if $moduclass_lang=cn
 4 
!if $moduclass_lang=cn
5 
 tsplit=
 5 
  tsplit=
6 
!else
 6 
!else
7 
 tsplit=, $
 7 
  tsplit=, $
8 
!endif
 8 
!endif
9 
tlist2=$wims_name_supervisor
 9 
tlist2=$wims_name_supervisor
10 
 
 10 
 
11 
Tlist=!record 0 of $classdir1/.teacherlist
 11 
Tlist=!record 0 of $classdir1/.teacherlist
12 
n=!linecnt $Tlist
 12 
n=!linecnt $Tlist
13 
n=$[min($n,500)]
 13 
n=$[min($n,500)]
14 
!for i=1 to $n
 14 
!for i=1 to $n
15 
 l=!line $i of $Tlist
 15 
  l=!line $i of $Tlist
16 
 tlist1=!append item $(l[3]) to $tlist1
 16 
  tlist1=!append item $(l[3]) to $tlist1
17 
 tlist2=!append item $(l[1])$tsplit$(l[2]) ($(l[3])) to $tlist2
 17 
  tlist2=!append item $(l[1])$tsplit$(l[2]) ($(l[3])) to $tlist2
18 
!next i
 18 
!next i
19 
 
 19