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.3.2.1 -r1.3.2.2 --- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl 30 Oct 2002 21:12:05 -0000 1.3.2.1 +++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl 4 Aug 2003 14:17:37 -0000 1.3.2.2 @@ -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 100] + 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]