Subversion Repositories wimsdev

Rev

Rev 10945 | Rev 16684 | 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
 
10945 bpr 45
!if $user_supervisable=yes and $wims_superclass isitemof $user_supervise and $wims_superclass=$wims_class
46
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
47
    <ul class="wims_subclasses"><li><span class="wims_classes_direct_portal">
12821 bpr 48
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass&auth_user=supervisor $class_description (supervisor)
10945 bpr 49
    </span></li>
50
   </ul>
51
!endif
10762 bpr 52
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
53
 
54
!if $class_type=3 and $class_typename!=level
12821 bpr 55
  !!in a class
56
  $U_gotoclass31
10762 bpr 57
!else
12821 bpr 58
  $U_gotoclass3
10747 bpr 59
!endif
60
!let user_supervise_=$user_supervise
61
!read adm/class/graphclass supervise\
10669 bpr 62
$compsup
4770 guerimand 63
 
10762 bpr 64
!if $user_participate=$empty or $wims_class/ notin $user_participate
10747 bpr 65
  !exit
10674 bpr 66
!endif
10762 bpr 67
 
68
!!! as a student
10669 bpr 69
!reset compsup
10762 bpr 70
!if $class_type=3 and $class_typename!=level
12821 bpr 71
  !!in a class
72
  $U_gotoclass11
10762 bpr 73
!else
12821 bpr 74
  $U_gotoclass1
10762 bpr 75
!endif
10669 bpr 76
 
77
!for cls in $user_participate
10703 bpr 78
  !if $wims_class isin $cls
79
    !let tmp=!replace internal / by , in $cls
10747 bpr 80
    !if $tmp!=$empty
81
      !let compsup=!append line $tmp to $compsup
82
    !endif
10703 bpr 83
  !endif
10669 bpr 84
!next cls
85
 
86
!let compsup=!sh echo "$compsup" | sort | uniq;
10747 bpr 87
!let user_participate_=$user_participate
88
!read adm/class/graphclass participate\
10669 bpr 89
$compsup