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 |
|
35 | !!!if $tn=program |
36 |
|
36 | !! clist=$class_parent |
37 |
|
37 | !!!endif |
38 | !endif |
38 | !endif |
39 | clist=!listuniq |
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 |
|
46 | clist=$supclass,$uclass |
47 | !else |
47 | !else |
48 |
|
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 |