Subversion Repositories wimsdev

Rev

Rev 10669 | Rev 10703 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !if $wims_superclass=$empty
  3.   !let wims_superclass=$wims_class
  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 levels=!record 0 of wimshome/log/classes/$wims_class/levels
  8. !set levelcnt=!linecnt $levels
  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.  
  14. !!if $classcnt+$progcnt>=1
  15.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  16.  !set coursecnt=!linecnt $courses
  17. !!endif
  18. !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
  19. !set icoursecnt=!linecnt $icourses
  20.  
  21. !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  22. !if $wims_user=supervisor and $wims_realuser=supervisor
  23.   !set user_supervise=!column 1 of $levels\
  24. $classes\
  25. $progs\
  26. $courses
  27.   !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
  28. !endif
  29.  
  30. !! ----------- definition des droits de connexion supervisor
  31.  
  32. !reset compsup
  33. !for cls in $user_supervise
  34.   !let tmp=!replace internal / by , in $cls
  35.   !let compsup=!append line $tmp to $compsup
  36. !next cls
  37.  
  38. !let compsup=!sh echo "$compsup" | sort | uniq;
  39. $U_gotoclass3
  40. !read classgraph.phtml supervise\
  41. $compsup
  42.  
  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
  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.  
  60.