Index: openacs-4/packages/notifications/tcl/notification-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-procs.xql,v diff -u -r1.8 -r1.9 --- openacs-4/packages/notifications/tcl/notification-procs.xql 13 Jan 2005 13:58:33 -0000 1.8 +++ openacs-4/packages/notifications/tcl/notification-procs.xql 13 Jun 2005 16:30:08 -0000 1.9 @@ -81,4 +81,28 @@ + + + select notification_id, notif_subject + from notifications + where notif_user = :user_id + + + + + + update notifications + set notif_user = :to_user_id + where notif_user = :from_user_id + + + + + + update notification_user_map + set user_id = :to_user_id + where user_id = :from_user_id + + +