Index: openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	15 Nov 2019 08:30:06 -0000	1.14
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	15 Nov 2019 08:31:12 -0000	1.15
@@ -205,7 +205,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
     # coursetoc
     set coursetoc [$doc documentElement]
 
@@ -240,7 +240,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
 
     # content
     set content [$doc documentElement]
@@ -369,7 +369,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
     # content
     set announcement [$doc documentElement]
     set list_items  [list]
@@ -518,7 +518,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
     # content
     set forum [$doc documentElement]
 
@@ -555,7 +555,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open manifest file with tDOM
-    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
+    set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]]
     # gets the manifest tree
     set manifest [$doc documentElement]
     # we add the xml namespace for dotLRN
@@ -570,7 +570,7 @@
     if {[empty_string_p $metadata]} {
 
         set filex res00001.dat
-        set docx [dom parse [::tDOM::xmlReadFile $tmp_dir/$filex]]
+        set docx [dom parse [::tdom::xmlReadFile $tmp_dir/$filex]]
         # gets BB's course info
         set course [$docx documentElement]
 
@@ -624,7 +624,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
+    set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]]
 
     # gets the manifest tree
     set manifest [$doc documentElement]
@@ -811,7 +811,7 @@
 } {
     ## Opens imsmanifest.xml
     # open manifest file with tDOM
-    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
+    set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]]
     # gets the manifest tree
     set manifest [$doc documentElement]