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.35 -r1.36
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	6 Mar 2002 05:13:45 -0000	1.35
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	11 Mar 2002 22:38:37 -0000	1.36
@@ -45,6 +45,12 @@
         return "File Storage"
     }
 
+    ad_proc -public get_subcomm_default_page {} {
+        return the user default page to add the portlet to
+    } {
+        return "Files"
+    }
+
     ad_proc -public add_applet {
     } {
         Used for one-time init - must be repeatable!
@@ -130,9 +136,19 @@
         fs_portlet::make_self_available $pt_id
 
         # add the portlet to the "file storage" page for this comm
+
+        # aks - this should be made into a dotlrn-fs param
+        set community_type [dotlrn_community::get_community_type_from_community_id $community_id]
+
+        if {$community_type == "dotlrn_community"} {
+            set page_name [get_subcomm_default_page]
+        } else {
+            set page_name [get_community_default_page]
+        }
+
         set page_id [portal::get_page_id \
             -portal_id $pt_id \
-            -page_name [get_community_default_page] \
+            -page_name $page_name \
         ]
 
         fs_portlet::add_self_to_page \