Subversion Repositories wimsdev

Rev

Rev 10980 | Rev 10984 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10980 Rev 10981
Line 1... Line 1...
1 
##create teacherlist and .teacherlist_external at all levels
 1 
##create teacherlist and .teacherlist_external at all levels
2 
## le paramètre est la classe
 2 
## le parametre est la classe
3 
 
 3 
 
4 
uclass=$wims_read_parm
 4 
uclass=$wims_read_parm
5 
superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def
 5 
superclass=!defof class_superclass in wimshome/log/classes/$uclass/.def
6 
!default superclass=$wims_superclass
 6 
!default superclass=$wims_superclass
7 
!default uclass=$wims_superclass
 7 
!default uclass=$wims_superclass
Line 33... Line 33...
33 
  US_=!defof user_supervise in $basedir/.users/$t
 33 
  US_=!defof user_supervise in $basedir/.users/$t
34 
  EXT_=!defof user_external_auth in $basedir/.users/$t
 34 
  EXT_=!defof user_external_auth in $basedir/.users/$t
35 
  !if $superclass=$uclass or $uclass isitemof $US_
 35 
  !if $superclass=$uclass or $uclass isitemof $US_
36 
   U_=!defof user_lastname,user_firstname in $basedir/.users/$t
 36 
   U_=!defof user_lastname,user_firstname in $basedir/.users/$t
37 
   !appendfile $basedirr/.teacherlist.1 $U_,$t
 37 
   !appendfile $basedirr/.teacherlist.1 $U_,$t
- 
 
 38 
   !if $EXT_!=$empty
- 
 
 39 
     !appendfile $basedirr/.teacherlist_external.1 $EXT_:$t
- 
 
 40 
   !endif
38 
   !for l in $US_
 41 
   !for l in $US_
- 
 
 42 
!!teacherlist has not the same status in the superclass (every teacher)
- 
 
 43 
!! and in the subclasses (supervise teachers )
39 
     !if _$superclass isin _$US_
 44 
     !if $l notwordof $superclass $uclass
40 
       !appendfile $basedir0/$l/.teacherlist.1 $U_,$t
 45 
       !appendfile $basedir0/$l/.teacherlist.1 $U_,$t
41 
       !if $EXT_!=$empty
 46 
       !if $EXT_!=$empty
42 
         !appendfile $basedir0/$l/.teacherlist_external.1 $EXT_:$t
 47 
         !appendfile $basedir0/$l/.teacherlist_external.1 $EXT_:$t
43 
       !endif
 48 
       !endif
44 
       !set tmp=!append item $l to $tmp
 49 
       !set tmp=!append item $l to $tmp
45 
     !endif
 50 
     !endif
46 
   !next
 51 
   !next
47 
 !endif
 - 
 
48 
 !if $EXT_!=$empty
 - 
 
49 
   !appendfile $basedirr/.teacherlist_external.1 $EXT_:$t
 - 
 
50 
 !endif
 52 
 !endif
51 
!next t
 53 
!next t
52 
!set tmp=!listuniq $tmp,$uclass,$superclass
 54 
!set tmp=!listuniq $tmp,$uclass
- 
 
 55 
!set tmp=!nonempty items $tmp
53 
!for t in $tmp
 56 
!for t in $tmp
54 
  !if $t!=$empty
 - 
 
55 
    !sh sort -f $basedir02/$t/.teacherlist.1 | grep . >$basedir02/$t/.teacherlist\
 57 
    !sh sort -f $basedir02/$t/.teacherlist.1 | uniq | grep . >$basedir02/$t/.teacherlist\
56 
       rm -f $basedir02/$t/.teacherlist.1 >/dev/null
 58 
       rm -f $basedir02/$t/.teacherlist.1 >/dev/null
57 
    !sh sort -f $basedir02/$t/.teacherlist_external.1 | grep . >$basedir02/$t/.teacherlist_external\
 59 
    !sh sort -f $basedir02/$t/.teacherlist_external.1 | uniq | grep . >$basedir02/$t/.teacherlist_external\
58 
  rm -f $basedir02/$t/.teacherlist_external.1 >/dev/null
 60 
  rm -f $basedir02/$t/.teacherlist_external.1 >/dev/null
59 
  !endif
 - 
 
60 
!next
 61 
!next
61 
 
 62 
 
62 
!reset tmp
 63 
!reset tmp