Index: openacs-4/packages/notifications/tcl/reply-sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/reply-sweep-init.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/notifications/tcl/reply-sweep-init.tcl	7 Aug 2017 23:48:13 -0000	1.6
+++ openacs-4/packages/notifications/tcl/reply-sweep-init.tcl	1 Nov 2022 16:15:51 -0000	1.6.2.1
@@ -10,9 +10,10 @@
 
 # Roberto Mello (12/2002): Added parameter and check for qmail queue scanning
 
-set scan_replies_p [parameter::get \
-                        -package_id [apm_package_id_from_key notifications] \
-                        -parameter EmailQmailQueueScanP -default 0]
+set scan_replies_p [parameter::get_from_package_key \
+                        -package_key notifications \
+                        -parameter EmailQmailQueueScanP \
+                        -default 0]
 
 if { $scan_replies_p == 1 } {
     ad_schedule_proc -thread t 60 notification::reply::sweep::scan_all_replies
Index: openacs-4/packages/notifications/tcl/sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-init.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/notifications/tcl/sweep-init.tcl	14 Apr 2022 13:30:38 -0000	1.6.2.1
+++ openacs-4/packages/notifications/tcl/sweep-init.tcl	1 Nov 2022 16:15:51 -0000	1.6.2.2
@@ -8,9 +8,10 @@
 
 }
 
-set cleanupInterval [parameter::get \
-                         -package_id [apm_package_id_from_key notifications] \
-                         -parameter CleanupSweepInterval -default 900]
+set cleanupInterval [parameter::get_from_package_key \
+                         -package_key notifications \
+                         -parameter CleanupSweepInterval \
+                         -default 900]
 ad_schedule_proc -thread t $cleanupInterval notification::sweep::cleanup_notifications
 
 foreach interval [notification::get_all_intervals] {