Subversion Repositories wimsdev

!exit

!if $wims_user!=supervisor

 !!exit

!endif

!set list=$(wims_read_parm[;1])

!set statut=$(wims_read_parm[;2])

!let compsup=$empty

!for cls in $list

  !let tmp=!replace internal / by , in $cls

  !let nb=!itemcnt $tmp

  !if $nb=1

    !let compsup=$tmp

  !endif

  !for l=2 to $nb

    !let t=!replace internal , by / in $(tmp[1 to $l])

    !let compsup=!append line $t to $compsup

  !next l

!next cls

!let compsup=!sh echo "$compsup" | sort | uniq;

!let compsup=!lines2items $compsup

!let compsup=!nospace $compsup

!let tab=0

!for cls in $compsup

  !if /0_ isin $(cls)_

    !goto endfor

  !endif

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

  !let t=!positionof item $(don[1]) in level,class,program,course

  !if $t=$empty

    !! <span class="wims_classes_direct_$(don[1])"> $(CL_Name[6]) :

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

    !! </span>

    !goto endfor

  !endif

  !if $t=3

    !let ta=2

  !else

    !let ta=$t

  !endif

  !if $tab!=$ta

    !if $tab>$ta

      !for k=$ta+1 to $tab

        </ul>

      !next k

    !else

      !for k=$tab+1 to $ta

      <ul class="wims_subclasses">

      !next k

    !endif

 !endif

 !let tab=$ta

 !if $t=4

    !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def

    !if $tmp=program

     !let t=5

    !endif

 !endif

 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :

 !if $cls notitemof $list

    $(don[2])

 !else

    !set cls_pos=!positionof item $cls in $list

    !if $cls_pos!=$empty

      !set cls_statut=$(statut[$cls_pos])

      !if $cls_statut=supervisor

        !href cmd=reply&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])

        ($cls_statut)

      !else

        !href cmd=reply&type=authparticipant&class=$cls&auth_user=$cls_statut $(don[2])

      !endif

    !endif

  !endif

  ($(don[3])) </span> </li>

  :endfor

!next cls

!for k=1 to $tab

  </ul>

!next k