Subversion Repositories wimsdev

Rev

Rev 1429 | Rev 1641 | 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.  
  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"><!--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=$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
  53.     !endif
  54.   !if  $tt=3 and $class_type< 4
  55.    <ul><!--1-->
  56.   !endif
  57.     !for j = 1 to $liste_cnt
  58.      !if ($class_type < 4 and $tt=3) or $tt iswordof of 1 2
  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 name_c=!defof class_description in wimshome/log/classes/$parent_c/.def
  73.        <li> &nbsp; $arr&nbsp;
  74.        <span class="wims_classes_direct_course">
  75.        !href module=adm/class/classes&type=auth$t_&class=$wims_superclass/$(sub_[$k_;1])&auth_user=$u_ $(sub_[$k_;3])
  76.        ($(CL_Name[4]))
  77.        </span>
  78.       !next k_
  79.        </ul><!--2-->
  80.      !endif
  81.     !next j
  82.     !if  $tt=3 and $class_type< 4
  83.    </ul><!--1-->
  84.   !endif
  85.    !endif
  86.   !next tt
  87. </ul><!--wims_subclasses-->
  88.  !endif
  89. !next cnt
  90.  
  91. !if $subclasscnt2>0
  92.  !if $insc!=yes
  93.   !href module=home&cmd=new&insc=yes $U_inscription2
  94.  !else
  95.   $U_inscription1
  96.   !for c in $subclass2
  97.    !set name=!defof class_description in wimshome/log/classes/$c/.def
  98.    !href module=adm/class/reguser&class=$c $name
  99.    &nbsp;
  100.   !next c
  101.   <p>
  102.   !href module=home&cmd=new $U_Back
  103.  !endif
  104.  <p>
  105. !endif
  106.  
  107. !if $supervisable=yes and \
  108.         ($wims_user=supervisor or $wims_class=$wims_superclass)
  109.  !href module=adm/class/classes&type=supervisor&superclass=$wims_class $U_clickhere
  110.  $U_supervise
  111. &nbsp;
  112.  !ifval $class_type!=4
  113.   !href module=adm/class/regclass $U_creatclass
  114.  !endif
  115.  <p>
  116. !endif
  117.