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.3 -r1.3.8.1
--- openacs-4/packages/assessment/tcl/as-export-procs.tcl	12 Jun 2006 12:22:41 -0000	1.3
+++ openacs-4/packages/assessment/tcl/as-export-procs.tcl	18 Aug 2014 20:25:00 -0000	1.3.8.1
@@ -21,10 +21,10 @@
     New element 
 } {
     #create a new element named "label" and child of "father", with attribute_label=attribute_value
-    if {![empty_string_p $value]} {
+    if {$value ne ""} {
         set label [$root createElement $label]
         $father appendChild $label
-	if {![empty_string_p $attribute_label]} {
+	if {$attribute_label ne ""} {
 	    $label setAttribute $attribute_label $attribute_value
 	}
 	if {$material_p == "t"} {
@@ -55,7 +55,7 @@
     New element qtimetadatafield
 } {
    #create an element <qtimetadatafield><fieldlabel></fieldlabel><fieldentry></fieldentry></qtimetadatafield>
-   if {![empty_string_p $value]} {
+   if {$value ne ""} {
     #<qtimetadatafield>
     set qtimetadatafield [$root createElement qtimetadatafield]
     $father appendChild $qtimetadatafield