Rev 7679 | Rev 10651 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7679 | Rev 10640 | ||
---|---|---|---|
Line 4... | Line 4... | ||
4 | !endif |
4 | !endif |
- | 5 | !set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat |
|
- | 6 | !set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
|
- | 7 | !set classes=!record 0 of wimshome/log/classes/$wims_class/classes |
|
- | 8 | !set classcnt=!linecnt $classes |
|
- | 9 | !set progs=!record 0 of wimshome/log/classes/$wims_class/programs |
|
- | 10 | !set progcnt=!linecnt $progs |
|
- | 11 | ||
- | 12 | !if $classcnt+$progcnt>=1 |
|
- | 13 | !set courses=!record 0 of wimshome/log/classes/$wims_class/courses |
|
- | 14 | !set coursecnt=!linecnt $courses |
|
- | 15 | !endif |
|
- | 16 | !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses |
|
- | 17 | !set icoursecnt=!linecnt $icourses |
|
- | 18 | !if $[$classcnt+$progcnt+$coursecnt+$icourses]=0 |
|
- | 19 | !goto nosubclass |
|
- | 20 | !endif |
|
- | 21 | ||
5 | !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_user |
22 | !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_user |
- | 23 | !if $wims_user=supervisor and $wims_realuser=supervisor |
|
- | 24 | !set user_supervise=!column 1 of $classes\ |
|
- | 25 | $progs\ |
|
- | 26 | $courses |
|
- | 27 | !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise |
|
- | 28 | !endif |
|
- | 29 | ||
6 | !! ----------- definition des droits de connexion supervisor |
30 | !! ----------- definition des droits de connexion supervisor |
7 | <br/> |
31 | <br/> |
8 | !let compsup=$empty |
32 | !let compsup=$empty |
9 | !for cls in $user_supervise |
33 | !for cls in $user_supervise |
10 | !let tmp=!replace internal / by , in $cls |
34 | !let tmp=!replace internal / by , in $cls |