Rev 12619 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 12619 | Rev 12805 | ||
|---|---|---|---|
| Line 1... | Line -... | ||
| 1 | - | ||
| 2 | tt=!defof user_lastname, user_firstname in $classdir1/supervisor |
1 | tt=!defof user_lastname, user_firstname in $classdir1/supervisor |
| 3 | tlist1=$wims_name_supervisor |
2 | tlist1=$wims_name_supervisor |
| 4 | !if $moduclass_lang=cn |
3 | !if $moduclass_lang=cn |
| 5 | tsplit= |
4 | tsplit= |
| 6 | !else |
5 | !else |
| 7 | tsplit=, $ |
6 | tsplit=, $ |
| 8 | !endif |
7 | !endif |
| 9 | tlist2=$wims_name_supervisor |
8 | tlist2=$wims_name_supervisor |
| 10 | 9 | ||
| 11 | Tlist=!record 0 of $classdir1/.teacherlist |
10 | Tlist=!record 0 of $classdir1/.teacherlist |
| 12 | n=!linecnt $Tlist |
11 | n=!linecnt $Tlist |
| 13 | n=$[min($n,500)] |
12 | n=$[min($n,500)] |
| 14 | !for i=1 to $n |
13 | !for i=1 to $n |
| 15 | l=!line $i of $Tlist |
14 | l=!line $i of $Tlist |
| 16 | tlist1=!append item $(l[3]) to $tlist1 |
15 | tlist1=!append item $(l[3]) to $tlist1 |
| 17 | tlist2=!append item $(l[1])$tsplit$(l[2]) ($(l[3])) to $tlist2 |
16 | tlist2=!append item $(l[1])$tsplit$(l[2]) ($(l[3])) to $tlist2 |
| 18 | !next i |
17 | !next i |
| 19 | - | ||