Rev 12981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12981 | Rev 14336 | ||
---|---|---|---|
Line 32... | Line 32... | ||
32 | !endif |
32 | !endif |
33 | 33 | ||
34 | 1=!defof user_exists in $userdir/$s_ |
34 | 1=!defof user_exists in $userdir/$s_ |
35 | 2=!defof class_defined in $classdir/$wims_read_parm/.def |
35 | 2=!defof class_defined in $classdir/$wims_read_parm/.def |
36 | !if $2!=yes |
36 | !if $2!=yes |
37 | error=mod_not_exist |
37 | error=mod_not_exist |
38 | !exit |
38 | !exit |
39 | !endif |
39 | !endif |
40 | !if $1!=yes |
40 | !if $1!=yes |
41 | s_=supervisor |
41 | s_=supervisor |
42 | !else |
42 | !else |
43 | 1=!defof user_supervisable in $userdir/$s_ |
43 | 1=!defof user_supervisable in $userdir/$s_ |
44 | !if $1!=yes |
44 | !if $1!=yes |
45 | name=$s_ |
45 | name=$s_ |
46 | error=not_supervisable |
46 | error=not_supervisable |
47 | !exit |
47 | !exit |
48 | !endif |
48 | !endif |
49 | !endif |
49 | !endif |
50 | !read adm/class/userdef classes,$wims_superclass,$s_ |
50 | !read adm/class/userdef classes,$wims_superclass,$s_ |
51 | cadd_Supervisor=$s_ |
51 | cadd_Supervisor=$s_ |
52 | tmp=!defof user_firstname,user_lastname,user_email in $userdef |
52 | tmp=!defof user_firstname,user_lastname,user_email in $userdef |
53 | !distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password |
53 | !distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password |
Line 56... | Line 56... | ||
56 | sadd_password=$passs |
56 | sadd_password=$passs |
57 | modclass_slist=!listunion firstname,lastname,email and $modclass_slist |
57 | modclass_slist=!listunion firstname,lastname,email and $modclass_slist |
58 | 58 | ||
59 | !read adm/gateway/delsup $wims_read_parm |
59 | !read adm/gateway/delsup $wims_read_parm |
60 | !if $s_!=supervisor |
60 | !if $s_!=supervisor |
61 | suplist=!defof user_supervise in $userdir/$s_ |
61 | suplist=!defof user_supervise in $userdir/$s_ |
62 | suplist=!listunion $suplist and $wims_superclass/$wims_read_parm |
62 | suplist=!listunion $suplist and $wims_superclass/$wims_read_parm |
63 | !setdef !set user_supervise=$suplist in $userdir/$s_ |
63 | !setdef !set user_supervise=$suplist in $userdir/$s_ |
64 | !endif |
64 | !endif |
65 | 65 | ||
66 | !read adm/class/modclass $wims_superclass/$wims_read_parm |
66 | !read adm/class/modclass $wims_superclass/$wims_read_parm |
67 | 67 | ||
68 | !if $error!=$empty |
68 | !if $error!=$empty |
69 | !exit |
69 | !exit |
70 | !endif |
70 | !endif |
71 | - |