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 -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/tcl/approval-expiration-init.tcl	6 Jun 2003 09:12:20 -0000	1.1.2.1
@@ -0,0 +1,21 @@
+ad_library {
+
+    Sweep for expired user approvals.
+
+    @cvs-id $Id: approval-expiration-init.tcl,v 1.1.2.1 2003/06/06 09:12:20 lars Exp $
+    @author Lars Pind  (lars@collaboraid.biz)
+    @creation-date 2003-05-28
+
+}
+
+# Get the main site node
+array set main_site [site_node::get -url /]
+
+# 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
+    ad_schedule_proc -thread t -schedule_proc ns_schedule_daily [list 0 0] subsite::sweep_expired_approvals -days $ApprovalExpirationDays
+}