Subversion Repositories wimsdev

!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

 !next l

!next cls

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

!let compsup=!lines2items $compsup

!let compsup=!nospace $compsup

!read classgraph.phtml supervise,$compsup