Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/workflow/tcl/role-procs.tcl	22 Jan 2004 09:53:20 -0000	1.17
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	23 Jan 2004 11:02:27 -0000	1.18
@@ -58,6 +58,7 @@
     {-workflow_id {}}
     {-array {}}
     {-internal:boolean}
+    {-no_complain:boolean}
 } {
     Edit a workflow role. 
 
@@ -78,6 +79,12 @@
     
     @param array        For insert/update: Name of an array in the caller's namespace with attributes to insert/update.
 
+    @param internal     Set this flag if you're calling this proc from within the corresponding proc 
+                        for a particular workflow model. Will cause this proc to not flush the cache 
+                        or call workflow::definition_changed_handler, which the caller must then do.
+
+    @param no_complain  Silently ignore extra attributes that we don't know how to handle. 
+                        
     @return             role_id
     
     @see workflow::role::new
@@ -246,7 +253,7 @@
                 }
 
                 # Check that there are no unknown attributes
-                if { [llength [array names missing_elm]] > 0 } {
+                if { [llength [array names missing_elm]] > 0 && !$no_complain } {
                     error "Trying to set illegal role attributes: [join [array names missing_elm] ", "]"
                 }
             }