Subversion Repositories wimsdev

!reset compsup1 compsup2 compsup3

!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

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

!!program without icourses

!if $(don[1])=program and $col1cnt=0

  <ul class="wims_subclasses">

  !read adm/class/graphprog $wims_class

  </ul>

!endif

!if $col1cnt=0

  !exit

!endif

!set classrad=$wims_superclass

!while $classrad!=$wims_class

   !set classrad=$classrad/$col1

   !set lcnt=!linecnt $compsup1

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

    !set col1=!column 1 of $compsup1

    !set col1=!listuniq $col1

    !set col1cnt=!itemcnt $col1

!endwhile

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

!if $col1cnt=0 and $(don[1])!=program

  !exit

!endif

   <ul class="wims_subclasses">

  !if $(don[1])=program

      !read adm/class/graphprog $classrad

  !endif

  !for j1=1 to $col1cnt

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

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

     !reset tmp

     !if $(don[1])=course

        !set tmp=$ class="inline"

     !endif

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

     !reset tmp

     !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>

    !if $(don[1])=program

    <ul>

      !read adm/class/graphprog $cls1

    </ul>

    !endif

    !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

        !reset tmp

        !if $(don[1])=course

          !set tmp=$ class="inline"

        !endif

         <li$tmp><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>

        !if $(don[1])=program

          <ul>

           !read adm/class/graphprog $cls2

         </ul>

        !endif

        !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

            !reset tmp

            !if $(don[1])=course

              !set tmp=$ class="inline"

            !endif

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

             !reset tmp

              !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>

              !if $(don[1])=program

              <ul>

                !read adm/class/graphprog $cls3

              </ul>

              !endif

             </li>

          !next j3

          </ul>

        !endif col3cnt

      </li>

     !next j2

    </ul>

   !endif col2cnt

    </li>

   !endif

 !next j1

 </ul>