Rev 5775 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 5775 | Rev 12616 | ||
|---|---|---|---|
| Line 2... | Line 2... | ||
| 2 | test=!defof user_exists in $classdir1/.users/$login |
2 | test=!defof user_exists in $classdir1/.users/$login |
| 3 | !if $test!=yes |
3 | !if $test!=yes |
| 4 | error=bad_user |
4 | error=bad_user |
| 5 | !exit |
5 | !exit |
| 6 | !endif |
6 | !endif |
| 7 | 7 | ||
| 8 | data=!defof user_firstname,user_lastname,user_email,user_password,user_external_auth in \ |
8 | data=!defof user_firstname,user_lastname,user_email,user_password,user_external_auth in \ |
| 9 | $classdir1/.users/$login |
9 | $classdir1/.users/$login |
| 10 | supervise=!defof user_supervise in $classdir1/.users/$login |
10 | supervise=!defof user_supervise in $classdir1/.users/$login |
| 11 | 11 | ||
| 12 | !if $del!=$empty |
12 | !if $del!=$empty |
| 13 | sup2=!listcomplement $del in $supervise |
13 | sup2=!listcomplement $del in $supervise |
| 14 | !if $sup2!=$supervise |
14 | !if $sup2!=$supervise |
| 15 | !setdef !set user_supervise=$sup2 in $classdir1/.users/$login |
15 | !setdef !set user_supervise=$sup2 in $classdir1/.users/$login |
| 16 | !endif |
16 | !endif |
| 17 | !exit |
17 | !exit |
| 18 | !endif |
18 | !endif |
| 19 | 19 | ||
| 20 | !if $cancel!=$empty |
20 | !if $cancel!=$empty |
| 21 | !distribute items $data into firstname, lastname, email,,up_external_auth |
21 | !distribute items $data into firstname, lastname, email,,up_external_auth |
| 22 | up_external_auth=!lowercase up_external_auth |
22 | up_external_auth=!lowercase up_external_auth |
| 23 | !reset cancel |
23 | !reset cancel |
| 24 | job=teacher |
24 | job=teacher |
| 25 | !changeto jobs/$job.proc |
25 | !changeto jobs/$job.proc |
| 26 | !endif |
26 | !endif |
| 27 | 27 | ||
| 28 | !if $confirm=$empty |
28 | !if $confirm=$empty |
| 29 | !distribute items $data into firstname, lastname, email,,up_external_auth |
29 | !distribute items $data into firstname, lastname, email,,up_external_auth |
| 30 | up_external_auth=!lowercase up_external_auth |
30 | up_external_auth=!lowercase up_external_auth |
| 31 | !exit |
31 | !exit |
| 32 | !endif |
32 | !endif |
| 33 | 33 | ||
| 34 | up_supervisable=yes |
34 | up_supervisable=yes |
| 35 | new_user=no |
35 | new_user=no |
| 36 | 36 | ||
| 37 | !read scripts/adduser.proc |
37 | !read scripts/adduser.proc |
| 38 | !read adm/gateway/mkteacherlist |
38 | !read adm/gateway/mkteacherlist |
| 39 | 39 | ||
| 40 | !if $error!=$empty |
40 | !if $error!=$empty |
| 41 | !exit |
41 | !exit |
| 42 | !endif |
42 | !endif |
| 43 | - | ||