Subversion Repositories wimsdev

Rev

Rev 13211 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13211 Rev 13300
Line 30... Line 30...
30 
      !if $uclass isitemof $i
 30 
      !if $uclass isitemof $i
31 
        uclass=$class_parent
 31 
        uclass=$class_parent
32 
        !goto mkstart
 32 
        !goto mkstart
33 
      !endif
 33 
      !endif
34 
      tn=!defof class_typename in wimshome/log/classes/$class_parent/.def
 34 
      tn=!defof class_typename in wimshome/log/classes/$class_parent/.def
35 
      !if $tn=program
 35 
      !!!if $tn=program
36 
        clist=$class_parent
 36 
      !! clist=$class_parent
37 
      !endif
 37 
      !!!endif
38 
    !endif
 38 
    !endif
39 
    clist=!listuniq $clist,$uclass
 39 
    clist=!listuniq $uclass
40 
  !else
 40 
  !else
41 
    !if / isin $uclass
 41 
    !if / isin $uclass
42 
      class_lvl=!translate internal / to , in $uclass
 42 
      class_lvl=!translate internal / to , in $uclass
43 
      class_lvl=$(class_lvl[1])/$(class_lvl[2])
 43 
      class_lvl=$(class_lvl[1])/$(class_lvl[2])
44 
      !if $class_lvl=$uclass
 44 
      !if $class_lvl=$uclass
45 
        class_lvl=
 45 
        class_lvl=
46 
        clist=!listuniq $supclass,$clist,$uclass
 46 
        clist=$supclass,$uclass
47 
      !else
 47 
      !else
48 
        clist=!listuniq $supclass,$clist,$class_lvl,$uclass
 48 
        clist=$supclass,$class_lvl,$uclass
49 
      !endif
 49 
      !endif
50 
    !else
 50 
    !else
51 
      clist=!listuniq $supclass,$uclass
 51 
      clist=!listuniq $supclass,$uclass
52 
    !endif
 52 
    !endif
53 
  !endif
 53 
  !endif
Line 98... Line 98...
98 
      !if $user_external_auth!=$empty
 98 
      !if $user_external_auth!=$empty
99 
        userline_external=$user_external_auth:$u
 99 
        userline_external=$user_external_auth:$u
100 
      !endif
 100 
      !endif
101 
      !if $typename=course
 101 
      !if $typename=course
102 
        !readdef wimshome/log/classes/$uclass/.users/$u
 102 
        !readdef wimshome/log/classes/$uclass/.users/$u
- 
 
 103 
        !if $user_class=$empty
- 
 
 104 
          obl=!defof class_ocourses in wimshome/log/classes/$class_parent/.def
- 
 
 105 
          obl=!makelist $wims_superclass/x for x in $obl
- 
 
 106 
          !if $uclass isitemof $user_participate and $uclass notitemof $obl
- 
 
 107 
            user_class=!replace internal $supclass/ by in $class_parent
- 
 
 108 
            !setdef !set user_class=$user_class in wimshome/log/classes/$uclass/.users/$u
- 
 
 109 
          !endif
- 
 
 110 
        !endif
103 
        !if $user_class!=$empty
 111 
        !if $user_class!=$empty
104 
          !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
 112 
          !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
105 
          !if $userline_external!=$empty
 113 
          !if $userline_external!=$empty
106 
            !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
 114 
            !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
107 
          !endif
 115 
          !endif