Subversion Repositories wimsdev

Rev

Rev 4996 | Rev 5030 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4996 czzmrn 1
##create teacherlist and .teacherlist_external at all levels
4692 bpr 2
## le paramètre est la classe
3
 
4
uclass=$wims_read_parm
5
superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def
20 reyssat 6
!default superclass=$wims_superclass
4692 bpr 7
!default uclass=$wims_superclass
5028 bpr 8
!!! je ne comprends pas : l'indexation ne se fait pas sinon lorsqu'un enseignant s'inscrit
9
!default superclass=$uclass
10
!default wims_superclass=$class
11
!!!
20 reyssat 12
!if $superclass=$empty
13
 !exit
14
!endif
15
!if $wims_superclass!=$empty and $superclass!=$wims_superclass and $wims_ismanager<2
16
 !exit
17
!endif
18
 
19
basedir=wimshome/log/classes/$superclass
20
basedir2=$wims_home/log/classes/$superclass
4692 bpr 21
basedirr=wimshome/log/classes/$uclass
22
basedirr2=$wims_home/log/classes/$uclass
20 reyssat 23
tlist=!sh cd $basedir2/.users\
24
	grep -l user_supervisable=yes *
25
tlist=!words2items $tlist
26
 
4692 bpr 27
!writefile $basedirr/.teacherlist.1
4996 czzmrn 28
!writefile $basedirr/.teacherlist_external.1
20 reyssat 29
!for t in $tlist
4692 bpr 30
  US_=!defof user_supervise in $basedir/.users/$t
31
  !if $superclass=$uclass or $uclass isitemof $US_
32
   U_=!defof user_lastname,user_firstname in $basedir/.users/$t
33
   !appendfile $basedirr/.teacherlist.1 $U_,$t
34
 !endif
4996 czzmrn 35
  EXT_=!defof user_external_auth in $basedir/.users/$t
36
  !if $EXT_!=$empty
37
   !appendfile $basedirr/.teacherlist_external.1 $EXT_,$t
38
  !endif
20 reyssat 39
!next t
40
 
4692 bpr 41
!sh sort -f $basedirr2/.teacherlist.1 | grep . >$basedirr2/.teacherlist\
42
  rm -f $basedirr2/.teacherlist.1 >/dev/null
20 reyssat 43
 
4996 czzmrn 44
!sh sort -f $basedirr2/.teacherlist_external.1 | grep . >$basedirr2/.teacherlist_external\
45
  rm -f $basedirr2/.teacherlist_external.1 >/dev/null
46