Index: openacs-4/packages/assessment/www/admin/item-add-sa.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add-sa.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/item-add-sa.tcl	5 Dec 2004 17:11:59 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/item-add-sa.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_type_sa]
 set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title]
 
 set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]]
@@ -52,7 +52,7 @@
 				 -increasing_p $increasing_p \
 				 -allow_negative_p $negative_p]
 	
-	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_type_id"] -relation_tag {as_item_type_rel} -relation_type {cr_item_rel}
+	as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_type_id -type as_item_type_rel
     }
 } -after_submit {
     # now go to display-type specific form (i.e. textbox)