Rev 10669 | Rev 10703 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
10651 | bpr | 1 | |
4819 | czzmrn | 2 | !if $wims_superclass=$empty |
4820 | czzmrn | 3 | !let wims_superclass=$wims_class |
4819 | czzmrn | 4 | !endif |
10640 | bpr | 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 |
||
10651 | bpr | 7 | !set levels=!record 0 of wimshome/log/classes/$wims_class/levels |
8 | !set levelcnt=!linecnt $levels |
||
10640 | bpr | 9 | !set classes=!record 0 of wimshome/log/classes/$wims_class/classes |
10 | !set classcnt=!linecnt $classes |
||
11 | !set progs=!record 0 of wimshome/log/classes/$wims_class/programs |
||
12 | !set progcnt=!linecnt $progs |
||
13 | |||
10651 | bpr | 14 | !!if $classcnt+$progcnt>=1 |
10640 | bpr | 15 | !set courses=!record 0 of wimshome/log/classes/$wims_class/courses |
16 | !set coursecnt=!linecnt $courses |
||
10651 | bpr | 17 | !!endif |
10640 | bpr | 18 | !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses |
19 | !set icoursecnt=!linecnt $icourses |
||
20 | |||
10651 | bpr | 21 | !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
10640 | bpr | 22 | !if $wims_user=supervisor and $wims_realuser=supervisor |
10651 | bpr | 23 | !set user_supervise=!column 1 of $levels\ |
24 | $classes\ |
||
25 | $progs\ |
||
26 | $courses |
||
10640 | bpr | 27 | !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise |
28 | !endif |
||
29 | |||
4770 | guerimand | 30 | !! ----------- definition des droits de connexion supervisor |
10651 | bpr | 31 | |
10669 | bpr | 32 | !reset compsup |
4770 | guerimand | 33 | !for cls in $user_supervise |
10669 | bpr | 34 | !let tmp=!replace internal / by , in $cls |
35 | !let compsup=!append line $tmp to $compsup |
||
4770 | guerimand | 36 | !next cls |
10669 | bpr | 37 | |
4770 | guerimand | 38 | !let compsup=!sh echo "$compsup" | sort | uniq; |
10669 | bpr | 39 | $U_gotoclass3 |
40 | !read classgraph.phtml supervise\ |
||
41 | $compsup |
||
4770 | guerimand | 42 | |
10674 | bpr | 43 | !let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
44 | !if $user_participate=$empty |
||
45 | !exit |
||
46 | !endif |
||
10669 | bpr | 47 | !reset compsup |
48 | $U_gotoclass1 |
||
49 | |||
50 | !for cls in $user_participate |
||
51 | !let tmp=!replace internal / by , in $cls |
||
52 | !let compsup=!append line $tmp to $compsup |
||
53 | !next cls |
||
54 | |||
55 | !let compsup=!sh echo "$compsup" | sort | uniq; |
||
56 | |||
57 | !read classgraph.phtml participate\ |
||
58 | $compsup |
||
59 |