Subversion Repositories wimsdev

Rev

Rev 10945 | Rev 16685 | 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. $icourses
  27.   !set user_supervise=!nonempty items $user_supervise
  28.   !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
  29. !endif
  30.  
  31. !! ----------- definition des droits de connexion supervisor
  32.  
  33. !!! as a supervisor
  34. !reset compsup
  35. !for cls in $user_supervise
  36.   !if $wims_class isin $cls
  37.     !let tmp=!replace internal / by , in $cls
  38.     !if $tmp!=$empty
  39.       !let compsup=!append line $tmp to $compsup
  40.     !endif
  41.   !endif
  42. !next cls
  43. !let compsup=!sh echo "$compsup" | sort | uniq;
  44.  
  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">
  48.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass&auth_user=supervisor $class_description (supervisor)
  49.     </span></li>
  50.    </ul>
  51. !endif
  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
  55.   !!in a class
  56.   $U_gotoclass31
  57. !else
  58.   $U_gotoclass3
  59. !endif
  60. !let user_supervise_=$user_supervise
  61. !read adm/class/graphclass supervise\
  62. $compsup
  63.  
  64. !if $user_participate=$empty or $wims_class/ notin $user_participate
  65.   !exit
  66. !endif
  67.  
  68. !!! as a student
  69. !reset compsup
  70. !if $class_type=3 and $class_typename!=level
  71.   !!in a class
  72.   $U_gotoclass11
  73. !else
  74.   $U_gotoclass1
  75. !endif
  76.  
  77. !for cls in $user_participate
  78.   !if $wims_class isin $cls
  79.     !let tmp=!replace internal / by , in $cls
  80.     !if $tmp!=$empty
  81.       !let compsup=!append line $tmp to $compsup
  82.     !endif
  83.   !endif
  84. !next cls
  85.  
  86. !let compsup=!sh echo "$compsup" | sort | uniq;
  87. !let user_participate_=$user_participate
  88. !read adm/class/graphclass participate\
  89. $compsup
  90.