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.86.6.2 -r1.86.6.3
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	19 Jun 2004 17:41:22 -0000	1.86.6.2
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	14 Jul 2004 19:38:54 -0000	1.86.6.3
@@ -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
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/www/admin/upload-size-limit.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/fs-portlet/sql/oracle/fs-admin-portlet-create.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/fs-portlet/sql/oracle/fs-admin-portlet-drop.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql,v
diff -u -r1.19 -r1.19.6.1
--- openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.19
+++ openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql	14 Jul 2004 19:38:54 -0000	1.19.6.1
@@ -23,6 +23,7 @@
 --
 
 @@ fs-contents-portlet-create.sql
+@@ fs-admin-portlet-create.sql
 
 declare
     ds_id portal_datasources.datasource_id%TYPE;
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/fs-portlet/tcl/fs-admin-portlet-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/fs-portlet/www/fs-admin-portlet.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/fs-portlet/www/fs-admin-portlet.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?