Rev 12981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12981 | Rev 14336 | ||
---|---|---|---|
Line 30... | Line 30... | ||
30 | !exit |
30 | !exit |
31 | !endif |
31 | !endif |
32 | !endif |
32 | !endif |
33 | 33 | ||
34 | !if $passs!=$empty |
34 | !if $passs!=$empty |
35 | passs=!text select $char_passwd in $passs |
35 | passs=!text select $char_passwd in $passs |
36 | passlen=!charcnt $passs |
36 | passlen=!charcnt $passs |
37 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
37 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
38 | error=bad_password |
38 | error=bad_password |
39 | !exit |
39 | !exit |
40 | !endif |
40 | !endif |
41 | !else |
41 | !else |
42 | passs=!defof user_password in $Level__/supervisor |
42 | passs=!defof user_password in $Level__/supervisor |
43 | !endif |
43 | !endif |
44 | 44 | ||
45 | !if $newclasses=$empty or $avcnt<$newcnt |
45 | !if $newclasses=$empty or $avcnt<$newcnt |
46 | error=icourse_full |
46 | error=icourse_full |
47 | !exit |
47 | !exit |
48 | !endif |
48 | !endif |
49 | 49 | ||
50 | 1=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$s_ |
50 | 1=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$s_ |
51 | ac_su_list= |
51 | ac_su_list= |
52 | !if $1!=yes |
52 | !if $1!=yes |
53 | s_=supervisor |
53 | s_=supervisor |
54 | ac_su_class= |
54 | ac_su_class= |
55 | !else |
55 | !else |
56 | 1=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$s_ |
56 | 1=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$s_ |
57 | !if $1!=yes |
57 | !if $1!=yes |
58 | name=$s_ |
58 | name=$s_ |
59 | error=not_supervisable |
59 | error=not_supervisable |
60 | !exit |
60 | !exit |
61 | !endif |
61 | !endif |
62 | ac_su_class=yes |
62 | ac_su_class=yes |
63 | !endif |
63 | !endif |
64 | 64 | ||
65 | !read adm/class/userdef classes,$wims_superclass,$s_ |
65 | !read adm/class/userdef classes,$wims_superclass,$s_ |
66 | userdef_save=$userdef |
66 | userdef_save=$userdef |
67 | sup_save=$s_ |
67 | sup_save=$s_ |
68 | class_password= |
68 | class_password= |
69 | !bound visibility within 1,2 default 1 |
69 | !bound visibility within 1,2 default 1 |
70 | !for i=1 to $newcnt |
70 | !for i=1 to $newcnt |
71 | userdef=$userdef_save |
71 | userdef=$userdef_save |
72 | cadd_Supervisor=$sup_save |
72 | cadd_Supervisor=$sup_save |
73 | sadd_firstname=!defof user_firstname in $userdef |
73 | sadd_firstname=!defof user_firstname in $userdef |
74 | sadd_lastname=!defof user_lastname in $userdef |
74 | sadd_lastname=!defof user_lastname in $userdef |
75 | sadd_email=!defof user_email in $userdef |
75 | sadd_email=!defof user_email in $userdef |
76 | cadd_email=$sadd_email |
76 | cadd_email=$sadd_email |
77 | cadd_superclass=$wims_superclass |
77 | cadd_superclass=$wims_superclass |
78 | cadd_parent=$Level_ |
78 | cadd_parent=$Level_ |
79 | cadd_password=$pass |
79 | cadd_password=$pass |
80 | sadd_password=$passs |
80 | sadd_password=$passs |
81 | cadd_secure=$sechost |
81 | cadd_secure=$sechost |
82 | cadd_type=1 |
82 | cadd_type=1 |
83 | cadd_typename=course |
83 | cadd_typename=course |
84 | cadd_description=!item $i of $titles |
84 | cadd_description=!item $i of $titles |
85 | ac_newclass=!item $i of $newclasses |
85 | ac_newclass=!item $i of $newclasses |
86 | ac_su_list=!listunion $ac_su_list and $Level_/$ac_newclass |
86 | ac_su_list=!listunion $ac_su_list and $Level_/$ac_newclass |
87 | !read adm/class/addclass $Level_/$ac_newclass |
87 | !read adm/class/addclass $Level_/$ac_newclass |
88 | !setdef !set class_visibility=$visibility in $Level_/$ac_newclass/.def |
88 | !setdef !set class_visibility=$visibility in $Level_/$ac_newclass/.def |
89 | !setdef n_sup=$Level_ in $Level__/$ac_newclass/neighbors |
89 | !setdef n_sup=$Level_ in $Level__/$ac_newclass/neighbors |
90 | n_sup=!defof n_sup in $Level__/neighbors |
90 | n_sup=!defof n_sup in $Level__/neighbors |
91 | n_sup=!listunion $n_sup and $Level_/$ac_newclass |
91 | n_sup=!listunion $n_sup and $Level_/$ac_newclass |
92 | !setdef n_sup=$n_sup in $Level__/neighbors |
92 | !setdef n_sup=$n_sup in $Level__/neighbors |
93 | !read adm/class/addshare $Level_, $Level_/$ac_newclass\ |
93 | !read adm/class/addshare $Level_, $Level_/$ac_newclass\ |
94 |
|
94 | exo,sheet,exam,doc,vote,livret,seq |
95 | 95 | ||
96 | !next i |
96 | !next i |
97 | 97 | ||
98 | !if $ac_su_class=yes |
98 | !if $ac_su_class=yes |
99 | ac_su_list2=!defof user_supervise in $userdir/$sup_save |
99 | ac_su_list2=!defof user_supervise in $userdir/$sup_save |
100 | ac_su_list=!listunion $ac_su_list and $ac_su_list2 |
100 | ac_su_list=!listunion $ac_su_list and $ac_su_list2 |
101 | !setdef !set user_supervise=$ac_su_list in $userdir/$sup_save |
101 | !setdef !set user_supervise=$ac_su_list in $userdir/$sup_save |
102 | !endif |
102 | !endif |
103 | 103 |