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