Rev 20 | Rev 4996 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4692 | bpr | 1 | ##create teacherlist at all levels |
| 2 | ## le paramètre est la classe |
||
| 3 | |||
| 4 | uclass=$wims_read_parm |
||
| 5 | superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def |
||
| 20 | reyssat | 6 | !default superclass=$wims_superclass |
| 4692 | bpr | 7 | !default uclass=$wims_superclass |
| 20 | reyssat | 8 | !if $superclass=$empty |
| 9 | !exit |
||
| 10 | !endif |
||
| 11 | !if $wims_superclass!=$empty and $superclass!=$wims_superclass and $wims_ismanager<2 |
||
| 12 | !exit |
||
| 13 | !endif |
||
| 14 | |||
| 15 | basedir=wimshome/log/classes/$superclass |
||
| 16 | basedir2=$wims_home/log/classes/$superclass |
||
| 4692 | bpr | 17 | basedirr=wimshome/log/classes/$uclass |
| 18 | basedirr2=$wims_home/log/classes/$uclass |
||
| 20 | reyssat | 19 | tlist=!sh cd $basedir2/.users\ |
| 20 | grep -l user_supervisable=yes * |
||
| 21 | tlist=!words2items $tlist |
||
| 22 | |||
| 4692 | bpr | 23 | !writefile $basedirr/.teacherlist.1 |
| 20 | reyssat | 24 | !for t in $tlist |
| 4692 | bpr | 25 | US_=!defof user_supervise in $basedir/.users/$t |
| 26 | !if $superclass=$uclass or $uclass isitemof $US_ |
||
| 27 | U_=!defof user_lastname,user_firstname in $basedir/.users/$t |
||
| 28 | !appendfile $basedirr/.teacherlist.1 $U_,$t |
||
| 29 | !endif |
||
| 20 | reyssat | 30 | !next t |
| 31 | |||
| 4692 | bpr | 32 | !sh sort -f $basedirr2/.teacherlist.1 | grep . >$basedirr2/.teacherlist\ |
| 33 | rm -f $basedirr2/.teacherlist.1 >/dev/null |
||
| 20 | reyssat | 34 |