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.2 -r1.3
--- openacs-4/packages/contacts/tcl/contact-message-procs.tcl	1 Jul 2005 00:35:35 -0000	1.2
+++ openacs-4/packages/contacts/tcl/contact-message-procs.tcl	2 Aug 2005 20:42:23 -0000	1.3
@@ -44,6 +44,7 @@
     {-description ""}
     {-content:required}
     {-content_format "text/plain"}
+    {-locale ""}
 } {
     save a contact message
 } {
@@ -63,13 +64,13 @@
 
 	db_dml insert_into_message_items {
 	    insert into contact_message_items
-	    ( item_id, owner_id, message_type )
+	    ( item_id, owner_id, message_type, locale )
 	    values
-	    ( :item_id, :owner_id, :message_type )
+	    ( :item_id, :owner_id, :message_type, :locale )
 	}
     } else {
 	db_dml update_message_item {
-	    update contact_message_items set owner_id = :owner_id, message_type = :message_type where item_id = :item_id
+	    update contact_message_items set owner_id = :owner_id, message_type = :message_type, locale = :locale where item_id = :item_id
 	}
     }