Index: openacs-4/packages/dotlrn-fs/dotlrn-fs.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/dotlrn-fs.info,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-fs/dotlrn-fs.info	10 Nov 2001 21:44:52 -0000	1.5
+++ openacs-4/packages/dotlrn-fs/dotlrn-fs.info	23 Jan 2002 07:57:38 -0000	1.6
@@ -25,7 +25,7 @@
             <file type="query_file" path="tcl/dotlrn-fs-procs.xql"/>
         </files>
         <parameters>
-        <!-- No version parameters -->
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="user_default_page"  default="My Files" description="Default Page for addition of the portlet"/>
         </parameters>
 
     </version>
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.22 -r1.23
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	17 Jan 2002 22:01:03 -0000	1.22
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	23 Jan 2002 07:57:38 -0000	1.23
@@ -40,6 +40,13 @@
 	return "dotLRN File Storage"
     }
 
+    ad_proc -public get_user_default_page {} {
+        return the user default page to add the portlet to
+    } {
+        #return [ad_parameter -package_id [apm_package_id_from_key dotlrn-fs] user_default_page "My Files"]
+        return "My Files"
+    }
+
     ad_proc -public add_applet {
     } {
 	Used for one-time init - must be repeatable!
@@ -164,7 +171,9 @@
 
 	# Add the portlet here
 	if { $workspace_portal_id != "" } {
-            fs_portlet::add_self_to_page $workspace_portal_id $package_id $folder_id
+            fs_portlet::add_self_to_page \
+                    -page_id [portal::get_page_id -portal_id $workspace_portal_id -page_name [get_user_default_page]] \
+                    $workspace_portal_id $package_id $folder_id
         }
     }
 
Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	16 Jan 2002 21:17:05 -0000	1.26
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	23 Jan 2002 07:58:35 -0000	1.27
@@ -38,6 +38,7 @@
     }
 
     ad_proc -public add_self_to_page { 
+        {-page_id ""}
 	portal_id 
 	instance_id
 	folder_id 
@@ -53,6 +54,7 @@
 	@creation-date Sept 2001
     } {
         return [portal::add_element_or_append_id -portal_id $portal_id \
+                -page_id $page_id \
                 -portlet_name [my_name] \
                 -value_id $folder_id \
                 -key folder_id]