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 -N -r1.20 -r1.21
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	16 Apr 2002 13:53:52 -0000	1.20
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	18 Apr 2002 19:23:36 -0000	1.21
@@ -39,6 +39,22 @@
 # if installed
 if {[dotlrn::is_instantiated]} {
 
+    set portal_package_key [portal::package_key]
+    set portal_mount_point [portal::automount_point]
+    
+    # we now mount new-portal at the automount point if it's not already mounted, of course 
+    if {[site_nodes::mount_count -package_key $portal_package_key] == 0} {
+        
+        ns_log notice "dotlrn-init: $portal_package_key being automounted at /$portal_mount_point"
+        
+        dotlrn::mount_package \
+                -parent_node_id [site_node_id "/"] \
+                -package_key $portal_package_key \
+                -url $portal_mount_point \
+                -directory_p "t"
+    }
+
+
     # aks debug
     db_transaction {
     
@@ -88,22 +104,6 @@
 }
 
 
-set portal_package_key [portal::package_key]
-set portal_mount_point [portal::automount_point]
-
-# we now mount new-portal at the automount point if it's not already mounted, of course 
-if {[site_nodes::mount_count -package_key $portal_package_key] == 0} {
-
-    ns_log notice "dotlrn-init: $portal_package_key being automounted at /$portal_mount_point"
-
-    dotlrn::mount_package \
-            -parent_node_id [site_node_id "/"] \
-            -package_key $portal_package_key \
-            -url $portal_mount_point \
-            -directory_p "t"
-}
-
-
 # Make sure that privacy is turned on
 acs_privacy::privacy_control_set 1