Rev 16126 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!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
!if $(don[1])=class
!read adm/class/graphclsprog $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
!if $(don[1])=course
!href module=adm/class/reguser&class=$cls1&user_auth=$u_&subclass=yes $(don[2]) (inscription)
!else
$(don[2])
!endif
!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
!if $(don[1])=course
!href module=adm/class/reguser&class=$cls2&user_auth=$u_&subclass=yes $(don[2])
!else
$(don[2])
!endif
!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
!if $(don[1])=course
!href module=adm/class/reguser&class=$cls3&user_auth=$u_&subclass=yes $(don[2]) (inscription)
!else
$(don[2])
!endif
!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>