OpenACS

gustafn
committed
MAIN:gustafn:20180131205406
on 31 Jan 18
fix typos
openacs-4/.../acs-subsite/lib/user-new.tcl (+41 -41)
51 51 set implName [parameter::get -parameter "RegistrationImplName" -package_id [subsite::main_site_id]]
52 52
53 53 set callback_url [callback -catch -impl "$implName" user::registration]
54 54
55 55 if { $callback_url ne "" } {
56 56     ad_returnredirect [export_vars -base $callback_url { return_url }]
57 57     ad_script_abort
58 58 }
59 59
60 60
61 61 # Pre-generate user_id for double-click protection
62 62 set user_id [db_nextval acs_object_id_seq]
63 63
64 64 ad_form -name register -export {next_url user_id return_url} -form [auth::get_registration_form_elements]
65 65
66 66 #
67 67 # Standard validator
68 68 #
69 69 set validate {
70 70     {email
71           {[string equal "" [party::get_by_email -email $email]]}
  71         {[party::get_by_email -email $email] eq ""}
72 72         "[_ acs-subsite.Email_already_exists]"
73 73     }
74 74 }
75 75
76 76 #
77 77 # Handling of additional groups
78 78 #
79 79 if { $rel_group_id ne "" } {
80 80     ad_form -extend -name register -form {
81 81         {rel_group_id:integer(hidden),optional}
82 82     }
83 83
84 84     if { [permission::permission_p -object_id $rel_group_id -privilege "admin"] } {
85 85         ad_form -extend -name register -form {
86 86             {rel_type:text(select)
87 87                 {label "Role"}
88 88                 {options {[group::get_rel_types_options -group_id $rel_group_id]}}
89 89             }
90 90         }
91 91     } else {