Subversion Repositories wimsdev

Rev

Rev 10747 | Rev 10945 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4819 czzmrn 1
!if $wims_superclass=$empty
4820 czzmrn 2
  !let wims_superclass=$wims_class
4819 czzmrn 3
!endif
10640 bpr 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
10651 bpr 6
!set levels=!record 0 of wimshome/log/classes/$wims_class/levels
7
!set levelcnt=!linecnt $levels
10640 bpr 8
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
9
!set classcnt=!linecnt $classes
10
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
11
!set progcnt=!linecnt $progs
12
 
10651 bpr 13
!!if $classcnt+$progcnt>=1
10640 bpr 14
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
15
 !set coursecnt=!linecnt $courses
10651 bpr 16
!!endif
10640 bpr 17
!set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
18
!set icoursecnt=!linecnt $icourses
19
 
10651 bpr 20
!let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
10640 bpr 21
!if $wims_user=supervisor and $wims_realuser=supervisor
10651 bpr 22
  !set user_supervise=!column 1 of $levels\
23
$classes\
24
$progs\
10747 bpr 25
$courses\
26
$icourses
27
  !set user_supervise=!nonempty items $user_supervise
10640 bpr 28
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
29
!endif
30
 
4770 guerimand 31
!! ----------- definition des droits de connexion supervisor
10762 bpr 32
 
33
!!! as a supervisor
10669 bpr 34
!reset compsup
4770 guerimand 35
!for cls in $user_supervise
10703 bpr 36
  !if $wims_class isin $cls
37
    !let tmp=!replace internal / by , in $cls
10747 bpr 38
    !if $tmp!=$empty
39
      !let compsup=!append line $tmp to $compsup
40
    !endif
10703 bpr 41
  !endif
4770 guerimand 42
!next cls
43
!let compsup=!sh echo "$compsup" | sort | uniq;
10762 bpr 44
 
45
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
46
 
47
!if $class_type=3 and $class_typename!=level
48
!!in a class
49
    $U_gotoclass31
50
!else
51
    $U_gotoclass3
10747 bpr 52
!endif
53
!let user_supervise_=$user_supervise
54
!read adm/class/graphclass supervise\
10669 bpr 55
$compsup
4770 guerimand 56
 
10762 bpr 57
!if $user_participate=$empty or $wims_class/ notin $user_participate
10747 bpr 58
  !exit
10674 bpr 59
!endif
10762 bpr 60
 
61
!!! as a student
10669 bpr 62
!reset compsup
10762 bpr 63
!if $class_type=3 and $class_typename!=level
64
!!in a class
65
    $U_gotoclass11
66
!else
67
    $U_gotoclass1
68
!endif
10669 bpr 69
 
70
!for cls in $user_participate
10703 bpr 71
  !if $wims_class isin $cls
72
    !let tmp=!replace internal / by , in $cls
10747 bpr 73
    !if $tmp!=$empty
74
      !let compsup=!append line $tmp to $compsup
75
    !endif
10703 bpr 76
  !endif
10669 bpr 77
!next cls
78
 
79
!let compsup=!sh echo "$compsup" | sort | uniq;
10747 bpr 80
!let user_participate_=$user_participate
81
!read adm/class/graphclass participate\
10669 bpr 82
$compsup