Index: openacs-4/packages/notifications/tcl/notification-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-reply-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	30 Nov 2002 17:40:18 -0000	1.4
+++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	28 Aug 2003 09:41:58 -0000	1.5
@@ -25,6 +25,10 @@
         store a new reply
     } {
         set extra_vars [ns_set create]
+
+        # Truncate subject to 100 chars, which is the limit in the data model (for some obscure reason)
+        set subject [string range $subject 0 99]
+        
         oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {reply_id object_id type_id from_user subject content reply_date}
         
         set reply_id [package_instantiate_object -extra_vars $extra_vars notification_reply]