Subversion Repositories wimsdev

!default CL_Name=$CL_Names

!if $supervisable=yes

 !read subclasses_user.phtml

 !if ($wims_user=supervisor or $wims_class=$wims_superclass)

   !if $class_type notwordof 2

    !href module=adm/class/classes&type=supervisor&superclass=$wims_class $U_supervise

   !else

     $name_gotosupervise

   !endif

 !endif

!endif

!if $(subclasscnt1)>0 and $insc!=yes

<p>

  !if $supervisable!=yes

   $U_gotoclass

  !else

   $(U_gotoclass1)

  !endif

</p>

!endif

!if $auth_method isitemof $auth_method_list and $wims_user!=supervisor

      !set u_=$wims_external_auth

!else

      !set u_=$wims_user

!endif

!if $subclass1=$empty

  !goto end

!endif

  <ul class="wims_subclasses"><!--wims_subclasses-->

!reset alreadyseen

!if $wims_class!=$wims_superclass

   !set subclass1=$wims_class,$subclass1

!endif

!for c in $subclass1

     !set name=!defof class_description in wimshome/log/classes/$c/.def

     !set type=!defof class_type in wimshome/log/classes/$c/.def

     !set type_name=!defof class_typename in wimshome/log/classes/$c/.def

     !read adm/class/initclass $c,auth

     !set t_=participant

     !set type_class=!defof class_type in wimshome/log/classes/$class/.def

     !if $c notitemof $alreadyseen

      <li>  <span class="wims_classes_direct_$type_name">

      !if $c!=$wims_class

      !href module=adm/class/classes&type=authparticipant&class=$c&auth_user=$u_ $name

      !else

        $name

      !endif

      ($(CL_Name[2]))</span>

     !set alreadyseen=!append item $c to $alreadyseen

     !set sub_=!record 0 of wimshome/log/classes/$c/courses

     !set sub_cnt=!linecnt $sub_

     !if $sub_cnt>0

       <ul><!--2-->

      !for k_ =1 to $sub_cnt

       !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def

       !set split=!replace internal / by , in $(sub_[$k_;1])

       !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def

       !set name_c=!defof class_description in wimshome/log/classes/$parent_c/.def

       !if  optional iswordof $progstyle

         !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user

       !endif

       !if $wims_superclass/$(sub_[$k_;1]) notitemof $alreadyseen and mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit or $wims_user=supervisor

        !set alreadyseen=!append item $wims_superclass/$(sub_[$k_;1]) to $alreadyseen

        <li>

        <span class="wims_classes_direct_course">

        !href module=adm/class/classes&type=auth$t_&class=$wims_superclass/$(sub_[$k_;1])&auth_user=$u_ $(sub_[$k_;3])

       ($(CL_Name[4]))

        </span>

        </li>

       !endif

       </li>

      !next k_

       </ul><!end--2-->

      !endif sub_cnt>0

        !if $c=$wims_class

         !goto end

        !endif

      !endif $c notitemof $alreadyseen

!next

:end

</ul>

!if $alreadyseen!=$empty

  !set subclass2=!listcomplement $alreadyseen in $subclass2

  !set subclasscnt2=!itemcnt $subclass2

!endif

!if $class_mixed_external_auth!=2 and $subclasscnt2>0

 !if $insc!=yes

  !href module=home&cmd=new&insc=yes $U_inscription2

 !else

<div>

  $U_inscription1

 <ul>

  !for c in $subclass2

   !set name=!defof class_description in wimshome/log/classes/$c/.def

   !set type=!defof class_typename in wimshome/log/classes/$c/.def

   <li> <span class="wims_classes_direct_$type">

!! wrong variable?

!!   !href module=adm/class/reguser&class=$c&auth_user=$u_ $name

   !href module=adm/class/reguser&class=$c&user_auth=$u_ $name

   </span></li>

    

  !next c

 </ul>

</div>

  !set wims_ref_class=wims_button

  !href module=home&cmd=new $wims_name_back2

 !endif

!endif

!if $supervisable=yes and ($wims_user=supervisor or $wims_class=$wims_superclass) and $class_type notwordof 3 4

<p>

   !set wims_ref_class=wims_button

   !href module=adm/class/regclass $wims_name_classcreate

</p>

!endif