Subversion Repositories wimsdev

Rev

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