Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/assessment.tcl	7 Oct 2004 13:39:57 -0000	1.8
+++ openacs-4/packages/assessment/www/assessment.tcl	14 Oct 2004 11:48:36 -0000	1.9
@@ -10,7 +10,7 @@
 
 set context [list "[_ assessment.Show_Items]"]
 
-set as_session_id [as_session_new -assessment_id $assessment_id -subject_id [ad_conn user_id]]
+set as_session_id [as::session::new -assessment_id $assessment_id -subject_id [ad_conn user_id]]
 
 set assessment_name [db_string assessment_name {
     SELECT title
@@ -29,7 +29,7 @@
 }
 
 db_multirow -extend {presentation_type html} items query_all_items {} {
-    set presentation_type [add_item_to_form show_item_form $as_item_id]
+    set presentation_type [as::item_form::add_item_to_form show_item_form $as_item_id]
     if {$presentation_type == {fitb}} {
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
     }