Subversion Repositories wimsdev

##create teacherlist and .teacherlist_external at all levels

## le parametre est la classe

uclass=$wims_read_parm

!if $uclass!=$empty

  superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def

!endif

!default superclass=$wims_superclass

!default uclass=$wims_superclass

!!! je ne comprends pas : l'indexation ne se fait pas sinon lorsqu'un enseignant s'inscrit

!default superclass=$uclass

!default wims_superclass=$class

!!!

!if $superclass=$empty

  !exit

!endif

!if $wims_superclass!=$empty and $superclass!=$wims_superclass and $wims_ismanager<2

  !exit

!endif

basedir=wimshome/log/classes/$superclass

basedir2=$wims_home/log/classes/$superclass

basedirr=wimshome/log/classes/$uclass

basedirr2=$wims_home/log/classes/$uclass

basedir0=wimshome/log/classes

basedir02=$wims_home/log/classes

tlist=!sh cd $basedir2/.users\

  grep -l user_supervisable=yes *

tlist=!words2items $tlist

!set tmp=

!writefile $basedirr/.teacherlist.1

!writefile $basedirr/.teacherlist_external.1

!for t in $tlist

  US_=!defof user_supervise in $basedir/.users/$t

  EXT_=!defof user_external_auth in $basedir/.users/$t

  !if $superclass=$uclass or $uclass isitemof $US_

    U_=!defof user_lastname,user_firstname in $basedir/.users/$t

    !appendfile $basedirr/.teacherlist.1 $U_,$t

    !if $EXT_!=$empty

      !appendfile $basedirr/.teacherlist_external.1 $EXT_:$t

    !endif

    !for l in $US_

      !!teacherlist has not the same status in the superclass (every teacher)

      !! and in the subclasses (supervise teachers )

      !if $l notwordof $superclass $uclass

        !appendfile $basedir0/$l/.teacherlist.1 $U_,$t

        !if $EXT_!=$empty

          !appendfile $basedir0/$l/.teacherlist_external.1 $EXT_:$t

        !endif

        !set tmp=!append item $l to $tmp

      !endif

    !next

  !endif

!next t

!set tmp=!listuniq $uclass,$tmp

!set tmp=!nonempty items $tmp

!for t in $tmp

  !sh sort -f $basedir02/$t/.teacherlist.1 | uniq | grep . >$basedir02/$t/.teacherlist\

    rm -f $basedir02/$t/.teacherlist.1 >/dev/null

  !sh [ -f $basedir02/$t/.teacherlist_external.1 ] && sort -f $basedir02/$t/.teacherlist_external.1 | uniq | grep . >$basedir02/$t/.teacherlist_external\

    rm -f $basedir02/$t/.teacherlist_external.1 >/dev/null

!next

!reset tmp