Subversion Repositories wimsdev

Rev

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