Rev 10469 | Rev 12981 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10469 | Rev 10677 | ||
---|---|---|---|
Line 47... | Line 47... | ||
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 |
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 |
54 | !!sadd_firstname=!defof user_firstname in $userdef |
- | |
55 | !!sadd_lastname=!defof user_lastname in $userdef |
- | |
56 | !!sadd_email=!defof user_email in $userdef |
- | |
57 | !!sadd_password=$passs |
- | |
58 | cadd_email=$sadd_email |
54 | cadd_email=$sadd_email |
59 | cadd_password=$pass |
55 | cadd_password=$pass |
- | 56 | sadd_password=$passs |
|
60 | modclass_slist=!listunion firstname,lastname,email and $modclass_slist |
57 | modclass_slist=!listunion firstname,lastname,email and $modclass_slist |
61 | 58 | ||
62 | !read adm/gateway/delsup $wims_read_parm |
59 | !read adm/gateway/delsup $wims_read_parm |
63 | !if $s_!=supervisor |
60 | !if $s_!=supervisor |
64 | suplist=!defof user_supervise in $userdir/$s_ |
61 | suplist=!defof user_supervise in $userdir/$s_ |