Subversion Repositories wimsdev

Rev

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

  1. !if $wims_superclass=$empty
  2.   !let wims_superclass=$wims_class
  3. !endif
  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
  6. !set levels=!record 0 of wimshome/log/classes/$wims_class/levels
  7. !set levelcnt=!linecnt $levels
  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.  
  13. !!if $classcnt+$progcnt>=1
  14.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  15.  !set coursecnt=!linecnt $courses
  16. !!endif
  17. !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
  18. !set icoursecnt=!linecnt $icourses
  19.  
  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
  22.   !set user_supervise=!column 1 of $levels\
  23. $classes\
  24. $progs\
  25. $courses
  26.   !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
  27. !endif
  28.  
  29. !! ----------- definition des droits de connexion supervisor
  30.  
  31. !reset compsup
  32. !for cls in $user_supervise
  33.   !if $wims_class isin $cls
  34.     !let tmp=!replace internal / by , in $cls
  35.     !let compsup=!append line $tmp to $compsup
  36.   !endif
  37. !next cls
  38. !let compsup=!sh echo "$compsup" | sort | uniq;
  39. $U_gotoclass3
  40.  
  41. !read classgraph.phtml supervise\
  42. $compsup
  43.  
  44. !let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  45. !if $user_participate=$empty
  46.  !exit
  47. !endif
  48. !reset compsup
  49. $U_gotoclass1
  50.  
  51. !for cls in $user_participate
  52.   !if $wims_class isin $cls
  53.     !let tmp=!replace internal / by , in $cls
  54.     !let compsup=!append line $tmp to $compsup
  55.   !endif
  56. !next cls
  57.  
  58. !let compsup=!sh echo "$compsup" | sort | uniq;
  59.  
  60. !read classgraph.phtml participate\
  61. $compsup
  62.  
  63.