Index: openacs-4/packages/acs-subsite/acs-subsite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-subsite/acs-subsite.info 29 Nov 2001 02:11:23 -0000 1.22
+++ openacs-4/packages/acs-subsite/acs-subsite.info 23 Jan 2002 02:05:31 -0000 1.23
@@ -45,6 +45,7 @@
<file type="data_model_upgrade" db_type="oracle" path="sql/oracle/upgrade/upgrade-4.1.1-4.2.sql"/>
<file type="data_model" db_type="oracle" path="sql/oracle/user-profiles-create.sql"/>
<file type="data_model" db_type="oracle" path="sql/oracle/user-profiles-drop.sql"/>
+ <file type="data_model" db_type="oracle" path="sql/oracle/user-sc-create.sql"/>
<file type="data_model_create" db_type="postgresql" path="sql/postgresql/acs-subsite-create.sql"/>
<file type="data_model_drop" db_type="postgresql" path="sql/postgresql/acs-subsite-drop.sql"/>
<file type="data_model" db_type="postgresql" path="sql/postgresql/application-groups-create.sql"/>
Index: openacs-4/packages/acs-subsite/sql/oracle/acs-subsite-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/sql/oracle/acs-subsite-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/sql/oracle/acs-subsite-create.sql 10 Oct 2001 18:01:48 -0000 1.2
+++ openacs-4/packages/acs-subsite/sql/oracle/acs-subsite-create.sql 23 Jan 2002 02:05:31 -0000 1.3
@@ -12,6 +12,7 @@
@@ application-groups-create
@@ subsite-callbacks-create
@@ host-node-map-create
+@@ user-sc-create
-- This view lets us avoid using acs_object.name to get party_names.
--
Index: openacs-4/packages/acs-subsite/sql/oracle/user-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/sql/oracle/user-sc-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/sql/oracle/user-sc-create.sql 23 Jan 2002 02:05:31 -0000 1.1
@@ -0,0 +1,144 @@
+
+--
+-- A service contract for allowing packages to be notified of changes in user information
+--
+-- The operations defined here are
+-- UserData.UserNew
+-- UserData.UserApprove
+-- UserData.UserDeapprove
+-- UserData.UserDelete
+-- UserData.UserModify
+--
+-- ben@openforce
+-- Jan 22, 2002
+
+declare
+ foo integer;
+begin
+ foo := acs_sc_contract.new(
+ contract_name => 'UserData',
+ contract_desc => 'User Data Updates'
+ );
+
+ -- The UserNew operation
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserNew.InputType',
+ msg_type_spec => 'user_id:integer'
+ );
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserNew.OutputType',
+ msg_type_spec => ''
+ );
+
+ foo := acs_sc_operation.new(
+ contract_name => 'UserData',
+ operation_name => 'UserNew',
+ operation_desc => 'Notify that a new user has been created',
+ operation_iscachable_p => 'f',
+ operation_nargs => 1,
+ operation_inputtype => 'UserData.UserNew.InputType',
+ operation_outputtype => 'UserData.UserNew.OutputType'
+ );
+
+
+ -- The UserApprove operation
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserApprove.InputType',
+ msg_type_spec => 'user_id:integer'
+ );
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserApprove.OutputType',
+ msg_type_spec => ''
+ );
+
+ foo := acs_sc_operation.new(
+ contract_name => 'UserData',
+ operation_name => 'UserApprove',
+ operation_desc => 'Notify that a user has been approved',
+ operation_iscachable_p => 'f',
+ operation_nargs => 1,
+ operation_inputtype => 'UserData.UserApprove.InputType',
+ operation_outputtype => 'UserData.UserApprove.OutputType'
+ );
+
+
+ -- The UserDeapprove operation
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserDeapprove.InputType',
+ msg_type_spec => 'user_id:integer'
+ );
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserDeapprove.OutputType',
+ msg_type_spec => ''
+ );
+
+ foo := acs_sc_operation.new(
+ contract_name => 'UserData',
+ operation_name => 'UserDeapprove',
+ operation_desc => 'Notify that a user has been deapproved',
+ operation_iscachable_p => 'f',
+ operation_nargs => 1,
+ operation_inputtype => 'UserData.UserDeapprove.InputType',
+ operation_outputtype => 'UserData.UserDeapprove.OutputType'
+ );
+
+
+ -- The UserModify operation
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserModify.InputType',
+ msg_type_spec => 'user_id:integer'
+ );
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserModify.OutputType',
+ msg_type_spec => ''
+ );
+
+ foo := acs_sc_operation.new(
+ contract_name => 'UserData',
+ operation_name => 'UserModify',
+ operation_desc => 'Notify that a user has been modified',
+ operation_iscachable_p => 'f',
+ operation_nargs => 1,
+ operation_inputtype => 'UserData.UserModify.InputType',
+ operation_outputtype => 'UserData.UserModify.OutputType'
+ );
+
+
+
+ -- The UserDelete operation
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserDelete.InputType',
+ msg_type_spec => 'user_id:integer'
+ );
+
+ foo := acs_sc_msg_type.new(
+ msg_type_name => 'UserData.UserDelete.OutputType',
+ msg_type_spec => ''
+ );
+
+ foo := acs_sc_operation.new (
+ contract_name => 'UserData',
+ operation_name => 'UserDelete',
+ operation_desc => 'Notify that a user has been deleted',
+ operation_iscachable_p => 'f',
+ operation_nargs => 1,
+ operation_inputtype => 'UserData.UserDelete.InputType',
+ operation_outputtype => 'UserData.UserDelete.OutputType'
+ );
+
+
+
+
+end;
+/
+show errors
+