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}