!if $wims_superclass=$empty
!let wims_superclass=$wims_class
!endif
!set wims_realuser
=!defof wims_realuser in wimshome
/$wims_sesdir/var.stat
!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
!if $wims_user=supervisor and ($wims_realuser=supervisor or $wims_realuser=SUPERVISOR)
!set user_supervise=!column 1 of $levels\
$classes\
$progs\
$courses\
$icourses
!set user_supervise=!nonempty items $user_supervise
!set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
!else
!let user_supervise
=!defof user_supervise in wimshome
/log/classes
/$wims_superclass/.users
/$wims_realuser
!endif
!! ----------- definition des droits de connexion supervisor
!!! as a supervisor
!for cls in $user_supervise
!if $wims_class isin $cls
!let tmp=!replace internal / by , in $cls
!if $tmp!=$empty
!let compsup=!append line $tmp to $compsup
!endif
!endif
!let compsup
=!sh
echo "$compsup" | sort | uniq
;
!! better sorting for groupement (for teachers)
!if $compsup!=$empty and $class_type=2
!set compsup_=!replace internal $wims_class, by in $compsup
!set compsup_=!linestoitems $compsup_
!set compsup_
=!sort numeric items
$compsup_
!set compsup_=!makelist $wims_class/x for x in $compsup_
!set compsup=!itemstolines $compsup_
!set compsup=!replace internal / by , in $compsup
!endif
!if $user_supervisable=yes and $wims_superclass isitemof $user_supervise and $wims_superclass=$wims_class
!let don
=!defof class_typename
,class_description
,class_supervisor in wimshome
/log/classes
/$classrad/.def
<ul class="wims_subclasses"><li><span class="wims_classes_direct_portal">
!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass&auth_user=supervisor $class_description (supervisor)
</span></li>
</ul>
!endif
!let user_participate
=!defof user_participate in wimshome
/log/classes
/$wims_superclass/.users
/$wims_realuser
!if $compsup!=$empty
!let sup_details=open
!endif
<details $sup_details>
<summary>
!if $class_type=3 and $class_typename!=level
!!in a class
$U_gotoclass31
!else
$U_gotoclass3
!endif
</summary>
!let user_supervise_=$user_supervise
!read adm/class/graphclass supervise\
$compsup
!if $compsup=$empty and $courses_right=$empty
$U_nogotoclass
!endif
</details>
!if $user_participate=$empty or $wims_class notin $user_participate
!endif
!!! as a student
<br>
!changeto subclasses_user.phtml
!! no more in
use. use directly subclasses_user
.phtml
file
!if $class_type=3 and $class_typename!=level
!!in a class
$U_gotoclass11
!else
$U_gotoclass1
!endif
!for cls in $user_participate
!if $wims_class isin $cls
!let tmp=!replace internal / by , in $cls
!if $tmp!=$empty
!let compsup=!append line $tmp to $compsup
!endif
!endif
!let compsup
=!sh
echo "$compsup" | sort | uniq
;
!let user_participate_=$user_participate
!read adm/class/graphclass participate\
$compsup