Rev 14335 | Rev 15985 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 14335 | Rev 15966 | ||
---|---|---|---|
Line 48... | Line 48... | ||
48 | !! make list of name of classes,program etc... |
48 | !! make list of name of classes,program etc... |
49 | !readproc mksubclslist.proc |
49 | !readproc mksubclslist.proc |
50 | 50 | ||
51 | !if $reg!=$empty |
51 | !if $reg!=$empty |
52 | up_password= |
52 | up_password= |
53 |
|
53 | replacelist=regnum,comments,photourl,email,external_auth,supervise,participate |
54 | !for r in $replacelist |
54 | !for r in $replacelist |
55 | !default up_$r=$(user_$r) |
55 | !default up_$r=$(user_$r) |
56 | !next r |
56 | !next r |
57 | !for i=1 to $[min($limit_regvars,$regvars_cnt)] |
57 | !for i=1 to $[min($limit_regvars,$regvars_cnt)] |
58 | !default up_regprop$i=$(regprop$i) |
58 | !default up_regprop$i=$(regprop$i) |
Line 65... | Line 65... | ||
65 | !else |
65 | !else |
66 | !if $wims_user=supervisor and $wims_realuser!=supervisor |
66 | !if $wims_user=supervisor and $wims_realuser!=supervisor |
67 | !!not administrator of the portail |
67 | !!not administrator of the portail |
68 | !set up_supervise=!listuniq $wims_class, $(user_supervise) |
68 | !set up_supervise=!listuniq $wims_class, $(user_supervise) |
69 | !else |
69 | !else |
- | 70 | !! tested in groupements, needs to be checked in portals |
|
- | 71 | !! (in portals some zones can have $type_class=1) |
|
- | 72 | !if $type_class=1 |
|
- | 73 | !set up_supervise=!listuniq $wims_class,$(up_supervise) |
|
- | 74 | !else |
|
70 | !set up_supervise=!listuniq $(up_supervise) |
75 | !set up_supervise=!listuniq $(up_supervise) |
- | 76 | !endif |
|
71 | !endif |
77 | !endif |
72 | !endif |
78 | !endif |
73 | !if $up_supervise=$empty |
79 | !if $up_supervise=$empty |
74 | up_supervise=noclass |
80 | up_supervise=noclass |
75 | !endif |
81 | !endif |