Index: openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql	10 May 2002 06:35:14 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/applet-sc-create.sql	13 May 2002 21:39:12 -0000	1.4
@@ -238,12 +238,19 @@
   
     -- AddPortlet: Adds the underlying portlet to the given portal
     -- with the given args. Why do we need this when we have AddAppletToCommunity?
-    -- Because besides communities there are per-commnuity portal templates that
-    -- need to call all dotlrn applets and have the underlying portlet added to 
-    -- them. This way code is not duplicated.
+    -- Because there are 3 distinct types of portals that need to
+    -- have the underlying portlet added to them they are: 1. user portals
+    -- 2. community portals 3. portal templates. This proc takes in a 
+    -- portal_id and a key-value pair list that it uses to do the right 
+    -- thing based on the portal type without undue duplication
+    --
+    -- user portals will pass: user_id
+    -- comm portals will pass: community_id
+    -- templates will pass: NULL
+    --
     foo := acs_sc_msg_type.new(
         msg_type_name => 'dotlrn_applet.AddPortlet.InputType',
-        msg_type_spec => 'args:string'
+        msg_type_spec => 'portal_id:integer,args:string'
     );
   
     foo := acs_sc_msg_type.new(
@@ -256,15 +263,15 @@
         'AddPortlet',
         'Adds the underlying portlet to the portal specified',
         'f', -- not cacheable
-        1,   -- n_args
+        2,   -- n_args
         'dotlrn_applet.AddPortlet.InputType',
         'dotlrn_applet.AddPortlet.OutputType'
     );
   
     -- RemovePortlet: the remove corollary of above
     foo := acs_sc_msg_type.new(
         msg_type_name => 'dotlrn_applet.RemovePortlet.InputType',
-        msg_type_spec => 'portal_id:integer'
+        msg_type_spec => 'portal_id:integer,args:string'
     );
   
     foo := acs_sc_msg_type.new(
@@ -277,7 +284,7 @@
         'RemovePortlet',
         'Removes the underlying portlet from the given portal',
         'f', -- not cacheable
-        1,   -- n_args
+        2,   -- n_args
         'dotlrn_applet.RemovePortlet.InputType',
         'dotlrn_applet.RemovePortlet.OutputType'
     );
