Index: openacs-4/packages/curriculum-central/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/install-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/tcl/install-procs.tcl	20 Nov 2005 23:51:10 -0000	1.1
+++ openacs-4/packages/curriculum-central/tcl/install-procs.tcl	11 Dec 2005 07:47:40 -0000	1.2
@@ -71,6 +71,8 @@
 
 ad_proc -private curriculum_central::install::register_implementations {} {
     db_transaction {
+	curriculum_central::install::register_unit_coordinator_impl
+	curriculum_central::install::register_stream_coordinator_impl	
         curriculum_central::install::register_format_log_title_impl
         curriculum_central::install::register_uos_notification_info_impl
     }
@@ -85,6 +87,15 @@
 	    -impl_name "FormatLogTitle"
 
         acs_sc::impl::delete \
+                -contract_name [workflow::service_contract::role_default_assignees]  \
+                -impl_name "UnitCoordinator"
+
+        acs_sc::impl::delete \
+                -contract_name [workflow::service_contract::role_default_assignees] \
+                -impl_name "StreamCoordinator"
+
+
+        acs_sc::impl::delete \
 	    -contract_name [workflow::service_contract::notification_info] \
 	    -impl_name "UoSNotificationInfo"
     }
@@ -129,6 +140,42 @@
 }
 
 
+ad_proc -private curriculum_central::install::register_unit_coordinator_impl {} {
+
+    set spec {
+        name "UnitCoordinator"
+        aliases {
+            GetObjectType curriculum_central::uos::object_type
+            GetPrettyName curriculum_central::uos::get_unit_coordinator::pretty_name
+            GetAssignees  curriculum_central::uos::get_unit_coordinator::get_assignees
+        }
+    }
+    
+    lappend spec contract_name [workflow::service_contract::role_default_assignees]
+    lappend spec owner [curriculum_central::package_key]
+    
+    acs_sc::impl::new_from_spec -spec $spec
+}
+
+
+ad_proc -private curriculum_central::install::register_stream_coordinator_impl {} {
+
+    set spec {
+        name "StreamCoordinator"
+        aliases {
+            GetObjectType curriculum_central::uos::object_type
+            GetPrettyName curriculum_central::uos::get_stream_coordinator::pretty_name
+            GetAssignees  curriculum_central::uos::get_stream_coordinator::get_assignees
+        }
+    }
+    
+    lappend spec contract_name [workflow::service_contract::role_default_assignees]
+    lappend spec owner [curriculum_central::package_key]
+    
+    acs_sc::impl::new_from_spec -spec $spec
+}
+
+
 ad_proc -private curriculum_central::install::roles_create {} {
     Creates the Stream Coordinator, Unit Coordinator and Lecturer roles.
 } {