Rev 17506 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 17506 | Rev 17507 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | !set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat |
4 | !set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat |
| 5 | !set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
- | |
| 6 | !set levels=!record 0 of wimshome/log/classes/$wims_class/levels |
5 | !set levels=!record 0 of wimshome/log/classes/$wims_class/levels |
| 7 | !set levelcnt=!linecnt $levels |
6 | !set levelcnt=!linecnt $levels |
| 8 | !set classes=!record 0 of wimshome/log/classes/$wims_class/classes |
7 | !set classes=!record 0 of wimshome/log/classes/$wims_class/classes |
| 9 | !set classcnt=!linecnt $classes |
8 | !set classcnt=!linecnt $classes |
| 10 | !set progs=!record 0 of wimshome/log/classes/$wims_class/programs |
9 | !set progs=!record 0 of wimshome/log/classes/$wims_class/programs |
| Line 15... | Line 14... | ||
| 15 | !set coursecnt=!linecnt $courses |
14 | !set coursecnt=!linecnt $courses |
| 16 | !!endif |
15 | !!endif |
| 17 | !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses |
16 | !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses |
| 18 | !set icoursecnt=!linecnt $icourses |
17 | !set icoursecnt=!linecnt $icourses |
| 19 | 18 | ||
| 20 | !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
- | |
| 21 | !if $wims_user=supervisor and ($wims_realuser=supervisor or $wims_realuser=SUPERVISOR) |
19 | !if $wims_user=supervisor and ($wims_realuser=supervisor or $wims_realuser=SUPERVISOR) |
| 22 | !set user_supervise=!column 1 of $levels\ |
20 | !set user_supervise=!column 1 of $levels\ |
| 23 | $classes\ |
21 | $classes\ |
| 24 | $progs\ |
22 | $progs\ |
| 25 | $courses\ |
23 | $courses\ |
| 26 | $icourses |
24 | $icourses |
| 27 | !set user_supervise=!nonempty items $user_supervise |
25 | !set user_supervise=!nonempty items $user_supervise |
| 28 | !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise |
26 | !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise |
| - | 27 | !else |
|
| - | 28 | !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
|
| 29 | !endif |
29 | !endif |
| 30 | 30 | ||
| 31 | !! ----------- definition des droits de connexion supervisor |
31 | !! ----------- definition des droits de connexion supervisor |
| 32 | 32 | ||
| 33 | !!! as a supervisor |
33 | !!! as a supervisor |