Subversion Repositories wimsdev

Rev

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