Subversion Repositories wimsdev

!default CL_Name=$CL_Names

!set arr=--->

!if $supervisable=yes

 !read subclasses_user.phtml

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

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

 !endif

!endif

<p>

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

  !if $supervisable!=yes

   $U_gotoclass

  !else

   $(U_gotoclass1)

  !endif

!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> $arr <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> &nbsp; $arr&nbsp;

        <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

      !next k_

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

       !if $c=$wims_class

        !goto end

     !endif

    !next

!endif

:end

!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

  $U_inscription1

  !for c in $subclass2

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

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

    

  !next c

  <p>

  !href module=home&cmd=new $wims_name_back2

 !endif

 <p>

!endif

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

   !set wims_ref_class=wims_button

   !href module=adm/class/regclass $wims_name_classcreate

!endif