!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 levels
=!record
0 of wimshome
/log/classes
/$wims_class/levels
!set levelcnt=!linecnt $levels
!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
!let user_supervise
=!defof user_supervise in wimshome
/log/classes
/$wims_superclass/.users
/$wims_realuser !if $wims_user=supervisor and $wims_realuser=supervisor
!set user_supervise=!column 1 of $levels\
$classes\
$progs\
$courses
!set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
!endif
!! ----------- definition des droits de connexion supervisor
!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
!read classgraph.phtml supervise,$compsup