Subversion Repositories wimsdev

!set statut=!line 1 of $wims_read_parm

!set compsup=!line 2 to -1 of $wims_read_parm

!set compsup1=!column 2 to -1 of $compsup

!set col1=!column 1 of $compsup1

!set col1=!listuniq $col1

!set col1cnt=!itemcnt $col1

  <ul class="wims_subclasses">

 !for j1=1 to $col1cnt

   !set cls1=$wims_superclass/$(col1[$j1])

   !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def

   <li><span class="wims_classes_direct_$(don[1])">

     !if $cls1 isitemof $(user_$statut)

       !if $statut=supervise

         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])

       !else

         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])

       !endif

     !else

        $(don[2])

     !endif

     </span>

    !set compsup2=!select $compsup1 where column 1=$(col1[$j1])

    !set col2=!column 2 of  $compsup2

    !set col2=!listuniq $col2

    !set col2cnt=!itemcnt $col2

    !if $col2cnt>0

      !set compsup2=!column 2 to -1 of $compsup2

      <ul class="wims_subclasses">

      !for j2=1 to $col2cnt

        !set cls2=!nospace $cls1/$(col2[$j2])

        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def

         <li><span class="wims_classes_direct_$(don[1])">

         !if $cls2 isitemof $(user_$statut)

           !if $statut=supervise

             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])

           !else

             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])

           !endif

         !else

           $(don[2])

         !endif

         </span>

        !set compsup3=!select $compsup2 where column 1=$(col2[$j2])

        !set col3=!column 2 of  $compsup3

        !set col3=!listuniq $col3

        !set col3cnt=!itemcnt $col3

        !if $col3cnt!=0

          <ul>

          !set compsup3=!column 2 to -1 of $compsup3

          !for j3=1 to $col3cnt

            !set cls3=!nospace $cls2/$(col3[$j3])

            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def

             <li><span class="wims_classes_direct_$(don[1])">

              !if $cls3 isitemof $(user_$statut)

                !if $statut=supervise

                  !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])

                !else

                  !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])

                !endif

                ($(don[3]))

              !else

                $(don[2])

              !endif

              </span>

             </li>

          !next j3

          </ul>

        !endif col3cnt

      </li>

     !next j2

    </ul>

   !endif col2cnt

   </li>

 !next j1

 </ul>