Index: openacs-4/packages/assessment/tcl/as-export-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-export-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/assessment/tcl/as-export-procs.tcl	8 Feb 2005 08:49:06 -0000	1.1
+++ openacs-4/packages/assessment/tcl/as-export-procs.tcl	12 Apr 2005 12:55:12 -0000	1.2
@@ -31,6 +31,7 @@
 	    set material [$root createElement material]
             $label appendChild $material
             set mattext [$root createElement mattext]    
+	    $mattext setAttribute texttype text/html
             $material appendChild $mattext    
             set text [$root createCDATASection $value]
             $mattext appendChild $text
@@ -69,4 +70,4 @@
     set text [$root createCDATASection $value]
     $fieldentry appendChild $text
   }  
-}
\ No newline at end of file
+}
Index: openacs-4/packages/assessment/www/asm-admin/export/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/export/index.vuh,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/assessment/www/asm-admin/export/index.vuh	28 Feb 2005 10:52:38 -0000	1.6
+++ openacs-4/packages/assessment/www/asm-admin/export/index.vuh	12 Apr 2005 12:55:13 -0000	1.7
@@ -294,6 +294,7 @@
 	    $presentation appendChild $material
 	    #<mattext> 
 	    set mattext [$doc createElement mattext]	    
+	    $mattext setAttribute texttype text/html
 	    $material appendChild $mattext 
 	    set text [$doc createCDATASection $item_title]
 	    $mattext appendChild $text
@@ -362,7 +363,8 @@
 		    
 	        } else {	
 		    #<mattext> 
-	            set mattext [$doc createElement mattext]	        
+		    set mattext [$doc createElement mattext]
+		    $mattext setAttribute texttype text/html
 	            $material appendChild $mattext 
 	            set text [$doc createCDATASection $choice_title]
 	            $mattext appendChild $text
@@ -414,6 +416,7 @@
 		    $presentation appendChild $material
 	            #<mattext> 
 	            set mattext [$doc createElement mattext]	            
+		    $mattext setAttribute texttype text/html
 	            $material appendChild $mattext 
 	            set text [$doc createCDATASection $item_title]
 	            $mattext appendChild $text