Rev 4692 | Rev 5028 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4996 | czzmrn | 1 | ##create teacherlist and .teacherlist_external at all levels |
| 4692 | bpr | 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 |
| 4996 | czzmrn | 24 | !writefile $basedirr/.teacherlist_external.1 |
| 20 | reyssat | 25 | !for t in $tlist |
| 4692 | bpr | 26 | US_=!defof user_supervise in $basedir/.users/$t |
| 27 | !if $superclass=$uclass or $uclass isitemof $US_ |
||
| 28 | U_=!defof user_lastname,user_firstname in $basedir/.users/$t |
||
| 29 | !appendfile $basedirr/.teacherlist.1 $U_,$t |
||
| 30 | !endif |
||
| 4996 | czzmrn | 31 | EXT_=!defof user_external_auth in $basedir/.users/$t |
| 32 | !if $EXT_!=$empty |
||
| 33 | !appendfile $basedirr/.teacherlist_external.1 $EXT_,$t |
||
| 34 | !endif |
||
| 35 | !reset user_external_auth |
||
| 20 | reyssat | 36 | !next t |
| 37 | |||
| 4692 | bpr | 38 | !sh sort -f $basedirr2/.teacherlist.1 | grep . >$basedirr2/.teacherlist\ |
| 39 | rm -f $basedirr2/.teacherlist.1 >/dev/null |
||
| 20 | reyssat | 40 | |
| 4996 | czzmrn | 41 | !sh sort -f $basedirr2/.teacherlist_external.1 | grep . >$basedirr2/.teacherlist_external\ |
| 42 | rm -f $basedirr2/.teacherlist_external.1 >/dev/null |
||
| 43 |