Subversion Repositories wimsdev

Rev

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

  1. !! make the list of all classes and programms which are supervised
  2. !! with the courses inside with incrementation.
  3. !! no test zone. No intercourses ?
  4. !! subclass1 is something as the variable $wims_participate (only courses ? )+ optional courses
  5. !! eventually
  6. !! subclass2 is the complement
  7.  
  8. !if $auth_method isitemof $auth_method_list and $wims_user!=supervisor
  9.       !set u_=$wims_external_auth
  10. !else
  11.       !set u_=$wims_realuser
  12.       !default u_=$wims_user
  13. !endif
  14. !default CL_Name=$CL_Names
  15. !!!if $user_participate$user_supervise!=$empty
  16. !!<p>
  17. !!  !if $supervisable!=yes
  18. !!    $U_gotoclass
  19. !!  !else
  20. !!    $U_gotoclass3
  21. !!  !endif
  22. !!</p>
  23. !!!endif
  24.  
  25. !if $supervisable=yes or ($wims_user=supervisor and $wims_realuser=supervisor)
  26.   !read subclasses_supervisor.phtml
  27.   !if ($wims_user=supervisor or $wims_class=$wims_superclass)
  28. !!FIXME desactivate the possibility for teachers to register without the administrator in a portal
  29.     !if $class_type iswordof 2 4
  30.        !!href module=adm/class/classes&type=supervisor&superclass=$wims_class $U_supervise
  31.     !!else
  32.       !if $wims_user!=supervisor or $wims_realuser!=supervisor
  33.         $name_gotosupervise
  34.       !endif
  35.     !endif
  36.   !endif
  37. !else
  38.     !if $supervisable!=yes
  39.       !read subclasses_user.phtml
  40.       !read classlegend.phtml
  41.     !endif
  42. !endif
  43. !!exit
  44. !goto end1
  45.  
  46.   <ul class="wims_subclasses"><!--wims_subclasses-->
  47. !reset alreadyseen
  48. !if $wims_class!=$wims_superclass
  49.    !set subclass1=$wims_class,$subclass1
  50. !endif
  51. !for c in $subclass1
  52.      !set name=!defof class_description in wimshome/log/classes/$c/.def
  53.      !set type=!defof class_type in wimshome/log/classes/$c/.def
  54.      !set type_name=!defof class_typename in wimshome/log/classes/$c/.def
  55.      !read adm/class/initclass $c,auth
  56.  
  57.      !set t_=participant
  58.      !set type_class=!defof class_type in wimshome/log/classes/$class/.def
  59.      !if $c notitemof $alreadyseen
  60.       <li>  <span class="wims_classes_direct_$type_name">
  61.       !if $c!=$wims_class
  62.       !href module=adm/class/classes&type=authparticipant&class=$c&auth_user=$u_ $name
  63.       !else
  64.         $name
  65.       !endif
  66.       ($(CL_Name[2]))</span>
  67.      !set alreadyseen=!append item $c to $alreadyseen
  68.      !set sub_=!record 0 of wimshome/log/classes/$c/courses
  69.      !set sub_cnt=!linecnt $sub_
  70.      !if $sub_cnt>0
  71.        <ul><!--2-->
  72.       !for k_ =1 to $sub_cnt
  73.        !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
  74.        !set split=!replace internal / by , in $(sub_[$k_;1])
  75.        !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
  76.        !set name_c=!defof class_description in wimshome/log/classes/$parent_c/.def
  77.        !if  optional iswordof $progstyle
  78.          !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
  79.        !endif
  80.        !if $wims_superclass/$(sub_[$k_;1]) notitemof $alreadyseen and mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit or $wims_user=supervisor
  81.         !set alreadyseen=!append item $wims_superclass/$(sub_[$k_;1]) to $alreadyseen
  82.         <li>
  83.         <span class="wims_classes_direct_course">
  84.         !href module=adm/class/classes&type=auth$t_&class=$wims_superclass/$(sub_[$k_;1])&auth_user=$u_ $(sub_[$k_;3])
  85.        ($(CL_Name[4]))
  86.         </span>
  87.         </li>
  88.        !endif
  89.        </li>
  90.       !next k_
  91.        </ul><!end--2-->
  92.       !endif sub_cnt>0
  93.         !if $c=$wims_class
  94.          !goto end
  95.         !endif
  96.       !endif $c notitemof $alreadyseen
  97. !next
  98.  
  99. :end
  100. </ul>
  101. :end1
  102. !if $alreadyseen!=$empty
  103.   !set subclass2=!listcomplement $alreadyseen in $subclass2
  104.   !set subclasscnt2=!itemcnt $subclass2
  105. !endif
  106. !if $class_mixed_external_auth!=2 and $subclasscnt2>0
  107.  
  108.  !if $insc!=yes
  109.  !!not a program
  110.   !if $class_type!=3
  111.     !href module=home&cmd=new&insc=yes $U_inscription2
  112.   !endif
  113.  !else
  114. <div>
  115.   $U_inscription1
  116.  <ul class="wims_subclasses">
  117.   !for c in $subclass2
  118.    !set name=!defof class_description in wimshome/log/classes/$c/.def
  119.    !set type=!defof class_typename in wimshome/log/classes/$c/.def
  120.    <li><span class="wims_classes_direct_$type">
  121. !! wrong variable?
  122. !!   !href module=adm/class/reguser&class=$c&auth_user=$u_ $name
  123.    !href module=adm/class/reguser&class=$c&user_auth=$u_&subclass=yes $name
  124.    </span></li>
  125.   !next c
  126.  </ul>
  127. </div>
  128.   !set wims_ref_class=wims_button
  129.   !href module=home&cmd=new $wims_name_back2
  130.  !endif
  131. !endif
  132. !if $supervisable=yes and ($wims_user=supervisor or $wims_class=$wims_superclass) and $class_type notwordof 3 4
  133. <p>
  134.    !set wims_ref_class=wims_button
  135.    !href module=adm/class/regclass $wims_name_classcreate
  136.    !set wims_ref_class=wims_button
  137.    !href module=adm/class/regclass&job=cloneexemple $wims_name_cloneclass
  138.  
  139. </p>
  140. !endif
  141.