Index: openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql	30 Sep 2003 12:10:02 -0000	1.12
+++ openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql	2 Mar 2004 17:01:30 -0000	1.13
@@ -152,7 +152,10 @@
    is
        v_contract_id	acs_sc_contracts.contract_id%TYPE;
    begin
-       v_contract_id := acs_object.new( object_type=>'acs_sc_contract');
+       v_contract_id := acs_object.new(
+		object_type => 'acs_sc_contract',
+		title => contract_name
+	);
 
        insert into acs_sc_contracts (
 	      contract_id,
@@ -250,7 +253,10 @@
    begin
 
        v_contract_id := acs_sc_contract.get_id(contract_name);
-       v_operation_id := acs_object.new (object_type=>'acs_sc_operation');
+       v_operation_id := acs_object.new (
+		object_type => 'acs_sc_operation',
+		title => operation_name
+	);
        v_operation_inputtype_id := acs_sc_msg_type.get_id(operation_inputtype);
        v_operation_outputtype_id := acs_sc_msg_type.get_id(operation_outputtype);
 
@@ -341,7 +347,10 @@
    is
        v_impl_id		acs_sc_impls.impl_id%TYPE;
    begin
-       v_impl_id := acs_object.new (object_type => 'acs_sc_implementation');
+       v_impl_id := acs_object.new (
+		object_type => 'acs_sc_implementation',
+		title => impl_pretty_name
+	);
 
        insert into acs_sc_impls (
 	      impl_id,
