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.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	4 Dec 2001 23:56:14 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	5 Dec 2001 13:32:40 -0000	1.7
@@ -20,14 +20,31 @@
 
 # if installed
 if {[dotlrn::is_instantiated]} {
+
+    set dotlrn_classes_url "[dotlrn::get_url][dotlrn_class::get_url]"
+    if {![dotlrn::is_instantiated_here -url $dotlrn_classes_url]} {
+        dotlrn::mount_package \
+            -package_key [dotlrn::package_key] \
+            -url [dotlrn_class::get_url_part] \
+            -directory_p "t"
+    }
+
+    set dotlrn_clubs_url "[dotlrn::get_url][dotlrn_club::get_url]"
+    if {![dotlrn::is_instantiated_here -url $dotlrn_clubs_url]} {
+        dotlrn::mount_package \
+            -package_key [dotlrn::package_key] \
+            -url [dotlrn_club::get_url_part] \
+            -directory_p "t"
+    }
+
     # Grantee
     set grantee_id [dotlrn::get_full_users_rel_segment_id]
 
     set package_id [dotlrn::get_package_id]
 
     # Grant the permission
     if {![ad_permission_p -user_id $grantee_id $package_id dotlrn_browse]} {
-	ad_permission_grant $grantee_id $package_id dotlrn_browse
+        ad_permission_grant $grantee_id $package_id dotlrn_browse
     }
 
     # We go through all Applets and make sure they are added.
@@ -37,25 +54,9 @@
     # called repeatedly since this script is eval'd at every server startup
     # - aks
     foreach applet [dotlrn_community::list_applets] {
-	# Callback on all applets
-	dotlrn_community::applet_call $applet "AddApplet" [list]
+        # Callback on all applets
+        dotlrn_community::applet_call $applet "AddApplet" [list]
     }
-
-    set dotlrn_classes_url "[dotlrn::get_url][dotlrn_class::get_url]"
-    if {![dotlrn::is_instantiated_here $dotlrn_classes_url]} {
-        dotlrn::mount_package
-            -package_key [dotlrn::package_key] \
-            -url $dotlrn_classes_url \
-            -directory_p 1
-    }
-
-    set dotlrn_clubs_url "[dotlrn::get_url][dotlrn_club::get_url]"
-    if {![dotlrn::is_instantiated_here $dotlrn_clubs_url]} {
-        dotlrn::mount_package
-            -package_key [dotlrn::package_key] \
-            -url $dotlrn_clubs_url \
-            -directory_p 1
-    }
 }
 
 # Make sure that privacy is turned on