Index: openacs-4/packages/imsld/tcl/imsld-export-ld-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-export-ld-method-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/tcl/imsld-export-ld-method-procs.tcl	18 Feb 2009 11:10:46 -0000	1.1
+++ openacs-4/packages/imsld/tcl/imsld-export-ld-method-procs.tcl	29 Oct 2009 11:09:59 -0000	1.2
@@ -27,7 +27,11 @@
     set condition [dom parse $condition_xml]
     #Get root element of the document
     set root [$condition documentElement]
-    $conditions appendChild [$root firstChild] 
+    #Write if-then-else
+    set nodeList [$root childNodes]
+    foreach node $nodeList {
+      $conditions appendChild $node
+    } 
   }
 }