Index: openacs-4/packages/lorsm/www/admin/course-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/admin/course-add-2.tcl	12 Dec 2008 14:25:35 -0000	1.4
+++ openacs-4/packages/lorsm/www/admin/course-add-2.tcl	2 Nov 2010 11:06:58 -0000	1.5
@@ -199,10 +199,19 @@
                             [lindex [lors::imsmd::getMDSchema $metadata] 0] 0]
 
         set MetadataSchemaVersion [lindex [lors::imsmd::getMDSchema $metadata] 1]
-        set lom [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 0]
-        set prefix [lindex [lors::imsmd::getLOM $metadata $tmp_dir] 1]
 
-        if { $lom != 0 } {
+        set lom_results [lors::imsmd::getLOM $metadata $tmp_dir]
+
+        if { $lom_results ne 0 } {
+            set type [lindex $lom_results 0]
+            set prefix [lindex $lom_results 2]
+            if { $type eq "XML" } {
+                set lom_doc [dom parse [lindex $lom_results 1]]
+                set lom [$lom_doc documentElement]
+            } else {
+                set lom [lindex $lom_results 1]
+            }
+
             # Get title
             set manifest_title_lang [lindex \
                                         [lindex [lors::imsmd::mdGeneral \