Index: openacs-4/packages/notifications/tcl/notification-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-procs.tcl,v diff -u -r1.3.2.4 -r1.3.2.5 --- openacs-4/packages/notifications/tcl/notification-procs.tcl 12 Mar 2003 09:13:59 -0000 1.3.2.4 +++ openacs-4/packages/notifications/tcl/notification-procs.tcl 15 May 2003 07:54:42 -0000 1.3.2.5 @@ -290,6 +290,9 @@ set object_id $action_id } + # Truncate notif_subject to the max len of 100 + set notif_subject [string_truncate -len 100 $notif_subject] + # Set up the vars set extra_vars [ns_set create] oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {notification_id type_id object_id response_id notif_subject notif_text notif_html}