Index: openacs-4/packages/assessment/tcl/as-section-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-display-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-section-display-procs.tcl	19 Jan 2005 16:49:14 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-section-display-procs.tcl	12 Jun 2006 02:49:50 -0000	1.3
@@ -26,21 +26,20 @@
 
     # Insert as_section_display_type in the CR (and as_section_display_types table) getting the revision_id (display_type_id)
     db_transaction {
-	set display_item_id [content::item::new -parent_id $folder_id -content_type {as_section_display_types} -name [exec uuidgen]]
+	set display_item_id [content::item::new -parent_id $folder_id -content_type {as_section_display_types} -name [as::item::generate_unique_name]]
 
 	set display_id [content::revision::new \
 			    -item_id $display_item_id \
 			    -content_type {as_section_display_types} \
 			    -title $title \
 			    -description $description \
 			    -attributes [list [list num_items $num_items] \
-					     [list adp_chunk $adp_chunk] \
 					     [list branched_p $branched_p] \
 					     [list back_button_p $back_button_p] \
 					     [list submit_answer_p $submit_answer_p] \
 					     [list sort_order_type $sort_order_type] ] ]
     }
-
+    db_dml update_clobs "" -clobs [list $adp_chunk]
     return $display_id
 }
 
@@ -70,12 +69,11 @@
 			    -title $title \
 			    -description $description \
 			    -attributes [list [list num_items $num_items] \
-					     [list adp_chunk $adp_chunk] \
 					     [list branched_p $branched_p] \
 					     [list back_button_p $back_button_p] \
 					     [list submit_answer_p $submit_answer_p] \
 					     [list sort_order_type $sort_order_type] ] ]
     }
-
+    db_dml update_clobs "" -clobs [list $adp_chunk]
     return $display_id
 }