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>