$U_gotoclass3
!if $wims_superclass=$empty
!let wims_superclass=$wims_class
!endif
!set wims_realuser
=!defof wims_realuser in wimshome
/$wims_sesdir/var.stat
!set user_supervise
=!defof user_supervise in wimshome
/log/classes
/$wims_superclass/.users
/$wims_realuser
!set classes
=!record
0 of wimshome
/log/classes
/$wims_class/classes
!set classcnt=!linecnt $classes
!set progs
=!record
0 of wimshome
/log/classes
/$wims_class/programs
!set progcnt=!linecnt $progs
!if $classcnt+$progcnt>=1
!set courses
=!record
0 of wimshome
/log/classes
/$wims_class/courses
!set coursecnt=!linecnt $courses
!endif
!set icourses
=!record
0 of wimshome
/log/classes
/$wims_class/icourses
!set icoursecnt=!linecnt $icourses
!if $[$classcnt+$progcnt+$coursecnt+$icourses]=0
!goto nosubclass
!endif
!let user_supervise
=!defof user_supervise in wimshome
/log/classes
/$wims_superclass/.users
/$wims_user
!if $wims_user=supervisor and $wims_realuser=supervisor
!set user_supervise=!column 1 of $classes\
$progs\
$courses
!set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
!endif
!! ----------- definition des droits de connexion supervisor
<br/>
!let compsup=$empty
!for cls in $user_supervise
!let tmp=!replace internal / by , in $cls
!let nb=!itemcnt $tmp
!for l=2 to $nb
!let t=!replace internal , by / in $(tmp[1 to $l])
!let compsup=!append line $t to $compsup
!let compsup
=!sh
echo "$compsup" | sort | uniq
;
!let compsup=!lines2items $compsup
!let compsup=!nospace $compsup
!let tab=0
!for cls in $compsup
!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=3
!let ta=2
!else
!let ta=$t
!endif
!if $tab!=$ta
!if $tab>$ta
!for k=$ta+1 to $tab
</ul>
!else
!for k=$tab+1 to $ta
<ul class="wims_subclasses">
!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 $user_supervise
$(don[2])
!else
!href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
!endif
($(don[3])) </span> </li>
!for k=1 to $tab
</ul>