Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admin-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-admin-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admin-profile-provider-create.sql 29 Mar 2002 19:14:44 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admin-profile-provider-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -21,48 +21,55 @@
-- @version $Id$
--
+create function inline_0()
+returns integer as '
begin
-- create the implementation
- select acs_sc_impl__new(
- 'profile_provider',
- 'dotlrn_admin_profile_provider',
- 'dotlrn_admin_profile_provider'
+ perform acs_sc_impl__new(
+ ''profile_provider'',
+ ''dotlrn_admin_profile_provider'',
+ ''dotlrn_admin_profile_provider''
);
-- add the bindings to the method implementations
-- name method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_admin_profile_provider',
- 'name',
- 'dotlrn_admin_profile_provider::name',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_admin_profile_provider'',
+ ''name'',
+ ''dotlrn_admin_profile_provider::name'',
+ ''TCL''
);
-- prettyName method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_admin_profile_provider',
- 'prettyName',
- 'dotlrn_admin_profile_provider::prettyName',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_admin_profile_provider'',
+ ''prettyName'',
+ ''dotlrn_admin_profile_provider::prettyName'',
+ ''TCL''
);
-- render method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_admin_profile_provider',
- 'render',
- 'dotlrn_admin_profile_provider::render',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_admin_profile_provider'',
+ ''render'',
+ ''dotlrn_admin_profile_provider::render'',
+ ''TCL''
);
-- bind this implementation to the interface it implements
- select acs_sc_binding__new(
- 'profile_provider',
- 'dotlrn_admin_profile_provider'
+ perform acs_sc_binding__new(
+ ''profile_provider'',
+ ''dotlrn_admin_profile_provider''
);
-end;
+ return 0;
+
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admins-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-admins-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admins-create.sql 2 Jul 2002 18:40:08 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admins-create.sql 2 Jul 2002 19:53:51 -0000 1.4
@@ -29,6 +29,6 @@
primary key
);
-@@ dotlrn-admin-profile-provider-create.sql
-@@ dotlrn-admins-init.sql
-@@ dotlrn-admins-package-create.sql
+\i dotlrn-admin-profile-provider-create.sql
+\i dotlrn-admins-init.sql
+\i dotlrn-admins-package-create.sql
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.4 -r1.5
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql 2 Jul 2002 18:40:08 -0000 1.4
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-create.sql 2 Jul 2002 19:53:51 -0000 1.5
@@ -32,275 +32,283 @@
-- **** SEE THE ORACLE VERSION FOR FULL DESCRIPTIONS ****
--
+create 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', -- not cacheable
+ ''dotlrn_applet'',
+ ''GetPrettyName'',
+ ''Get the pretty name of the applet'',
+ ''t'', -- not cacheable
0, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''AddApplet'',
+ ''Add the Applet to dotlrn - used for one-time initialization'',
+ ''f'', -- not cacheable
0, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''RemoveApplet'',
+ ''Remove the applet'',
+ ''f'', -- not cacheable
0, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''AddAppletToCommunity'',
+ ''Add the Applet to a specific dotlrn community'',
+ ''f'', -- not cacheable
1, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''RemoveAppletFromCommunity'',
+ ''Remove the applet from a given community'',
+ ''f'', -- not cacheable
1, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''AddUser'',
+ ''Add a user to dotlrn, used for user-specific one-time init'',
+ ''f'', -- not cacheable
1, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''RemoveUser'',
+ ''Remove a user from dotlrn'',
+ ''f'', -- not cacheable
1, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''AddUserToCommunity'',
+ ''Add a user to a community'',
+ ''f'', -- not cacheable
2, -- n_args
- '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', -- not cacheable
+ ''dotlrn_applet'',
+ ''RemoveUserFromCommunity'',
+ ''Remove a user from a community, applet does appropriate cleanup'',
+ ''f'', -- not cacheable
2, -- n_args
- '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', -- not cacheable
+ ''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'
+ ''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', -- not cacheable
+ ''dotlrn_applet'',
+ ''RemovePortlet'',
+ ''Removes the underlying portlet from the given portal'',
+ ''f'', -- not cacheable
2, -- n_args
- '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', -- not cacheable
+ ''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'
+ ''dotlrn_applet.Clone.InputType'',
+ ''dotlrn_applet.Clone.OutputType''
);
+ return 0;
+
end;
+' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-applet-sc-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-drop.sql 2 Jul 2002 18:40:08 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-applet-sc-drop.sql 2 Jul 2002 19:53:51 -0000 1.2
@@ -25,163 +25,163 @@
begin
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'GetPrettyName'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.GetPrettyName.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.GetPrettyName.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'AddApplet'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddApplet.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddApplet.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'RemoveApplet'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveApplet.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveApplet.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'AddAppletToCommunity'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddAppletToCommunity.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddAppletToCommunity.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'RemoveAppletFromCommunity'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveAppletFromCommunity.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveAppletFromCommunity.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'AddUser'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddUser.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddUser.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'RemoveUser'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveUser.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveUser.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'AddUserToCommunity'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddUserToCommunity.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddUserToCommunity.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'RemoveUserFromCommunity'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveUserFromCommunity.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemoveUserFromCommunity.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'AddPortlet'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddPortlet.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.AddPortlet.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'RemovePortlet'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemovePortlet.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.RemovePortlet.OutputType'
);
- perform acs_sc_operation__delete(
+ select acs_sc_operation__delete(
'dotlrn_applet',
'Clone'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.Clone.InputType'
);
- perform acs_sc_msg_type__delete(
+ select acs_sc_msg_type__delete(
'dotlrn_applet.Clone.OutputType'
);
- perform acs_sc_contract__delete(
+ select acs_sc_contract__delete(
'dotlrn_applet'
);
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-communities-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-create.sql 2 Jul 2002 18:40:08 -0000 1.5
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-create.sql 2 Jul 2002 19:53:51 -0000 1.6
@@ -24,6 +24,7 @@
-- @author Ben Adida (ben@openforce.net)
-- @author yon (yon@openforce.net
-- @author arjun (arjun@openforce.net)
+-- @author dan chak (chak@openforce.net)
-- @creation-date September 20th, 2001 (redone)
-- @version $Id$
--
@@ -57,7 +58,7 @@
primary key,
parent_community_id integer
constraint dotlrn_c_parent_comm_id_fk
- references dotlrn_communities (community_id),
+ references dotlrn_communities_all (community_id),
community_type varchar(100) not null
constraint dotlrn_c_community_type_fk
references dotlrn_community_types (community_type),
@@ -101,7 +102,7 @@
create index dtlrn_com_all_com_par_id_idx on dotlrn_communities_all (community_id, parent_community_id;
create index dtlrn_com_all_archived_p_idx on dotlrn_communities_all (archived_p);
-create or replace view dotlrn_communities
+create view dotlrn_communities
as
select dotlrn_communities_all.*
from dotlrn_communities_all
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-communities-package-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-package-create.sql 2 Jul 2002 18:40:08 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-package-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -278,8 +278,8 @@
BEGIN
select CASE
WHEN count(*) = 0
- THEN 'f'
- ELSE 't'
+ THEN ''f''
+ ELSE ''t''
END
into v_member_p
from dual
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-package-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-communities-package-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-package-drop.sql 2 Jul 2002 18:40:08 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-package-drop.sql 2 Jul 2002 19:53:51 -0000 1.2
@@ -18,5 +18,5 @@
-- @version $Id$
drop view dotlrn_communities_full;
-perform drop_package('dotlrn_community');
-perform drop_package('dotlrn_community_type');
+select drop_package('dotlrn_community');
+select drop_package('dotlrn_community_type');
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-tree-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-communities-tree-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-tree-drop.sql 2 Jul 2002 18:40:08 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-communities-tree-drop.sql 2 Jul 2002 19:53:51 -0000 1.2
@@ -17,5 +17,7 @@
-- drop the dotLRN communities tree model
-- @author dan chak (chak@openforce.net)
-drop trigger dotlrn_communities_in_tr;
-drop trigger dotlrn_community_types_in_tr;
+--drop trigger dotlrn_communities_in_tr;
+--drop trigger dotlrn_community_types_in_tr;
+drop function dotlrn_communities_in_tr();
+drop function dotlrn_community_types_in_tr();
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-community-memberships-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-community-memberships-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-community-memberships-create.sql 2 Jul 2002 18:40:08 -0000 1.4
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-community-memberships-create.sql 2 Jul 2002 19:53:51 -0000 1.5
@@ -34,7 +34,7 @@
constraint dotlrn_member_rels_rel_id_fk
references membership_rels (rel_id)
constraint dotlrn_member_rels_rel_id_pk
- primary key,
+ primary key
);
create view dotlrn_member_rels_full
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-dotlrn-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-dotlrn-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-dotlrn-drop.sql 2 Jul 2002 18:40:08 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-dotlrn-drop.sql 2 Jul 2002 19:53:51 -0000 1.2
@@ -25,7 +25,7 @@
\i dotlrn-user-extension-drop.sql
\i dotlrn-security-drop.sql
\i dotlrn-main-portlet-drop.sql
-\i dotlrn-community-memberships-packages-drop.sql
+\i dotlrn-community-membership-packages-drop.sql
\i dotlrn-applet-sc-drop.sql
\i dotlrn-class-memberships-drop.sql
\i dotlrn-classes-drop.sql
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-dotlrn-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-dotlrn-sanitize.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-dotlrn-sanitize.sql 2 Jul 2002 18:40:08 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-dotlrn-sanitize.sql 2 Jul 2002 19:53:51 -0000 1.2
@@ -28,150 +28,150 @@
begin
- perform acs_rel_type__drop_type(
+ select acs_rel_type__drop_type(
'dotlrn_admin_rel',
't'
);
-- all rels to communities must have a portal_id
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_member_rel',
'portal_id'
);
-- drop basic rel_types
- perform acs_rel_type__drop_type(
+ select acs_rel_type__drop_type(
'dotlrn_member_rel',
't'
);
-- drop roles
- perform acs_rel_type__drop_role(
+ select acs_rel_type__drop_role(
'student'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'student_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'student_pretty_plural'
);
- perform acs_rel_type__drop_role(
+ select acs_rel_type__drop_role(
'course_assistant'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'course_assistant_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'course_assistant_pretty_plural'
);
- perform acs_rel_type__drop_role(
+ select acs_rel_type__drop_role(
'teaching_assistant'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'teaching_assistant_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'teaching_assistant_pretty_plural'
);
- perform acs_rel_type__drop_role(
+ select acs_rel_type__drop_role(
'instructor'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'instructor_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'instructor_pretty_plural'
);
- perform acs_rel_type__drop_role(
+ select acs_rel_type__drop_role(
'course_admin'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'course_admin_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'course_admin_pretty_plural'
);
- perform acs_rel_type__drop_role(
+ select acs_rel_type__drop_role(
'admin'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'admin_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'admin_pretty_plural'
);
-- drop the dotlrn_club community type
- dotlrn_community_type__delete(
+ select dotlrn_community_type__delete(
'dotlrn_club'
);
-- drop the dotlrn_class community type
- dotlrn_community_type__delete(
+ select dotlrn_community_type__delete(
'dotlrn_class_instance'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'header_font'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'header_font_size'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'header_font_color'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'header_logo_item_id'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'member_pretty_name'
);
- perform acs_attribute__drop_attribute(
+ select acs_attribute__drop_attribute(
'dotlrn_community',
'member_pretty_plural'
);
-- drop the base community type
- perform dotlrn_community_type__delete(
+ select dotlrn_community_type__delete(
'dotlrn_community'
);
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-external-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-external-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-external-profile-provider-create.sql 29 Mar 2002 19:14:44 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-external-profile-provider-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -21,48 +21,56 @@
-- @version $Id$
--
+create function inline_0()
+returns integer as '
begin
-- create the implementation
- select acs_sc_impl__new(
- 'profile_provider',
- 'dotlrn_external_profile_provider',
- 'dotlrn_external_profile_provider'
+ perform acs_sc_impl__new(
+ ''profile_provider'',
+ ''dotlrn_external_profile_provider'',
+ ''dotlrn_external_profile_provider''
);
-- add the bindings to the method implementations
-- name method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_external_profile_provider',
- 'name',
- 'dotlrn_external_profile_provider::name',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_external_profile_provider'',
+ ''name'',
+ ''dotlrn_external_profile_provider::name'',
+ ''TCL''
);
-- prettyName method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_external_profile_provider',
- 'prettyName',
- 'dotlrn_external_profile_provider::prettyName',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_external_profile_provider'',
+ ''prettyName'',
+ ''dotlrn_external_profile_provider::prettyName'',
+ ''TCL''
);
-- render method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_external_profile_provider',
- 'render',
- 'dotlrn_external_profile_provider::render',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_external_profile_provider'',
+ ''render'',
+ ''dotlrn_external_profile_provider::render'',
+ ''TCL''
);
-- bind this implementation to the interface it implements
- select acs_sc_binding__new(
- 'profile_provider',
- 'dotlrn_external_profile_provider'
+ perform acs_sc_binding__new(
+ ''profile_provider'',
+ ''dotlrn_external_profile_provider''
);
-end;
+ return 0;
+
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/dotlrn-init.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-init.sql 2 Jul 2002 18:40:08 -0000 1.4
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-init.sql 2 Jul 2002 19:53:51 -0000 1.5
@@ -32,7 +32,7 @@
begin
-- Create the base community type
- perform dotlrn_community_type__new(
+ select dotlrn_community_type__new(
'dotlrn_community',
null,
'Community',
@@ -41,7 +41,7 @@
);
-- these are the possible attributes of a community
- perform acs_attribute__create_attribute(
+ select acs_attribute__create_attribute(
'dotlrn_community',
'header_font',
'string',
@@ -52,7 +52,7 @@
'generic'
);
- perform acs_attribute__create_attribute(
+ select acs_attribute__create_attribute(
'dotlrn_community',
'header_font_size',
'string',
@@ -63,7 +63,7 @@
'generic'
);
- perform acs_attribute__create_attribute(
+ select acs_attribute__create_attribute(
'dotlrn_community',
'header_font_color',
'string',
@@ -74,7 +74,7 @@
'generic'
);
- perform acs_attribute__create_attribute(
+ select acs_attribute__create_attribute(
'dotlrn_community',
'header_logo_item_id',
'integer',
@@ -85,7 +85,7 @@
'generic'
);
- perform acs_attribute__create_attribute(
+ select acs_attribute__create_attribute(
'dotlrn_community',
'header_logo_alt_text',
'integer',
@@ -98,7 +98,7 @@
-- create the dotlrn_class community type
- perform dotlrn_community_type__new(
+ select dotlrn_community_type__new(
'dotlrn_class_instance',
'dotlrn_community',
'Class',
@@ -119,7 +119,7 @@
update acs_object_types set table_name = 'dotlrn_class_instance', package_name = 'dotlrn_class_instance' where object_type = 'dotlrn_class_instance';
update acs_object_types set table_name = 'dotlrn_club', package_name = 'dotlrn_club' where object_type = 'dotlrn_club';
- perform acs_attribute__create_atribute(
+ select acs_attribute__create_atribute(
'dotlrn_community',
'member_pretty_name',
'string',
@@ -130,7 +130,7 @@
'generic'
);
- perform acs_attribute__create_atribute(
+ select acs_attribute__create_atribute(
'dotlrn_community',
'member_pretty_plural',
'string',
@@ -142,14 +142,14 @@
);
-- create roles
- acs_rel_type__create_role('student', 'Student', 'Students');
- acs_rel_type__create_role('course_assistant', 'Course Assistant', 'Course Assistants');
- acs_rel_type__create_role('teaching_assistant', 'Teaching Assistant', 'Teaching Assistants');
- acs_rel_type__create_role('instructor', 'Professor', 'Professors');
- acs_rel_type__create_role('course_admin', 'Course Administrator', 'Course Administrators');
- acs_rel_type__create_role('admin', 'Administrator', 'Administrators');
+ select acs_rel_type__create_role('student', 'Student', 'Students');
+ select acs_rel_type__create_role('course_assistant', 'Course Assistant', 'Course Assistants');
+ select acs_rel_type__create_role('teaching_assistant', 'Teaching Assistant', 'Teaching Assistants');
+ select acs_rel_type__create_role('instructor', 'Professor', 'Professors');
+ select acs_rel_type__create_role('course_admin', 'Course Administrator', 'Course Administrators');
+ select acs_rel_type__create_role('admin', 'Administrator', 'Administrators');
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'student_pretty_name',
'string',
@@ -160,7 +160,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'student_pretty_plural',
'string',
@@ -171,7 +171,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'course_assistant_pretty_name',
'string',
@@ -182,7 +182,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'course_assistant_pretty_plural',
'string',
@@ -193,7 +193,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'teaching_assistant_pretty_name',
'string',
@@ -204,7 +204,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'teaching_assistant_pretty_plural',
'string',
@@ -215,7 +215,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'instructor_pretty_name',
'string',
@@ -226,7 +226,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'instructor_pretty_plural',
'string',
@@ -237,7 +237,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'course_admin_pretty_name',
'string',
@@ -248,7 +248,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'course_admin_pretty_plural',
'string',
@@ -259,7 +259,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'admin_pretty_name',
'string',
@@ -270,7 +270,7 @@
'generic'
);
- perform acs_attribute__create_atribute (
+ select acs_attribute__create_atribute (
'dotlrn_community',
'admin_pretty_plural',
'string',
@@ -283,7 +283,7 @@
-- create basic rel_types
- perform acs_rel_type__create_type (
+ select acs_rel_type__create_type (
'dotlrn_member_rel',
'membership_rel',
'dotLRN Community Membership',
@@ -301,7 +301,7 @@
null
);
- perform acs_rel_type__create_type (
+ select acs_rel_type__create_type (
'dotlrn_admin_rel',
'dotlrn_member_rel',
'dotLRN Admin Community Membership',
@@ -320,7 +320,7 @@
);
-- all rels to communities must have a portal_id
- perform acs_rel_type__create_type (
+ select acs_rel_type__create_type (
'dotlrn_member_rel',
'portal_id',
'integer',
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-main-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-main-portlet-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-main-portlet-create.sql 2 Jul 2002 18:40:08 -0000 1.4
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-main-portlet-create.sql 2 Jul 2002 19:53:51 -0000 1.5
@@ -32,7 +32,7 @@
-- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
create function inline_0 ()
-return integer as '
+returns integer as '
declare
begin
ds_id portal_datasources.datasource_id%TYPE;
@@ -45,87 +45,87 @@
-- the standard 4 params
-- shadeable_p
- select portal_datasource.set_def_param(
+ perform portal_datasource.set_def_param(
ds_id, ''t'', ''t'', ''shadeable_p'', ''f''
);
-- hideable_p
- select portal_datasource__set_def_param(
+ perform portal_datasource__set_def_param(
ds_id, ''t'', ''t'', ''hideable_p'', ''f''
);
-- user_editable_p
- select portal_datasource__set_def_param(
+ perform portal_datasource__set_def_param(
ds_id, ''t'', ''t'', ''user_editable_p'', ''f''
);
-- shaded_p
- select portal_datasource__set_def_param(
+ perform portal_datasource__set_def_param(
ds_id, ''t'', ''t'', ''shaded_p'', ''f''
);
-- link_hideable_p
- select portal_datasource__set_def_param(
+ perform portal_datasource__set_def_param(
ds_id, ''t'', ''t'', ''link_hideable_p'', ''t''
);
-- create the implementation
- select acs_sc_impl__new(
+ perform acs_sc_impl__new(
''portal_datasource'',
''dotlrn_main_portlet'',
''dotlrn_main_portlet''
);
-- add all the hooks
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''GetMyName'',
''dotlrn_main_portlet::get_my_name'',
''TCL''
);
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''GetPrettyName'',
''dotlrn_main_portlet::get_pretty_name'',
''TCL''
);
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''Link'',
''dotlrn_main_portlet::link'',
''TCL''
);
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''AddSelfToPage'',
''dotlrn_main_portlet::add_self_to_page'',
''TCL''
);
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''RemoveSelfFromPage'',
''dotlrn_main_portlet::remove_self_from_page'',
''TCL''
);
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''Show'',
''dotlrn_main_portlet::show'',
''TCL''
);
- select acs_sc_impl_alias__new (
+ perform acs_sc_impl_alias__new (
''portal_datasource'',
''dotlrn_main_portlet'',
''Edit'',
@@ -134,7 +134,7 @@
);
-- Add the binding
- select acs_sc_binding__new (
+ perform acs_sc_binding__new (
''portal_datasource'',
''dotlrn_main_portlet''
);
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-main-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-main-portlet-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-main-portlet-drop.sql 2 Jul 2002 18:40:08 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-main-portlet-drop.sql 2 Jul 2002 19:53:51 -0000 1.4
@@ -38,50 +38,50 @@
''dotlrn_main_portlet''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''GetMyName''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''GetPrettyName''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''Link''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''AddSelfToPage''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''RemoveSelfFromPage''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''Show''
);
- perform acs_sc_impl__delete_alias(
+ perform acs_sc_impl_alias__delete(
''portal_datasource'',
''dotlrn_main_portlet'',
''Edit''
);
perform acs_sc_impl__delete(
- ''portal_datasource','
+ ''portal_datasource'',
''dotlrn_main_portlet''
);
@@ -100,5 +100,6 @@
end;
' language 'plpgsql';
-perform inline_0();
-delete function inline_0;
+select inline_0();
+delete function inline_0();
+
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-professor-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-professor-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-professor-profile-provider-create.sql 29 Mar 2002 19:14:44 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-professor-profile-provider-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -18,51 +18,60 @@
-- Implementation of the profile provider interface for dotLRN Professors.
--
-- @author yon@openforce.net
+-- @author dan chak (chak@openforce.net)
-- @version $Id$
--
+create function inline_0()
+returns integer as '
begin
-- create the implementation
- select acs_sc_impl__new(
- 'profile_provider',
- 'dotlrn_professor_profile_provider',
- 'dotlrn_professor_profile_provider'
+ perform acs_sc_impl__new(
+ ''profile_provider'',
+ ''dotlrn_professor_profile_provider'',
+ ''dotlrn_professor_profile_provider''
);
-- add the bindings to the method implementations
-- name method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_professor_profile_provider',
- 'name',
- 'dotlrn_professor_profile_provider::name',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_professor_profile_provider'',
+ ''name'',
+ ''dotlrn_professor_profile_provider::name'',
+ ''TCL''
);
-- prettyName method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_professor_profile_provider',
- 'prettyName',
- 'dotlrn_professor_profile_provider::prettyName',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_professor_profile_provider'',
+ ''prettyName'',
+ ''dotlrn_professor_profile_provider::prettyName'',
+ ''TCL''
);
-- render method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_professor_profile_provider',
- 'render',
- 'dotlrn_professor_profile_provider::render',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_professor_profile_provider'',
+ ''render'',
+ ''dotlrn_professor_profile_provider::render'',
+ ''TCL''
);
-- bind this implementation to the interface it implements
- select acs_sc_binding__new(
- 'profile_provider',
- 'dotlrn_professor_profile_provider'
+ perform acs_sc_binding__new(
+ ''profile_provider'',
+ ''dotlrn_professor_profile_provider''
);
+
+ return 0;
-end;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-professors-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-professors-init.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-professors-init.sql 2 Jul 2002 18:40:08 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-professors-init.sql 2 Jul 2002 19:53:51 -0000 1.4
@@ -80,18 +80,11 @@
group_id
);
+ return 0;
+
end;
' language 'plpgsql';
select inline_1();
drop function inline_1();
-
-create function inline_2()
-returns integer as '
-declare
- foo integer;
-begin
- PERFORM acs_rel_type--create_type(
- ''dotlrn_full_professor_profile_rel'',
- ''dotLRN Full Professor Profile Membership'',
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-security-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-security-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-security-create.sql 2 Jul 2002 18:40:08 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-security-create.sql 2 Jul 2002 19:53:51 -0000 1.4
@@ -31,48 +31,53 @@
-- Security Setup for dotLRN
-- privileges, privilege inheritance
--
-
+create function inline_0()
+returns integer as '
BEGIN
-- the ability to browse dotLRN in general
- PERFORM acs_privilege__create_privilege('dotlrn_browse');
+ perform acs_privilege__create_privilege(''dotlrn_browse'');
-- the ability to even view that a community exists
- PERFORM acs_privilege__create_privilege('dotlrn_view_community');
+ perform acs_privilege__create_privilege(''dotlrn_view_community'');
-- the ability to participate in a community
- PERFORM acs_privilege__create_privilege('dotlrn_edit_community');
+ perform acs_privilege__create_privilege(''dotlrn_edit_community'');
-- the ability to admin a community
- PERFORM acs_privilege__create_privilege('dotlrn_admin_community');
+ perform acs_privilege__create_privilege(''dotlrn_admin_community'');
-- the ability to create a community
- PERFORM acs_privilege__create_privilege('dotlrn_create_community');
+ perform acs_privilege__create_privilege(''dotlrn_create_community'');
-- the ability to even view a community type
- PERFORM acs_privilege__create_privilege('dotlrn_view_community_type');
+ perform acs_privilege__create_privilege(''dotlrn_view_community_type'');
-- the ability to admin a community type
- PERFORM acs_privilege__create_privilege('dotlrn_admin_community_type');
+ perform acs_privilege__create_privilege(''dotlrn_admin_community_type'');
-- the ability to create a community type
- PERFORM acs_privilege__create_privilege('dotlrn_create_community_type');
+ perform acs_privilege__create_privilege(''dotlrn_create_community_type'');
-- Consistent permissions
- PERFORM acs_privilege__add_child('dotlrn_edit_community', 'dotlrn_view_community');
- PERFORM acs_privilege__add_child('dotlrn_admin_community', 'dotlrn_edit_community');
+ perform acs_privilege__add_child(''dotlrn_edit_community'', ''dotlrn_view_community'');
+ perform acs_privilege__add_child(''dotlrn_admin_community'', ''dotlrn_edit_community'');
-- inheritance
- PERFORM acs_privilege__add_child('create', 'dotlrn_create_community_type');
- PERFORM acs_privilege__add_child('create', 'dotlrn_create_community');
- PERFORM acs_privilege__add_child('write', 'dotlrn_edit_community');
- PERFORM acs_privilege__add_child('read', 'dotlrn_view_community');
- PERFORM acs_privilege__add_child('read', 'dotlrn_view_community_type');
- PERFORM acs_privilege__add_child('admin', 'dotlrn_admin_community');
- PERFORM acs_privilege__add_child('admin', 'dotlrn_admin_community_type');
+ perform acs_privilege__add_child(''create'', ''dotlrn_create_community_type'');
+ perform acs_privilege__add_child(''create'', ''dotlrn_create_community'');
+ perform acs_privilege__add_child(''write'', ''dotlrn_edit_community'');
+ perform acs_privilege__add_child(''read'', ''dotlrn_view_community'');
+ perform acs_privilege__add_child(''read'', ''dotlrn_view_community_type'');
+ perform acs_privilege__add_child(''admin'', ''dotlrn_admin_community'');
+ perform acs_privilege__add_child(''admin'', ''dotlrn_admin_community_type'');
-- for now, we only want admins to be able to browse by default
- PERFORM acs_privilege__add_child('admin', 'dotlrn_browse');
+ perform acs_privilege__add_child(''admin'', ''dotlrn_browse'');
-- no default permissions
-end;
+ return 0;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-student-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-student-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-student-profile-provider-create.sql 29 Mar 2002 19:14:44 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-student-profile-provider-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -18,51 +18,60 @@
-- Implementation of the profile provider interface for dotLRN Students.
--
-- @author yon@openforce.net
+-- @author dan chak (chak@openforce.net)
-- @version $Id$
--
+create function inline_0()
+returns integer as '
begin
-- create the implementation
- select acs_sc_impl__new(
- 'profile_provider',
- 'dotlrn_student_profile_provider',
- 'dotlrn_student_profile_provider'
+ perform acs_sc_impl__new(
+ ''profile_provider'',
+ ''dotlrn_student_profile_provider'',
+ ''dotlrn_student_profile_provider''
);
-- add the bindings to the method implementations
-- name method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_student_profile_provider',
- 'name',
- 'dotlrn_student_profile_provider::name',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_student_profile_provider'',
+ ''name'',
+ ''dotlrn_student_profile_provider::name'',
+ ''TCL''
);
-- prettyName method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_student_profile_provider',
- 'prettyName',
- 'dotlrn_student_profile_provider::prettyName',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_student_profile_provider'',
+ ''prettyName'',
+ ''dotlrn_student_profile_provider::prettyName'',
+ ''TCL''
);
-- render method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_student_profile_provider',
- 'render',
- 'dotlrn_student_profile_provider::render',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_student_profile_provider'',
+ ''render'',
+ ''dotlrn_student_profile_provider::render'',
+ ''TCL''
);
-- bind this implementation to the interface it implements
- select acs_sc_binding__new(
- 'profile_provider',
- 'dotlrn_student_profile_provider'
+ perform acs_sc_binding__new(
+ ''profile_provider'',
+ ''dotlrn_student_profile_provider''
);
-end;
+ return 0;
+
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-students-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-students-init.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-students-init.sql 2 Jul 2002 18:40:08 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-students-init.sql 2 Jul 2002 19:53:51 -0000 1.4
@@ -80,6 +80,8 @@
group_id
);
+ return 0;
+
end;
' language 'plpgsql';
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-extension-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-user-extension-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-extension-create.sql 29 Mar 2002 19:14:44 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-extension-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -22,69 +22,77 @@
--
-- ported to PG by Yon and Ben
-- ben@openforce.net
+-- @author dan chak (chak@openforce.net)
+-- $Id$
--
-- 01/22/2002
--
-
+create function inline_0()
+returns integer as '
begin
-- create the implementation
- select acs_sc_impl__new (
- 'UserData',
- 'dotlrn_user_extension',
- 'dotlrn_user_extension'
+ perform acs_sc_impl__new (
+ ''UserData'',
+ ''dotlrn_user_extension'',
+ ''dotlrn_user_extension''
);
-- add all the hooks
-- UserNew
- select acs_sc_impl_alias__new (
- 'UserData',
- 'dotlrn_user_extension',
- 'UserNew',
- 'dotlrn_user_extension::user_new',
- 'TCL'
+ perform acs_sc_impl_alias__new (
+ ''UserData'',
+ ''dotlrn_user_extension'',
+ ''UserNew'',
+ ''dotlrn_user_extension::user_new'',
+ ''TCL''
);
-- UserNew
- select acs_sc_impl_alias__new (
- 'UserData',
- 'dotlrn_user_extension',
- 'UserApprove',
- 'dotlrn_user_extension::user_approve',
- 'TCL'
+ perform acs_sc_impl_alias__new (
+ ''UserData'',
+ ''dotlrn_user_extension'',
+ ''UserApprove'',
+ ''dotlrn_user_extension::user_approve'',
+ ''TCL''
);
-- UserNew
- select acs_sc_impl_alias__new (
- 'UserData',
- 'dotlrn_user_extension',
- 'UserDeapprove',
- 'dotlrn_user_extension::user_deapprove',
- 'TCL'
+ perform acs_sc_impl_alias__new (
+ ''UserData'',
+ ''dotlrn_user_extension'',
+ ''UserDeapprove'',
+ ''dotlrn_user_extension::user_deapprove'',
+ ''TCL''
);
-- UserNew
- select acs_sc_impl_alias__new (
- 'UserData',
- 'dotlrn_user_extension',
- 'UserModify',
- 'dotlrn_user_extension::user_modify',
- 'TCL'
+ perform acs_sc_impl_alias__new (
+ ''UserData'',
+ ''dotlrn_user_extension'',
+ ''UserModify'',
+ ''dotlrn_user_extension::user_modify'',
+ ''TCL''
);
-- UserNew
- select acs_sc_impl_alias__new (
- 'UserData',
- 'dotlrn_user_extension',
- 'UserDelete',
- 'dotlrn_user_extension::user_delete',
- 'TCL'
+ perform acs_sc_impl_alias__new (
+ ''UserData'',
+ ''dotlrn_user_extension'',
+ ''UserDelete'',
+ ''dotlrn_user_extension::user_delete'',
+ ''TCL''
);
-- Add the binding
- select acs_sc_binding__new (
- 'UserData',
- 'dotlrn_user_extension'
+ perform acs_sc_binding__new (
+ ''UserData'',
+ ''dotlrn_user_extension''
);
-end;
+
+ return 0;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-extension-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-user-extension-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-extension-drop.sql 2 Jul 2002 18:40:08 -0000 1.1
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-extension-drop.sql 2 Jul 2002 19:53:51 -0000 1.2
@@ -30,45 +30,46 @@
begin
- perform acs_sc_binding__delete (
+ select acs_sc_binding__delete (
'UserData',
'dotlrn_user_extension'
);
- perform acs_sc_impl__delete_alias (
+ select acs_sc_impl_alias__delete (
'UserData',
'dotlrn_user_extension',
'UserNew'
);
- perform acs_sc_impl__delete_alias (
+ select acs_sc_impl_alias__delete (
'UserData',
'dotlrn_user_extension',
'UserApprove'
);
- perform acs_sc_impl__delete_alias (
+ select acs_sc_impl_alias__delete (
'UserData',
'dotlrn_user_extension',
'UserDeapprove'
);
- perform acs_sc_impl__delete_alias (
+ select acs_sc_impl_alias__delete (
'UserData',
'dotlrn_user_extension',
'UserModify'
);
- perform acs_sc_impl__delete_alias (
+ select acs_sc_impl_alias__delete (
'UserData',
'dotlrn_user_extension',
'UserDelete'
);
-- create the implementation
- perform acs_sc_impl__delete(
+ select acs_sc_impl__delete(
'UserData',
'dotlrn_user_extension'
);
end;
+
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-user-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-profile-provider-create.sql 29 Mar 2002 19:14:44 -0000 1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-user-profile-provider-create.sql 2 Jul 2002 19:53:51 -0000 1.3
@@ -20,49 +20,55 @@
-- @author yon@openforce.net
-- @version $Id$
--
-
+create function inline_0()
+returns integer as '
begin
-- create the implementation
- select acs_sc_impl__new(
- 'profile_provider',
- 'dotlrn_user_profile_provider',
- 'dotlrn_user_profile_provider'
+ perform acs_sc_impl__new(
+ ''profile_provider'',
+ ''dotlrn_user_profile_provider'',
+ ''dotlrn_user_profile_provider''
);
-- add the bindings to the method implementations
-- name method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_user_profile_provider',
- 'name',
- 'dotlrn_user_profile_provider::name',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_user_profile_provider'',
+ ''name'',
+ ''dotlrn_user_profile_provider::name'',
+ ''TCL''
);
-- prettyName method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_user_profile_provider',
- 'prettyName',
- 'dotlrn_user_profile_provider::prettyName',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_user_profile_provider'',
+ ''prettyName'',
+ ''dotlrn_user_profile_provider::prettyName'',
+ ''TCL''
);
-- render method
- select acs_sc_impl_alias__new(
- 'profile_provider',
- 'dotlrn_user_profile_provider',
- 'render',
- 'dotlrn_user_profile_provider::render',
- 'TCL'
+ perform acs_sc_impl_alias__new(
+ ''profile_provider'',
+ ''dotlrn_user_profile_provider'',
+ ''render'',
+ ''dotlrn_user_profile_provider::render'',
+ ''TCL''
);
-- bind this implementation to the interface it implements
- select acs_sc_binding__new(
- 'profile_provider',
- 'dotlrn_user_profile_provider'
+ perform acs_sc_binding__new(
+ ''profile_provider'',
+ ''dotlrn_user_profile_provider''
);
+
+ return 0;
-end;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-users-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-users-init.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-users-init.sql 2 Jul 2002 18:40:08 -0000 1.3
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-users-init.sql 2 Jul 2002 19:53:51 -0000 1.4
@@ -27,7 +27,7 @@
foo integer;
begin
- acs_rel_type__create_type(
+ perform acs_rel_type__create_type(
''dotlrn_user_profile_rel'',
''dotLRN User Profile Membership'',
''dotLRN User Profile Memberships'',