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 -r1.14 -r1.15
--- openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql	4 Mar 2004 14:52:46 -0000	1.14
+++ openacs-4/packages/acs-service-contract/sql/oracle/acs-sc-packages-create.sql	12 Mar 2004 18:48:53 -0000	1.15
@@ -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,