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.2 -r1.3
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	14 Nov 2004 13:26:45 -0000	1.2
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	26 Apr 2005 16:33:14 -0000	1.3
@@ -207,12 +207,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-    
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # coursetoc
     set coursetoc [$doc documentElement]
 
@@ -247,12 +243,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # content
     set content [$doc documentElement]
 
@@ -328,10 +320,6 @@
     @option filename directory and filename where we are putting the file
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # get directory info
     set dirname [file dirname $filename]
 
@@ -389,12 +377,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # content
     set announcement [$doc documentElement]
 
@@ -552,12 +536,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # content
     set forum [$doc documentElement]
 
@@ -594,11 +574,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open manifest file with tDOM
-    set doc [dom parse [read [open $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
@@ -613,7 +590,7 @@
     if {[empty_string_p $metadata]} {
 	
 	set filex res00001.dat
-	set docx [dom parse [read [open $tmp_dir/$filex]]]
+	set docx [dom parse [::tDOM::xmlReadFile $tmp_dir/$filex]]
 	# gets BB's course info
 	set course [$docx documentElement]
 	
@@ -669,18 +646,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
-    # search for manifest file
-    set file $file
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $tmp_dir/$file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
 
     # gets the manifest tree
     set manifest [$doc documentElement]
@@ -898,12 +865,9 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     ## Opens imsmanifest.xml
-
-    # set utf-8 system encoding
-    encoding system utf-8
     
     # open manifest file with tDOM
-    set doc [dom parse [read [open $tmp_dir/$file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
     # gets the manifest tree
     set manifest [$doc documentElement]
 
@@ -1247,4 +1211,4 @@
 }
 
 
-### End Cleanup Functions
\ No newline at end of file
+### End Cleanup Functions