Index: openacs-4/packages/curriculum/lib/curriculum-ave.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/curriculum-ave.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/curriculum/lib/curriculum-ave.tcl	22 Feb 2004 22:01:54 -0000	1.12
+++ openacs-4/packages/curriculum/lib/curriculum-ave.tcl	5 Jul 2004 14:07:20 -0000	1.13
@@ -228,6 +228,13 @@
     
 } -edit_data {
 
+    # Esti: the roles where not assigned because they were not included in the curriculum_array
+    foreach role_id [workflow::get_roles -workflow_id [workflow::case::get_element -case_id $case_id -element workflow_id]] {
+        workflow::role::get -role_id $role_id -array role
+        set element "role_$role(short_name)"
+        set curriculum_array($element) [set $element]
+    }
+    
     curriculum::edit \
 	-curriculum_id $curriculum_id \
 	-name $name \