Index: openacs-4/packages/dotlrn/sql/postgresql/applet-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/applet-sc-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/applet-sc-create.sql	9 Aug 2002 18:39:25 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/applet-sc-create.sql	1 Nov 2013 21:08:29 -0000	1.4
@@ -33,303 +33,303 @@
 -- **** SEE THE ORACLE VERSION FOR FULL DESCRIPTIONS ****
 --
 
-create function inline_0()
-returns integer as '
-begin
+CREATE OR REPLACE FUNCTION inline_0() RETURNS integer AS $$
+BEGIN
 
     perform acs_sc_contract__new (
-        ''dotlrn_applet'',
-        ''dotLRN Applet contract''
+        'dotlrn_applet',
+        'dotLRN Applet contract'
     );
 
     -- Get a pretty name
     perform acs_sc_msg_type__new (
-        ''dotlrn_applet.GetPrettyName.InputType'',
-        ''''
+        'dotlrn_applet.GetPrettyName.InputType',
+        ''
     );
 
     perform acs_sc_msg_type__new (
-        ''dotlrn_applet.GetPrettyName.OutputType'',
-        ''pretty_name:string''
+        'dotlrn_applet.GetPrettyName.OutputType',
+        'pretty_name:string'
     );
 
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''GetPrettyName'',
-        ''Get the pretty name of the applet'',
-        ''t'',
+        'dotlrn_applet',
+        'GetPrettyName',
+        'Get the pretty name of the applet',
+        't',
         0,
-        ''dotlrn_applet.GetPrettyName.InputType'',
-        ''dotlrn_applet.GetPrettyName.OutputType''
+        'dotlrn_applet.GetPrettyName.InputType',
+        'dotlrn_applet.GetPrettyName.OutputType'
     );
 
     -- Add the applet to dotlrn (used for one-time initialization)
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddApplet.InputType'',
-        ''''
+        'dotlrn_applet.AddApplet.InputType',
+        ''
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddApplet.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.AddApplet.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''AddApplet'',
-        ''Add the Applet to dotlrn - used for one-time initialization'',
-        ''f'',
+        'dotlrn_applet',
+        'AddApplet',
+        'Add the Applet to dotlrn - used for one-time initialization',
+        'f',
         0,
-        ''dotlrn_applet.AddApplet.InputType'',
-        ''dotlrn_applet.AddApplet.OutputType''
+        'dotlrn_applet.AddApplet.InputType',
+        'dotlrn_applet.AddApplet.OutputType'
     );
 
     -- RemoveApplet: Removes the applet from dotlrn (used for one-time destroy)
     -- ** Not yet implimented **
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveApplet.InputType'',
-        ''''
+        'dotlrn_applet.RemoveApplet.InputType',
+        ''
     );
   
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveApplet.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.RemoveApplet.OutputType',
+        'success_p:boolean,error_message:string'
     );
     
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''RemoveApplet'',
-        ''Remove the applet'',
-        ''f'',
+        'dotlrn_applet',
+        'RemoveApplet',
+        'Remove the applet',
+        'f',
         0,
-        ''dotlrn_applet.RemoveApplet.InputType'',
-        ''dotlrn_applet.RemoveApplet.OutputType''
+        'dotlrn_applet.RemoveApplet.InputType',
+        'dotlrn_applet.RemoveApplet.OutputType'
     );
 
     -- Add the applet to a community
     -- Called at community creation time. Adding applets after creation time
     -- is ** not implimented yet **
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddAppletToCommunity.InputType'',
-        ''community_id:integer''
+        'dotlrn_applet.AddAppletToCommunity.InputType',
+        'community_id:integer'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddAppletToCommunity.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.AddAppletToCommunity.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''AddAppletToCommunity'',
-        ''Add the Applet to a specific dotlrn community'',
-        ''f'',
+        'dotlrn_applet',
+        'AddAppletToCommunity',
+        'Add the Applet to a specific dotlrn community',
+        'f',
         1,
-        ''dotlrn_applet.AddAppletToCommunity.InputType'',
-        ''dotlrn_applet.AddAppletToCommunity.OutputType''
+        'dotlrn_applet.AddAppletToCommunity.InputType',
+        'dotlrn_applet.AddAppletToCommunity.OutputType'
     );
 
     -- RemoveAppletFromCommunity: Removes the appletl from a community
     -- Called at community delete time. Deleting applets before that time
     -- ** not implimented yet **
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveAppletFromCommunity.InputType'',
-        ''community_id:integer''
+        'dotlrn_applet.RemoveAppletFromCommunity.InputType',
+        'community_id:integer'
     );
   
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveAppletFromCommunity.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.RemoveAppletFromCommunity.OutputType',
+        'success_p:boolean,error_message:string'
     );
     
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''RemoveAppletFromCommunity'',
-        ''Remove the applet from a given community'',
-        ''f'',
+        'dotlrn_applet',
+        'RemoveAppletFromCommunity',
+        'Remove the applet from a given community',
+        'f',
         1,
-        ''dotlrn_applet.RemoveAppletFromCommunity.InputType'',
-        ''dotlrn_applet.RemoveAppletFromCommunity.OutputType''
+        'dotlrn_applet.RemoveAppletFromCommunity.InputType',
+        'dotlrn_applet.RemoveAppletFromCommunity.OutputType'
     );
   
     -- add a user to dotlrn (used for user-specific one time stuff)
     -- Called when a user is added as a dotlrn user. An example:        
     -- dotlrn-calendar will create a personal calendar for the new user.
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddUser.InputType'',
-        ''user_id:integer''
+        'dotlrn_applet.AddUser.InputType',
+        'user_id:integer'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddUser.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.AddUser.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''AddUser'',
-        ''Add a user to dotlrn, used for user-specific one-time init'',
-        ''f'',
+        'dotlrn_applet',
+        'AddUser',
+        'Add a user to dotlrn, used for user-specific one-time init',
+        'f',
         1,
-        ''dotlrn_applet.AddUser.InputType'',
-        ''dotlrn_applet.AddUser.OutputType''
+        'dotlrn_applet.AddUser.InputType',
+        'dotlrn_applet.AddUser.OutputType'
     );
 
     -- RemoveUser: used for user-specific one time stuff
     -- Just like AddUser above, but when we delete a dotlrn user
-    -- Example: dotlrn-calendar would delete the user''s personal calendar
+    -- Example: dotlrn-calendar would delete the user's personal calendar
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveUser.InputType'',
-        ''user_id:integer''
+        'dotlrn_applet.RemoveUser.InputType',
+        'user_id:integer'
     );
   
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveUser.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.RemoveUser.OutputType',
+        'success_p:boolean,error_message:string'
     );
     
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''RemoveUser'',
-        ''Remove a user from dotlrn'',
-        ''f'',
+        'dotlrn_applet',
+        'RemoveUser',
+        'Remove a user from dotlrn',
+        'f',
         1,
-        ''dotlrn_applet.RemoveUser.InputType'',
-        ''dotlrn_applet.RemoveUser.OutputType''
+        'dotlrn_applet.RemoveUser.InputType',
+        'dotlrn_applet.RemoveUser.OutputType'
     );
   
     -- AddUserToCommunity: Adds a user to the a specfic dotlrn community. 
-    -- An example of this is to make the community''s calendar items 
-    -- visable on user''s personal calendar
+    -- An example of this is to make the community's calendar items 
+    -- visable on user's personal calendar
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddUserToCommunity.InputType'',
-        ''community_id:integer,user_id:integer''
+        'dotlrn_applet.AddUserToCommunity.InputType',
+        'community_id:integer,user_id:integer'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddUserToCommunity.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.AddUserToCommunity.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''AddUserToCommunity'',
-        ''Add a user to a community'',
-        ''f'',
+        'dotlrn_applet',
+        'AddUserToCommunity',
+        'Add a user to a community',
+        'f',
         2,
-        ''dotlrn_applet.AddUserToCommunity.InputType'',
-        ''dotlrn_applet.AddUserToCommunity.OutputType''
+        'dotlrn_applet.AddUserToCommunity.InputType',
+        'dotlrn_applet.AddUserToCommunity.OutputType'
     );
 
     -- RemoveUserFromCommunity: Removes a user from a specfic dotlrn
     -- community. Just like above, but removal.
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveUserFromCommunity.InputType'',
-        ''community_id:integer,user_id:integer''
+        'dotlrn_applet.RemoveUserFromCommunity.InputType',
+        'community_id:integer,user_id:integer'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemoveUserFromCommunity.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.RemoveUserFromCommunity.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''RemoveUserFromCommunity'',
-        ''Remove a user from a community, applet does appropriate cleanup'',
-        ''f'',
+        'dotlrn_applet',
+        'RemoveUserFromCommunity',
+        'Remove a user from a community, applet does appropriate cleanup',
+        'f',
         2,
-        ''dotlrn_applet.RemoveUserFromCommunity.InputType'',
-        ''dotlrn_applet.RemoveUserFromCommunity.OutputType''
+        'dotlrn_applet.RemoveUserFromCommunity.InputType',
+        'dotlrn_applet.RemoveUserFromCommunity.OutputType'
     );
 
     -- AddPortlet: Adds the underlying portlet to the given portal
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddPortlet.InputType'',
-        ''portal_id:integer''
+        'dotlrn_applet.AddPortlet.InputType',
+        'portal_id:integer'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.AddPortlet.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.AddPortlet.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''AddPortlet'',
-        ''Adds the underlying portlet to the portal specified'',
-        ''f'',
+        'dotlrn_applet',
+        'AddPortlet',
+        'Adds the underlying portlet to the portal specified',
+        'f',
         1,
-        ''dotlrn_applet.AddPortlet.InputType'',
-        ''dotlrn_applet.AddPortlet.OutputType''
+        'dotlrn_applet.AddPortlet.InputType',
+        'dotlrn_applet.AddPortlet.OutputType'
     );
 
     -- RemovePortlet: the remove corollary of above
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemovePortlet.InputType'',
-        ''portal_id:integer,args:string''
+        'dotlrn_applet.RemovePortlet.InputType',
+        'portal_id:integer,args:string'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.RemovePortlet.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.RemovePortlet.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''RemovePortlet'',
-        ''Removes the underlying portlet from the given portal'',
-        ''f'',
+        'dotlrn_applet',
+        'RemovePortlet',
+        'Removes the underlying portlet from the given portal',
+        'f',
         2,
-        ''dotlrn_applet.RemovePortlet.InputType'',
-        ''dotlrn_applet.RemovePortlet.OutputType''
+        'dotlrn_applet.RemovePortlet.InputType',
+        'dotlrn_applet.RemovePortlet.OutputType'
     );
 
     -- Clone: Attack of the Clones! 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.Clone.InputType'',
-        ''old_community_id:integer,new_community_id:integer''
+        'dotlrn_applet.Clone.InputType',
+        'old_community_id:integer,new_community_id:integer'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.Clone.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.Clone.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''Clone'',
-        ''Clone this applets content from the old to the new community'',
-        ''f'',
+        'dotlrn_applet',
+        'Clone',
+        'Clone this applets content from the old to the new community',
+        'f',
         2,
-        ''dotlrn_applet.Clone.InputType'',
-        ''dotlrn_applet.Clone.OutputType''
+        'dotlrn_applet.Clone.InputType',
+        'dotlrn_applet.Clone.OutputType'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.ChangeEventHandler.InputType'',
-        ''community_id:integer,event:string,old_value:string,new_value:string''
+        'dotlrn_applet.ChangeEventHandler.InputType',
+        'community_id:integer,event:string,old_value:string,new_value:string'
     );
 
     perform acs_sc_msg_type__new(
-        ''dotlrn_applet.ChangeEventHandler.OutputType'',
-        ''success_p:boolean,error_message:string''
+        'dotlrn_applet.ChangeEventHandler.OutputType',
+        'success_p:boolean,error_message:string'
     );
         
     perform acs_sc_operation__new (
-        ''dotlrn_applet'',
-        ''ChangeEventHandler'',
-        ''Handles changes to communities'',
-        ''f'',
+        'dotlrn_applet',
+        'ChangeEventHandler',
+        'Handles changes to communities',
+        'f',
         4,
-        ''dotlrn_applet.ChangeEventHandler.InputType'',
-        ''dotlrn_applet.ChangeEventHandler.OutputType''
+        'dotlrn_applet.ChangeEventHandler.InputType',
+        'dotlrn_applet.ChangeEventHandler.OutputType'
     );
 
     return 0;
 
-end;
-' language 'plpgsql';
+END;
 
+$$ LANGUAGE plpgsql;
+
 select inline_0();
 drop function inline_0();