Index: openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	30 May 2006 16:32:52 -0000	1.2
+++ openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	17 Oct 2008 10:46:09 -0000	1.3
@@ -278,13 +278,13 @@
 set isBB [lors::imscp::bb6::isBlackboard6 -tmp_dir $tmp_dir]
 
 if {$isBB == 1} {
-    ns_write "<p><font color=\"red\"><b>[_ lorsm.lt_Blackboard6_Content_P]</b></font>.<br> [_ lorsm.lt_Modifying_package_to_]"
-    ns_write "<blockquote><br> [_ lorsm.lt_Cleaning_up_unused_ap]"
+    ns_write "<p><span style=\"color: red\"><strong>[_ lorsm.lt_Blackboard6_Content_P]</strong></span>.<br> [_ lorsm.lt_Modifying_package_to_]"
+    ns_write "<p><br> [_ lorsm.lt_Cleaning_up_unused_ap]"
     lors::imscp::bb6::clean_items -tmp_dir $tmp_dir -file "imsmanifest.xml"
-    ns_write "<font color=\"green\"><b>[_ lorsm.Done]</b></font>"
+    ns_write "<span style=\"color: green\"><strong>[_ lorsm.Done]</strong></span>"
     ns_write "<br> [_ lorsm.lt_Renaming_content_type]"
     lors::imscp::bb6::extract_html -tmp_dir $tmp_dir -file "imsmanifest.xml"
-    ns_write "<font color=\"green\"><b>[_ lorsm.Done]</b></font></blockquote>"
+    ns_write "<span style=\"color:green\"><strong>[_ lorsm.Done]</strong></span></p>"
 
 }
 
@@ -401,12 +401,12 @@
                     set files [lors::cr::has_files -fs_dir $subdir]
 
 		    #For display purposes
-		    ns_write "[_ lorsm.Processing_files]<blockquote>"
+		    ns_write "[_ lorsm.Processing_files]<p>"
 		    foreach file $files {
 			set tempval [regsub $tmp_dir $file {}]
-			ns_write "<img src=\"/resources/file-storage/file.gif\"> $tempval<font color=\"green\">[_ lorsm.OK]</font><br>"
+			ns_write "<img src=\"/resources/file-storage/file.gif\"> $tempval<span style=\"color:green\">[_ lorsm.OK]</span><br>"
 		    }
-		    ns_write "</blockquote>"
+		    ns_write "</p>"
 		    #
 
                     if ![empty_string_p $files] {
@@ -811,7 +811,7 @@
     ns_log Debug "Delete temporary folder $tmp_dir"
     lors::imscp::deltmpdir $tmp_dir
 
-    ns_write "[_ lorsm.Done]<p></blockquote><hr>"
+    ns_write "[_ lorsm.Done]<hr>"
 }
 
    return $man_id