Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	6 May 2005 00:30:08 -0000	1.6
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	12 Jun 2006 02:49:51 -0000	1.7
@@ -15,7 +15,7 @@
     percent:array,optional
     selected:array,optional
 } -properties {
-    context:onevalue
+    context_bar:onevalue
     page_title:onevalue
 }
 
@@ -33,7 +33,7 @@
 
 set package_id [ad_conn package_id]
 set page_title [_ assessment.edit_item_type_mc_choices]
-set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] $page_title]
+set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] [list [export_vars -base item-edit {assessment_id section_id as_item_id}] [_ assessment.edit_item]] $page_title]
 
 set selected_options [list [list "[_ assessment.yes]" t]]
 
@@ -124,7 +124,7 @@
 		    ad_return_complaint 1 "[_ assessment.file_zero_size]"
 		    return
 		}
-		set content_rev_id [cr_import_content -title $filename $folder_id $tmp_filename $n_bytes $file_mimetype [exec uuidgen]]
+		set content_rev_id [cr_import_content -title $filename $folder_id $tmp_filename $n_bytes $file_mimetype [as::item::generate_unique_name]]
 		db_dml update_choice_content {}
 	    } elseif {[info exists delete_content($choice_id)]} {
 		db_dml delete_choice_content {}