Rev 12466 | Rev 13164 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12466 | Rev 12934 | ||
---|---|---|---|
Line 7... | Line 7... | ||
7 | !exit |
7 | !exit |
8 | !endif |
8 | !endif |
9 | !read adm/class/userdef classes,$wims_class,$getuser |
9 | !read adm/class/userdef classes,$wims_class,$getuser |
10 | !defread $userdef |
10 | !defread $userdef |
11 | !read adm/class/initclass $wims_class |
11 | !read adm/class/initclass $wims_class |
- | 12 | regvars_cnt=!itemcnt $regvars_class |
|
12 | 13 | ||
13 | !if $user_exists!=yes or $abandon!=$empty |
14 | !if $user_exists!=yes or $abandon!=$empty |
14 | !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise |
15 | !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise |
15 | !if $wims_user=supervisor |
16 | !if $wims_user=supervisor |
16 | !bound oldjob within userlist,teacher default userlist |
17 | !bound oldjob within userlist,teacher default userlist |
Line 52... | Line 53... | ||
52 | up_password= |
53 | up_password= |
53 | replacelist=regnum,comments,photourl,email,external_auth |
54 | replacelist=regnum,comments,photourl,email,external_auth |
54 | !for r in $replacelist |
55 | !for r in $replacelist |
55 | !default up_$r=$(user_$r) |
56 | !default up_$r=$(user_$r) |
56 | !next r |
57 | !next r |
- | 58 | !for i=1 to $[min($limit_regvars,$regvars_cnt)] |
|
- | 59 | !default up_regprop$i=$(regprop$i) |
|
- | 60 | !next i |
|
57 | replacelist=$replacelist,supervise |
61 | replacelist=$replacelist,supervise |
58 | - | ||
59 | !! ------------- manage modification of user_supervise for teacher account |
62 | !! ------------- manage modification of user_supervise for teacher account |
60 | !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty) |
63 | !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty) |
61 | !if $superv=no |
64 | !if $superv=no |
62 | !set up_supervise=!listcomplement $wims_class in $up_supervise |
65 | !set up_supervise=!listcomplement $wims_class in $up_supervise |
63 | !else |
66 | !else |
Line 122... | Line 125... | ||
122 | !read adm/class/mkuserlist |
125 | !read adm/class/mkuserlist |
123 | !if $class_type isin 1234 |
126 | !if $class_type isin 1234 |
124 | !read adm/gateway/mkteacherlist |
127 | !read adm/gateway/mkteacherlist |
125 | !endif |
128 | !endif |
126 | !read adm/class/stat |
129 | !read adm/class/stat |
- | 130 | listerase=!makelist user_regprop i for i=1 to $[min($limit_regvars,$regvars_cnt)] |
|
- | 131 | listerase=!nospace $listerase |
|
127 | !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\ |
132 | !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\ |
128 | user_supervisable, user_supervise, user_participate, |
133 | user_supervisable, user_supervise, user_participate, user_external_auth,wims_deposit,$listerase |
129 | !defread $userdef |
134 | !defread $userdef |
130 | !if $wims_user=supervisor and $getuser!=supervisor |
135 | !if $wims_user=supervisor and $getuser!=supervisor |
131 | user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g' |
136 | user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g' |
132 | !endif |
137 | !endif |
133 | !endif |
138 | !endif |