Index: openacs-4/packages/acs-subsite/tcl/approval-expiration-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/approval-expiration-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/approval-expiration-init.tcl	28 Aug 2003 09:41:39 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/approval-expiration-init.tcl	19 Sep 2003 16:13:25 -0000	1.3
@@ -8,12 +8,8 @@
 
 }
 
-# Get the main site node
-array set main_site [site_node::get -url /]
+set ApprovalExpirationDays [parameter::get -parameter ApprovalExpirationDays -package_id [ad_acs_kernel_id] -default 0]
 
-# Get the package ID of the subsite mounted there 
-set ApprovalExpirationDays [parameter::get -parameter ApprovalExpirationDays -package_id $main_site(package_id) -default 0]
-
 # Only schedule proc if we've set approvals to expire
 if { $ApprovalExpirationDays > 0 } {
     # Schedule proc to run once nightly