Subversion Repositories wimsdev

Rev

Rev 10703 | Rev 10762 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10703 Rev 10747
Line 20... Line 20...
20 
!let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
 20 
!let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
21 
!if $wims_user=supervisor and $wims_realuser=supervisor
 21 
!if $wims_user=supervisor and $wims_realuser=supervisor
22 
  !set user_supervise=!column 1 of $levels\
 22 
  !set user_supervise=!column 1 of $levels\
23 
$classes\
 23 
$classes\
24 
$progs\
 24 
$progs\
- 
 
 25 
$courses\
25 
$courses
 26 
$icourses
- 
 
 27 
  !set user_supervise=!nonempty items $user_supervise
26 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
 28 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
27 
!endif
 29 
!endif
28 
 
 30 
 
29 
!! ----------- definition des droits de connexion supervisor
 31 
!! ----------- definition des droits de connexion supervisor
30 
 
 - 
 
31 
!reset compsup
 32 
!reset compsup
32 
!for cls in $user_supervise
 33 
!for cls in $user_supervise
33 
  !if $wims_class isin $cls
 34 
  !if $wims_class isin $cls
34 
    !let tmp=!replace internal / by , in $cls
 35 
    !let tmp=!replace internal / by , in $cls
- 
 
 36 
    !if $tmp!=$empty
35 
    !let compsup=!append line $tmp to $compsup
 37 
      !let compsup=!append line $tmp to $compsup
- 
 
 38 
    !endif
36 
  !endif
 39 
  !endif
37 
!next cls
 40 
!next cls
38 
!let compsup=!sh echo "$compsup" | sort | uniq;
 41 
!let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 42 
!if $user_participate!=$empty
39 
$U_gotoclass3
 43 
  $U_gotoclass3
40 
 
 44 
!endif
- 
 
 45 
!let user_supervise_=$user_supervise
41 
!read classgraph.phtml supervise\
 46 
!read adm/class/graphclass supervise\
42 
$compsup
 47 
$compsup
43 
 
 48 
 
44 
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
 49 
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
45 
!if $user_participate=$empty
 50 
!if $user_participate=$empty
46 
 !exit
 51 
  !exit
47 
!endif
 52 
!endif
48 
!reset compsup
 53 
!reset compsup
49 
$U_gotoclass1
 54 
$U_gotoclass1
50 
 
 55 
 
51 
!for cls in $user_participate
 56 
!for cls in $user_participate
52 
  !if $wims_class isin $cls
 57 
  !if $wims_class isin $cls
53 
    !let tmp=!replace internal / by , in $cls
 58 
    !let tmp=!replace internal / by , in $cls
- 
 
 59 
    !if $tmp!=$empty
54 
    !let compsup=!append line $tmp to $compsup
 60 
      !let compsup=!append line $tmp to $compsup
- 
 
 61 
    !endif
55 
  !endif
 62 
  !endif
56 
!next cls
 63 
!next cls
57 
 
 64 
 
58 
!let compsup=!sh echo "$compsup" | sort | uniq;
 65 
!let compsup=!sh echo "$compsup" | sort | uniq;
59 
 
 - 
 
- 
 
 66 
!let user_participate_=$user_participate
60 
!read classgraph.phtml participate\
 67 
!read adm/class/graphclass participate\
61 
$compsup
 68 
$compsup
62 
 
 -