Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	5 Dec 2004 17:17:12 -0000	1.7
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	6 Dec 2004 12:26:53 -0000	1.8
@@ -11,7 +11,7 @@
     {-creator_id ""}
     {-description ""}
     {-instructions ""}
-    {-mode ""}
+    {-run_mode ""}
     {-anonymous_p ""}
     {-secure_access_p ""}
     {-reuse_responses_p ""}
@@ -48,7 +48,7 @@
 				  -description $description \
 				  -attributes [list [list creator_id $creator_id] \
 						   [list instructions $instructions] \
-						   [list mode $mode] \
+						   [list run_mode $run_mode] \
 						   [list anonymous_p $anonymous_p] \
 						   [list secure_access_p $secure_access_p] \
 						   [list reuse_responses_p $reuse_responses_p] \
@@ -76,7 +76,7 @@
     {-creator_id ""}
     {-description ""}
     {-instructions ""}
-    {-mode ""}
+    {-run_mode ""}
     {-anonymous_p ""}
     {-secure_access_p ""}
     {-reuse_responses_p ""}
@@ -109,7 +109,7 @@
 			    -description $description \
 			    -attributes [list [list creator_id $creator_id] \
 					     [list instructions $instructions] \
-					     [list mode $mode] \
+					     [list run_mode $run_mode] \
 					     [list anonymous_p $anonymous_p] \
 					     [list secure_access_p $secure_access_p] \
 					     [list reuse_responses_p $reuse_responses_p] \
@@ -179,7 +179,7 @@
 			    -description $a(description) \
 			    -attributes [list [list creator_id $a(creator_id)] \
 					     [list instructions $a(instructions)] \
-					     [list mode $a(mode)] \
+					     [list run_mode $a(run_mode)] \
 					     [list anonymous_p $a(anonymous_p)] \
 					     [list secure_access_p $a(secure_access_p)] \
 					     [list reuse_responses_p $a(reuse_responses_p)] \