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
+