Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	15 May 2007 20:14:17 -0000	1.45
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	29 Aug 2008 18:58:50 -0000	1.46
@@ -246,8 +246,11 @@
 						       -ip_mask $as_assessments__ip_mask \
 						       -show_feedback $as_assessments__show_feedback \
 						       -section_navigation $as_assessments__section_navigation \
-						       -type $as_assessments__type ]			
+						       -type $as_assessments__type \
+						       -package_id [ad_conn package_id]]			
 		
+		set assessment_item_id [content::revision::item_id -revision_id $as_assessments__assessment_id]
+		permission::grant -party_id [ad_conn user_id] -object_id $assessment_item_id -privilege "admin"
 		# Section
 		set sectionNodes [$assessment selectNodes {section}]
 		set as_asmt_sect_map__sort_order 0
@@ -614,9 +617,9 @@
                         set displayfeedbackNode [$respcondition selectNodes {displayfeedback}]
                         if {[llength $displayfeedbackNode]>0} {
                             set displayfeedback__ident [$displayfeedbackNode getAttribute {linkrefid}]                  
-                            set as_items__feedback_wrong [$item selectNodes "//itemfeedback\[@ident='$displayfeedback__ident'\]/flow_mat/material/mattext/text()"]
-                            if {[llength $as_items__feedback_wrong]>0} {
-                                set as_items__feedback_wrong [$as_items__feedback_wrong nodeValue]                      
+                            set as_items__feedback_wrong [$item selectNodes "//itemfeedback\[@ident='$displayfeedback__ident'\]/flow_mat/material/mattext"]
+                            if {$as_items__feedback_wrong ne ""} {
+                                set as_items__feedback_wrong [$as_items__feedback_wrong text]                      
                             }
                         }
                     } else {
@@ -625,9 +628,9 @@
                             set displayfeedbackNode [$respcondition selectNodes {displayfeedback}]
                             if {[llength $displayfeedbackNode]>0} {
                                 set displayfeedback__ident [$displayfeedbackNode getAttribute {linkrefid}]                          
-                                set as_items__feedback_right [$item selectNodes "//itemfeedback\[@ident='$displayfeedback__ident'\]/flow_mat/material/mattext/text()"]
-                                if {[llength $as_items__feedback_right]>0} {
-                                    set as_items__feedback_right [$as_items__feedback_right nodeValue]                  
+                                set as_items__feedback_right [$item selectNodes "//itemfeedback\[@ident='$displayfeedback__ident'\]/flow_mat/material/mattext"]
+                                if {$as_items__feedback_right ne ""} {
+                                    set as_items__feedback_right [$as_items__feedback_right text]                  
                                 }       
                             }
                         }