Index: openacs-4/packages/notifications/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/apm-callback-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/notifications/tcl/apm-callback-procs.tcl	29 Jun 2004 10:18:41 -0000	1.3
+++ openacs-4/packages/notifications/tcl/apm-callback-procs.tcl	27 Jun 2007 18:54:48 -0000	1.4
@@ -76,6 +76,30 @@
 
                 }
             }
+            5.4.0d2 5.4.0d3 {
+                db_transaction {
+                    
+                    # Delete and recreate contract
+                    delete_delivery_method_contract
+                    create_delivery_method_contract
+
+                    # The old implementation is still there, but now it's unbound
+
+                    # Now change the name of the old implementation
+                    db_dml update { update acs_sc_impls set impl_name = 'notification_email_old' where impl_name = 'notification_email' }
+                    db_dml update { update acs_sc_impl_aliases set impl_name = 'notification_email_old' where impl_name = 'notification_email' }
+
+                    # Create the new implementation
+                    set impl_id [create_email_delivery_method_impl]
+
+                    # Register the new impl ID with notification_delivery_methods
+                    update_email_delivery_method_impl -impl_id $impl_id
+
+                    # Delete the old implementation
+                    delete_email_delivery_method_impl -impl_name "notification_email_old"
+
+                }
+            }
         }
 }
 
@@ -95,7 +119,8 @@
                         notification_type_id:integer
                         subject:string
                         content_text:string 
-                        content_html:string 
+                        content_html:string
+                        file_ids:string
                     }
                 }
                 ScanReplies {