Index: openacs-4/packages/dotlrn/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/www/register.tcl	29 Jan 2019 14:13:23 -0000	1.24
+++ openacs-4/packages/dotlrn/www/register.tcl	3 Sep 2024 15:37:37 -0000	1.25
@@ -22,9 +22,9 @@
     @creation-date 2001-10-06
     @cvs-id $Id$
 } -query {
-    {user_id:integer ""}
-    {community_id:integer ""}
-    {referer "./"}
+    {user_id:object_id ""}
+    {community_id:object_id ""}
+    {referer:localurl "./"}
 }
 
 if { ![parameter::get -parameter SelfRegistrationP -package_id [dotlrn::get_package_id] -default 1] } {
@@ -101,9 +101,11 @@
 
         "
 
-            set package_id [site_node_apm_integration::get_child_package_id \
-                                -package_id [dotlrn_community::get_package_id $community_id] \
-                                -package_key [bulk_mail::package_key]]
+            set community_node_id [dotlrn_community::get_community_node_id $community_id]
+            set package_id [lindex [site_node::get_children \
+                                        -package_key [bulk_mail::package_key] \
+                                        -element object_id \
+                                        -node_id $community_node_id] 0]
 
             bulk_mail::new \
                     -package_id $package_id \