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.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	14 Nov 2004 16:47:04 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	15 Nov 2004 17:17:15 -0000	1.3
@@ -7,7 +7,6 @@
 namespace eval as::assessment {}
 
 ad_proc -public as::assessment::new {
-    {-name:required}
     {-title:required}
     {-creator_id ""}
     {-description ""}
@@ -40,7 +39,7 @@
 
     # Insert as_assessment in the CR (and as_assessments table) getting the revision_id (as_assessment_id)
     db_transaction {
-	set assessment_item_id [content::item::new -parent_id $folder_id -content_type {as_assessments} -name $name -title $title ]
+	set assessment_item_id [content::item::new -parent_id $folder_id -content_type {as_assessments} -name [ad_generate_random_string] -title $title ]
 
 	set as_assessment_id [content::revision::new \
 				  -item_id $assessment_item_id \