Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-applet-sc-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql	29 Mar 2002 19:14:44 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql	10 May 2002 06:35:14 -0000	1.3
@@ -17,11 +17,6 @@
 --
 -- The DotLRN applet service contract
 --
--- copyright 2001, OpenForce, Inc.
--- distributed under the GNU GPL v2
---
--- for Oracle 8/8i. (We're guessing 9i works, too).
---
 -- ben@openforce.net, arjun@openforce.net
 -- ported to PG by Yon and Ben
 --
@@ -32,6 +27,9 @@
 -- This is the service contract for dotLRN applets. A dotlrn applet MUST
 -- have AT LEAST the procs (with the proper arguments) defined below to work
 -- as a dotlrn applet.
+--
+-- **** SEE THE ORACLE VERSION FOR FULL DESCRIPTIONS ****
+--
 
 begin
         select acs_sc_contract__new (
@@ -229,4 +227,67 @@
                   'dotlrn_applet.RemoveAppletFromCommunity.OutputType'
         );
 
+        -- addportlet
+        select acs_sc_msg_type__new(
+                  'dotlrn_applet.AddPortlet.InputType',
+                  'args:string'
+        );
+
+        select acs_sc_msg_type__new(
+                  'dotlrn_applet.AddPortlet.OutputType',
+                  'success_p:boolean,error_message:string'
+        );
+        
+        select acs_sc_operation__new (
+                  'dotlrn_applet',
+                  'AddPortlet',
+                  'Adds the underlying portlet to the portal specified',
+                  'f', -- not cacheable
+                  1,   -- n_args
+                  'dotlrn_applet.AddPortlet.InputType',
+                  'dotlrn_applet.AddPortlet.OutputType'
+        );
+
+        -- removeportlet
+        select acs_sc_msg_type__new(
+                  'dotlrn_applet.RemovePortlet.InputType',
+                  'portal_id:integer'
+        );
+
+        select acs_sc_msg_type__new(
+                  'dotlrn_applet.RemovePortlet.OutputType',
+                  'success_p:boolean,error_message:string'
+        );
+        
+        select acs_sc_operation__new (
+                  'dotlrn_applet',
+                  'RemovePortlet',
+                  'Removes the underlying portlet from the given portal',
+                  'f', -- not cacheable
+                  1,   -- n_args
+                  'dotlrn_applet.RemovePortlet.InputType',
+                  'dotlrn_applet.RemovePortlet.OutputType'
+        );
+
+        -- clone
+        select acs_sc_msg_type__new(
+                  'dotlrn_applet.Clone.InputType',
+                  'old_community_id:integer,new_community_id:integer'
+        );
+
+        select acs_sc_msg_type__new(
+                  'dotlrn_applet.Clone.OutputType',
+                  'success_p:boolean,error_message:string'
+        );
+        
+        select acs_sc_operation__new (
+                  'dotlrn_applet',
+                  'Clone',
+                  'Clone this applets content from the old to the new community',
+                  'f', -- not cacheable
+                  2,   -- n_args
+                  'dotlrn_applet.Clone.InputType',
+                  'dotlrn_applet.Clone.OutputType'
+        );
+
 end;
