Subversion Repositories wimsdev

Rev

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