Subversion Repositories wimsdev

  l=!record $i of $indf

  l=!record $i of $indf

  c=!item 1 of $l

  c=!item 1 of $l

  !if NaN notin $[$c] and $c<10000

  !if NaN notin $[$c] and $c<10000

   ltest=!defof class_lang in wimshome/log/classes/$c/.def

   ltest=!defof class_lang in wimshome/log/classes/$c/.def

   !advance excnt

   !advance excnt

    laclasses=!append line $l to $laclasses

    laclasses=!append line $l to $laclasses

    !advance lacnt

    !advance lacnt

   !else

   !else

    listla=!append item $ltest to $listla

    listla=!append item $ltest to $listla

    !if $ltest=en

    !if $ltest=en

 !reset class_defined

 !reset class_defined

 class=!text remove . in $class

 class=!text remove . in $class

 !defread wimshome/log/classes/$class/.def

 !defread wimshome/log/classes/$class/.def

 !!#### la seconde condition pour entrer dans la classe en tant que supervisor :

 !!#### la seconde condition pour entrer dans la classe en tant que supervisor :

 !!#### le user est supervisor de cette classe, ou wims_realuser est supervisor ou vide (cas de l'administrateur) ou la classe est la classe test

 !!#### le user est supervisor de cette classe, ou wims_realuser est supervisor ou vide (cas de l'administrateur) ou la classe est la classe test

 !if $type=authsupervisor and ($class isitemof $wims_supervise or $wims_realuser=$empty or $wims_realuser=supervisor or /0/ isin $class/)

 !if $type=authsupervisor and ($class isitemof $wims_supervise or $wims_realuser=$empty or $wims_realuser=supervisor or /0/ isin $class/)

  !default auth_user=supervisor

  !default auth_user=supervisor

 !endif

 !endif

 !if $class_defined=yes and ($auth_user!=$empty or $auth_method isitemof $auth_method_list)

 !if $class_defined=yes and ($auth_user!=$empty or $auth_method isitemof $auth_method_list)

   !changeto var.auth

   !changeto var.auth

 !endif

 !endif

!endif

!endif