Index: openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	21 Jan 2002 06:30:11 -0000	1.15
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	22 Jan 2002 01:34:24 -0000	1.16
@@ -31,6 +31,7 @@
     }
 
     ad_proc -public add_self_to_page { 
+        {-page_id ""}
         portal_id 
         instance_id 
     } {
@@ -44,7 +45,7 @@
         @creation-date Nov 2001
     } {
         # Tell portal to add this element to the page
-        set element_id [portal::add_element $portal_id [my_name]]
+        set element_id [portal::add_element -page_id $page_id $portal_id [my_name]]
 
         return $element_id
     }
Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	21 Jan 2002 19:07:55 -0000	1.14
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	22 Jan 2002 01:34:24 -0000	1.15
@@ -49,7 +49,11 @@
 	db_transaction {
 	    if {$rel_type == "dotlrn_full_user_rel"} {
 		# Create a portal page for this user
-		set portal_id [portal::create -name "Your dotLRN Workspace" -default_page_name [ad_parameter user_wsp_first_page_name] $user_id]
+		set portal_id [portal::create \
+                        -name "Your dotLRN Workspace" \
+                        -default_page_name [ad_parameter user_wsp_first_page_name] \
+                        $user_id]
+
                 # create the default pages from the ad_param
                 foreach name [split [ad_parameter user_wsp_page_names] ","] {
 
@@ -60,8 +64,17 @@
                 portal::set_current_page -portal_id $portal_id \
                         -page_id [portal::get_page_id -portal_id $portal_id \
                         -sort_key 0]
+                
+                # aks test adding applets on new pages
+                
+                # make a test page to the wsp
+                # add -layout_id later
+                # set page_id [portal::page_create -portal_id $portal_id \
+                #        -pretty_name "test new add applet" \
+                #        -portal_id $portal_id]
+                # dotlrn_main_portlet::add_self_to_page -page_id $page_id $portal_id {}
 
-                dotlrn_main_portlet::add_self_to_page $portal_id {}
+                # end test
 
                 # Update the user and set the portal page correctly
 		ns_set put $extra_vars portal_id $portal_id