Rev 4692 | Rev 5028 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4692 | Rev 4996 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | ##create teacherlist at all levels |
1 | ##create teacherlist and .teacherlist_external at all levels |
| 2 | ## le paramètre est la classe |
2 | ## le paramètre est la classe |
| 3 | 3 | ||
| 4 | uclass=$wims_read_parm |
4 | uclass=$wims_read_parm |
| 5 | superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def |
5 | superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def |
| 6 | !default superclass=$wims_superclass |
6 | !default superclass=$wims_superclass |
| Line 19... | Line 19... | ||
| 19 | tlist=!sh cd $basedir2/.users\ |
19 | tlist=!sh cd $basedir2/.users\ |
| 20 | grep -l user_supervisable=yes * |
20 | grep -l user_supervisable=yes * |
| 21 | tlist=!words2items $tlist |
21 | tlist=!words2items $tlist |
| 22 | 22 | ||
| 23 | !writefile $basedirr/.teacherlist.1 |
23 | !writefile $basedirr/.teacherlist.1 |
| - | 24 | !writefile $basedirr/.teacherlist_external.1 |
|
| 24 | !for t in $tlist |
25 | !for t in $tlist |
| 25 | US_=!defof user_supervise in $basedir/.users/$t |
26 | US_=!defof user_supervise in $basedir/.users/$t |
| 26 | !if $superclass=$uclass or $uclass isitemof $US_ |
27 | !if $superclass=$uclass or $uclass isitemof $US_ |
| 27 | U_=!defof user_lastname,user_firstname in $basedir/.users/$t |
28 | U_=!defof user_lastname,user_firstname in $basedir/.users/$t |
| 28 | !appendfile $basedirr/.teacherlist.1 $U_,$t |
29 | !appendfile $basedirr/.teacherlist.1 $U_,$t |
| 29 | !endif |
30 | !endif |
| - | 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 |
|
| 30 | !next t |
36 | !next t |
| 31 | 37 | ||
| 32 | !sh sort -f $basedirr2/.teacherlist.1 | grep . >$basedirr2/.teacherlist\ |
38 | !sh sort -f $basedirr2/.teacherlist.1 | grep . >$basedirr2/.teacherlist\ |
| 33 | rm -f $basedirr2/.teacherlist.1 >/dev/null |
39 | rm -f $basedirr2/.teacherlist.1 >/dev/null |
| - | 40 | ||
| - | 41 | !sh sort -f $basedirr2/.teacherlist_external.1 | grep . >$basedirr2/.teacherlist_external\ |
|
| - | 42 | rm -f $basedirr2/.teacherlist_external.1 >/dev/null |
|
| 34 | 43 | ||