Subversion Repositories wimsdev

Rev

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

  1. !default CL_Name=$CL_Names
  2. !set arr=--->
  3. !if $supervisable=yes
  4.  !read subclasses_user.phtml
  5. !endif
  6. !for cnt in 1
  7.  !if $(subclasscnt$cnt)>0 and $insc!=yes
  8.   !if $supervisable!=yes
  9.    $U_gotoclass
  10.   !else
  11.    $(U_gotoclass$cnt)
  12.   !endif
  13.   !set liste_class=
  14.   !set liste_program=
  15.   !set liste_course=
  16.   !for c in $(subclass$cnt)
  17.    !set name=!defof class_description in wimshome/log/classes/$c/.def
  18.    !set type=!defof class_type in wimshome/log/classes/$c/.def
  19.    !set type_name=!defof class_typename in wimshome/log/classes/$c/.def
  20.    !if $cnt=3
  21.     !set t_=supervisor
  22.     !set u_=supervisor
  23.    !else
  24.     !set t_=participant
  25.     !set u_=$wims_user
  26.    !endif
  27.    !set list_class=class,program,course
  28.    !if $name!=$empty
  29.     !for  tt in $list_class
  30.      !if $type_name=$tt
  31.       !set liste_$tt=!append line $name,$t_,$c,$u_ to $(liste_$tt)
  32.      !endif
  33.     !next
  34.    !endif
  35.   !next c
  36.   !if $cnt=1
  37.    !set word_class=$CL_otherNames
  38.   !endif
  39.   !default word_class=$(CL_Names[2..-1])
  40.   <ul class="wims_subclasses"><!--wims_subclasses-->
  41.   !for tt = 3 to 1 step -1
  42.    !set liste=!sort line $(liste_$(list_class[$tt]))
  43.    !set liste_cnt=!linecnt $liste
  44.    !if $liste_cnt > 0
  45.     !reset aux
  46.     !if $tt=3 and $class_type< 4
  47.      !set aux=$arr<span class="wims_classes_direct_class">$wims_classname ($(CL_Name[2]))</span>
  48.     !else
  49.      !if $class_type < 4 and $tt=3
  50.       !set aux=$(CL_otherNames[1])
  51.      !endif
  52.     !endif
  53.     !if $tt=3 and $class_type< 4
  54.      $aux
  55.     !endif
  56.     !if $tt=3 and $class_type< 4
  57.    <ul><!--1-->
  58.     !endif
  59.     !for j = 1 to $liste_cnt
  60.      !set parent_c=!defof class_parent in wimshome/log/classes/$(liste[$j;3])/.def
  61.      !if ($class_type < 4 and $tt=3) or $tt iswordof 1 2 or ($tt=3 and $parent_c notitemof $(liste_class[$j;3]),$(liste_program[$j;3]))
  62.       !if $class_type < 4 and $class_typename!=group
  63.       !endif
  64.       <li> $arr <span class="wims_classes_direct_$(list_class[$tt])">
  65.       !href module=adm/class/classes&type=auth$(liste[$j;2])&class=$(liste[$j;3])&auth_user=$(liste[$j;4]) $(liste[$j;1])
  66.       ($(CL_Name[$tt+1]))</span>
  67.      !endif
  68.      !set c=$(liste[$j;3])
  69.      !set sub_=!record 0 of wimshome/log/classes/$c/courses
  70.      !set sub_cnt=!linecnt $sub_
  71.      !if $sub_cnt>0
  72.       <ul><!--2-->
  73.       !for k_ =1 to $sub_cnt
  74.        !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
  75.        !set split=!replace internal / by , in $(sub_[$k_;1])
  76.        !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
  77.        !set name_c=!defof class_description in wimshome/log/classes/$parent_c/.def
  78.        !if  optional iswordof $progstyle
  79.          !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
  80.        !endif
  81.        !if mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit or $wims_user=supervisor
  82.         <li> &nbsp; $arr&nbsp;
  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.       !next k_
  90.        </ul><!--2-->
  91.      !endif
  92.     !next j
  93.     !if  $tt=3 and $class_type< 4
  94.    </ul><!--1-->
  95.   !endif
  96.    !endif
  97.   !next tt
  98. </ul><!--wims_subclasses-->
  99.  !endif
  100. !next cnt
  101.  
  102. !if $class_mixed_external_auth!=2 and $subclasscnt2>0
  103.  !if $insc!=yes
  104.   !href module=home&cmd=new&insc=yes $U_inscription2
  105.  !else
  106.   $U_inscription1
  107.   !for c in $subclass2
  108.    !set name=!defof class_description in wimshome/log/classes/$c/.def
  109.    !href module=adm/class/reguser&class=$c $name
  110.    &nbsp;
  111.   !next c
  112.   <p>
  113.   !href module=home&cmd=new $wims_name_back2
  114.  !endif
  115.  <p>
  116. !endif
  117.  
  118. !if $supervisable=yes and \
  119.         ($wims_user=supervisor or $wims_class=$wims_superclass)
  120.  !href module=adm/class/classes&type=supervisor&superclass=$wims_class $U_clickhere
  121.  $U_supervise
  122. &nbsp;
  123. <p>
  124.  !ifval $class_type!=4
  125.   !href module=adm/class/regclass $wims_name_classcreate
  126.  !endif
  127.  <p>
  128. !endif