Rev 12981 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12981 | Rev 12982 | ||
---|---|---|---|
Line 24... | Line 24... | ||
24 | 24 | ||
25 | !if $passs!=$empty |
25 | !if $passs!=$empty |
26 | passs=!text select $char_passwd in $passs |
26 | passs=!text select $char_passwd in $passs |
27 | passlen=!charcnt $passs |
27 | passlen=!charcnt $passs |
28 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
28 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
29 |
|
29 | error=bad_password |
30 |
|
30 | !exit |
31 | !endif |
31 | !endif |
32 | !else |
32 | !else |
33 | passs=!defof user_password in wimshome/log/classes/$wims_superclass/supervisor |
33 | passs=!defof user_password in wimshome/log/classes/$wims_superclass/supervisor |
34 | !endif |
34 | !endif |
35 | 35 | ||
Line 52... | Line 52... | ||
52 | cadd_Supervisor=$s_ |
52 | cadd_Supervisor=$s_ |
53 | tmp=!defof user_firstname,user_lastname,user_email,user_password in $userdef |
53 | tmp=!defof user_firstname,user_lastname,user_email,user_password in $userdef |
54 | !distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password |
54 | !distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password |
55 | cadd_email=$sadd_email |
55 | cadd_email=$sadd_email |
56 | cadd_level=$alevel |
56 | cadd_level=$alevel |
57 |
|
57 | cadd_password=$pass |
58 | sadd_password=$passs |
58 | sadd_password=$passs |
59 | cadd_secure=$sechost |
59 | cadd_secure=$sechost |
60 | cadd_superclass=$wims_superclass |
60 | cadd_superclass=$wims_superclass |
61 | cadd_parent=$wims_superclass |
61 | cadd_parent=$wims_superclass |
62 | cadd_type=3 |
62 | cadd_type=3 |