Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/spam.tcl	5 Jul 2002 08:13:46 -0000	1.14
+++ openacs-4/packages/dotlrn/www/spam.tcl	11 Jul 2002 04:58:34 -0000	1.15
@@ -135,7 +135,7 @@
     "
 
     bulk_mail::new \
-        -package_id [site_nodes::get_child_package_id -package_key [bulk_mail::package_key]] \
+        -package_id [site_node_apm_integration::get_child_package_id -package_key [bulk_mail::package_key]] \
         -send_date [template::util::date::get_property linear_date $send_date] \
         -date_format "YYYY MM DD HH24 MI SS" \
         -from_addr $from \
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -N -r1.71 -r1.72
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	10 Jul 2002 17:48:03 -0000	1.71
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	11 Jul 2002 04:58:35 -0000	1.72
@@ -233,7 +233,7 @@
         }]
 
         # get the root folder of this package instance
-        set package_id [site_nodes::get_child_package_id \
+        set package_id [site_node_apm_integration::get_child_package_id \
             -parent_package_id [dotlrn::get_package_id] \
             -package_key [package_key] \
         ]