Subversion Repositories wimsdev

Rev

Rev 17507 | 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 levels=!record 0 of wimshome/log/classes/$wims_class/levels
  6. !set levelcnt=!linecnt $levels
  7. !set classes=!record 0 of wimshome/log/classes/$wims_class/classes
  8. !set classcnt=!linecnt $classes
  9. !set progs=!record 0 of wimshome/log/classes/$wims_class/programs
  10. !set progcnt=!linecnt $progs
  11.  
  12. !!if $classcnt+$progcnt>=1
  13.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  14.  !set coursecnt=!linecnt $courses
  15. !!endif
  16. !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
  17. !set icoursecnt=!linecnt $icourses
  18.  
  19. !if $wims_user=supervisor and ($wims_realuser=supervisor or $wims_realuser=SUPERVISOR)
  20.   !set user_supervise=!column 1 of $levels\
  21. $classes\
  22. $progs\
  23. $courses\
  24. $icourses
  25.   !set user_supervise=!nonempty items $user_supervise
  26.   !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
  27. !else
  28.   !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  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. !! better sorting for groupement (for teachers)
  45. !if $compsup!=$empty and $class_type=2
  46.   !set compsup_=!replace internal $wims_class, by in $compsup
  47.   !set compsup_=!linestoitems $compsup_
  48.   !set compsup_=!sort numeric items $compsup_
  49.   !set compsup_=!makelist $wims_class/x for x in $compsup_
  50.   !set compsup=!itemstolines $compsup_
  51.   !set compsup=!replace internal / by , in $compsup
  52. !endif
  53.  
  54. !if $user_supervisable=yes and $wims_superclass isitemof $user_supervise and $wims_superclass=$wims_class
  55.   !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
  56.     <ul class="wims_subclasses"><li><span class="wims_classes_direct_portal">
  57.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass&auth_user=supervisor $class_description (supervisor)
  58.     </span></li>
  59.    </ul>
  60. !endif
  61. !let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  62.  
  63. !if $compsup!=$empty
  64.   !let sup_details=open
  65. !endif
  66. <details $sup_details>
  67.   <summary>
  68.   !if $class_type=3 and $class_typename!=level
  69.     !!in a class
  70.     $U_gotoclass31
  71.   !else
  72.     $U_gotoclass3
  73.   !endif
  74.   </summary>
  75.   !let user_supervise_=$user_supervise
  76.   !read adm/class/graphclass supervise\
  77. $compsup
  78. !if $compsup=$empty and $courses_right=$empty
  79.   $U_nogotoclass
  80. !endif
  81. </details>
  82.  
  83. !if $user_participate=$empty or $wims_class notin $user_participate
  84.   !exit
  85. !endif
  86.  
  87. !!! as a student
  88. <br>
  89. !changeto subclasses_user.phtml
  90.  
  91. !! no more in use. use directly subclasses_user.phtml file
  92.  
  93. !reset compsup
  94. !if $class_type=3 and $class_typename!=level
  95.   !!in a class
  96.   $U_gotoclass11
  97. !else
  98.   $U_gotoclass1
  99. !endif
  100.  
  101. !for cls in $user_participate
  102.   !if $wims_class isin $cls
  103.     !let tmp=!replace internal / by , in $cls
  104.     !if $tmp!=$empty
  105.       !let compsup=!append line $tmp to $compsup
  106.     !endif
  107.   !endif
  108. !next cls
  109.  
  110. !let compsup=!sh echo "$compsup" | sort | uniq;
  111. !let user_participate_=$user_participate
  112. !read adm/class/graphclass participate\
  113. $compsup
  114.