Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	29 Jun 2004 10:18:08 -0000	1.88
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	24 Jul 2004 08:34:15 -0000	1.89
@@ -105,6 +105,7 @@
         set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
         set package_id [dotlrn::instantiate_and_mount $community_id [package_key]]
         set community_name [dotlrn_community::get_community_name $community_id]
+
         set folder_id [fs::get_root_folder -package_id $package_id]
 
         fs::rename_folder -folder_id $folder_id -name "[_ dotlrn-fs.lt_community_names_Files]"
@@ -210,6 +211,17 @@
         #
         # portlet stuff
         #
+
+	# Add the admin portlet
+
+        set admin_portal_id [dotlrn_community::get_admin_portal_id \
+                                 -community_id $community_id
+        ]
+
+        fs_admin_portlet::add_self_to_page \
+            -portal_id $admin_portal_id \
+            -package_id $package_id
+
         
         set args [ns_set create]
         ns_set put $args package_id $package_id