Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	20 Sep 2001 21:04:56 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	3 Dec 2001 02:51:27 -0000	1.3
@@ -17,5 +17,28 @@
     
 }
 
-# ad_register_filter preauth GET /* dotlrn_filter
+# We go through all Applets and make sure they are added.
+# NOTE FROM BEN TO ARJUN: Add code here
+#
+#
 
+
+# We check to see if dotLRN has been installed, and if so, if permissions
+# have been granted
+
+set main_package_id [dotlrn::get_package_id]
+
+# if installed
+if {![empty_string_p $main_package_id]} {
+    # Grantee
+    set grantee_id [dotlrn::get_full_users_rel_segment_id]
+
+    # Grant the permission
+    if {![ad_permission_p -user_id $grantee_id $main_package_id dotlrn_browse]} {
+	ad_permission_grant $grantee_id $main_package_id dotlrn_browse
+    }
+}
+
+# Make sure that privacy is turned on
+acs_privacy::privacy_control_set 1
+