Index: openacs-4/packages/contacts/tcl/contact-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-message-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/contacts/tcl/contact-message-procs.tcl	3 Jan 2006 22:14:55 -0000	1.16
+++ openacs-4/packages/contacts/tcl/contact-message-procs.tcl	25 Jan 2006 13:13:25 -0000	1.17
@@ -262,8 +262,10 @@
 } {
     Returns a string which we can insert into the content.xml file
 } {
-    regsub -all "<br>" $content "<text:line-break/>" return
-    return $return
+    regsub -all -nocase "<br>" $content "<text:line-break/>" content
+    regsub -all -nocase "<p>" $content "<text:line-break/>" content
+    regsub -all -nocase "</p>" $content "<text:line-break/>" content
+    return [string trim $content]
 }
     
 ad_proc -public contact::oo::import_oo_pdf {
@@ -382,6 +384,9 @@
 			     $file_name ]
     }	
 
+    ns_unlink $pdf_filename
+#    ns_unlink $oo_file
+
     content::item::set_live_revision -revision_id $revision_id
     return [content::revision::item_id -revision_id $revision_id]
 }