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.29 -r1.30
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	2 Jul 2002 22:31:15 -0000	1.29
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	26 Jul 2002 21:14:59 -0000	1.30
@@ -36,21 +36,32 @@
         permission::set_not_inherit -object_id $package_id
     }
 
+    # we now mount new-portal at the automount point if it's not already mounted, of course
     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 {[apm_num_instances $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
     }
 
+    # we now mount attachments if it's not already mounted under dotLRN
+    set attachments_package_key [attachments::get_package_key]
+    set attachments_mount_point [attachments::get_url]
+
+    if {![dotlrn::is_package_mounted -package_key $attachments_package_key]} {
+        ns_log notice "dotlrn-init: $attachments_package_key being automounted at [dotlrn::get_url]/$attachments_mount_point"
+        dotlrn::mount_package \
+            -parent_node_id [dotlrn::get_node_id] \
+            -package_key $attachments_package_key \
+            -url $attachments_mount_point \
+            -directory_p t
+    }
+
     db_transaction {
 
         ns_log notice "dotlrn-init: dotlrn is instantiated, about to call dotlrn_applet::init"