Rev 1726 | Rev 12619 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | |
| 2 | tt=!defof user_lastname, user_firstname in $classdir1/supervisor |
||
| 1726 | bpr | 3 | tlist1=$wims_name_supervisor |
| 2217 | bpr | 4 | !if $moduclass_lang=cn |
| 23 | reyssat | 5 | tsplit= |
| 6 | !else |
||
| 7 | tsplit=, $ |
||
| 8 | !endif |
||
| 1726 | bpr | 9 | tlist2=$wims_name_supervisor |
| 23 | reyssat | 10 | |
| 11 | Tlist=!record 0 of $classdir1/.teacherlist |
||
| 12 | n=!linecnt $Tlist |
||
| 13 | n=$[min($n,500)] |
||
| 14 | !for i=1 to $n |
||
| 15 | l=!line $i of $Tlist |
||
| 16 | tlist1=!append item $(l[3]) to $tlist1 |
||
| 17 | tlist2=!append item $(l[1])$tsplit$(l[2]) ($(l[3])) to $tlist2 |
||
| 18 | !next i |
||
| 19 |