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.9 -r1.10
--- openacs-4/packages/notifications/tcl/notification-procs.tcl	7 Nov 2003 17:35:42 -0000	1.9
+++ openacs-4/packages/notifications/tcl/notification-procs.tcl	29 Jun 2004 10:18:42 -0000	1.10
@@ -159,6 +159,7 @@
         @author Ben Adida
         @author Lars Pind
     } {
+
         set requests_p [notification::request::request_exists -object_id $object_id -type_id $type_id]
         
         # We're only going to do anything if there are people who have requests, 
@@ -268,7 +269,7 @@
             if { [empty_string_p $notif_user] && [ad_conn isconnected] } {
                 set notif_user [ad_conn user_id]
             }
-            
+           
             # Actually carry out inserting the notification
             db_transaction {
                 if { $subset_arg_p || $already_notified_arg_p } {
@@ -306,6 +307,13 @@
                 
                 # Create the notification
                 package_instantiate_object -extra_vars $extra_vars notification
+
+                # teadams@alum.mit.edu - pl/sql has a 32K limit for paramaters.
+
+                # Updating the clob columns directly
+                # to avoid this limitation.
+                db_dml update_message {} -clobs [list $notif_html $notif_text]
+
             }
         }