Index: openacs-4/packages/assessment/www/admin/item-add-display-tb.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-display-tb.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/item-add-display-tb.tcl	5 Dec 2004 17:14:16 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/item-add-display-tb.tcl	8 Dec 2004 15:30:34 -0000	1.2
@@ -23,7 +23,7 @@
     ad_script_abort
 }
 
-set page_title [_ assessment.add_new_question]
+set page_title [_ assessment.add_item_display_tb]
 set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title]
 
 
@@ -41,15 +41,15 @@
 } -edit_request {
     set html_options ""
     set abs_size 20
-    set answer_alignment "beside-right"
+    set answer_alignment "besideright"
 } -edit_data {
     db_transaction {
 	set as_item_display_id [as::item_display_tb::new \
 				    -html_display_options $html_options \
 				    -abs_size $abs_size \
 				    -item_answer_alignment $answer_alignment]
 	
-	content::item::relate -item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_id"] -object_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:as_item_display_id"] -relation_tag {as_item_display_rel} -relation_type {cr_item_rel}
+	as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_display_id -type as_item_display_rel
 
 	set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]
 	set new_section_id [as::section::new_revision -section_id $section_id]