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.7 -r1.8
--- openacs-4/packages/contacts/tcl/contact-message-procs.tcl	19 Oct 2005 16:56:54 -0000	1.7
+++ openacs-4/packages/contacts/tcl/contact-message-procs.tcl	26 Dec 2005 16:46:00 -0000	1.8
@@ -10,6 +10,7 @@
 namespace eval contact:: {}
 namespace eval contact::message:: {}
 namespace eval contact::signature:: {}
+namespace eval contact::oo:: {}
 
 ad_proc -public contact::signature::get {
     {-signature_id:required}
@@ -45,6 +46,8 @@
     {-content:required}
     {-content_format "text/plain"}
     {-locale ""}
+    {-spoiler ""}
+    {-ps ""}
 } {
     save a contact message
 } {
@@ -64,13 +67,13 @@
 
 	db_dml insert_into_message_items {
 	    insert into contact_message_items
-	    ( item_id, owner_id, message_type, locale )
+	    ( item_id, owner_id, message_type, locale, spoiler, ps )
 	    values
-	    ( :item_id, :owner_id, :message_type, :locale )
+	    ( :item_id, :owner_id, :message_type, :locale, :spoiler, :ps )
 	}
     } else {
 	db_dml update_message_item {
-	    update contact_message_items set owner_id = :owner_id, message_type = :message_type, locale = :locale where item_id = :item_id
+	    update contact_message_items set owner_id = :owner_id, message_type = :message_type, locale = :locale, spoiler = :spoiler, ps = :ps where item_id = :item_id
 	}
     }
 
@@ -255,3 +258,12 @@
     return $text
 }
 
+ad_proc -public contact::oo::convert {
+    {-content}
+} {
+    Returns a string which we can insert into the content.xml file
+} {
+    regsub -all "<br>" $content "<text:line-break/>" return
+    return $return
+}
+    
\ No newline at end of file