Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	7 Jun 2018 17:30:17 -0000	1.24
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	3 Sep 2024 15:37:34 -0000	1.25
@@ -8,7 +8,7 @@
 
 } {
     { user_type:notnull "user" }
-    { user_type_exact_p:boolean t }
+    { user_type_exact_p:boolean,notnull t }
     { user_id:naturalnum "" }
     { return_url:localurl "" }
     {add_to_group_id:naturalnum ""}
@@ -51,7 +51,7 @@
     set rel_member_state ""
 }
 
-# Select out the user name and the user's object type. The validate
+# Select out the username and the user's object type. The validate
 # filter above will catch missing parties
 
 acs_object_type::get -object_type $user_type -array object_type
@@ -179,7 +179,7 @@
 
             # Hack for adding users to the main subsite, whose application group is the registered users group.
 
-            if { $add_to_group_id != [acs_lookup_magic_object "registered_users"] ||
+            if { $add_to_group_id != [acs_magic_object "registered_users"] ||
                  $add_with_rel_type ne "membership_rel"
              } {
                 relation_add -member_state $rel_member_state $add_with_rel_type $add_to_group_id $user_id
@@ -223,8 +223,8 @@
         if {[parameter::get -parameter NotifyAdminOfNewRegistrationsP -default 0]} {
 
             set creation_user [ad_conn user_id]
-            set user [acs_user::get -user_id $creation_user]
-            set creation_name "[dict get $user name] ([dict get $user email])"
+            set user_info [acs_user::get -user_id $creation_user]
+            set creation_name "[dict get $user_info name] ([dict get $user_info email])"
 
             # we're supposed to notify the administrator when someone new registers