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.8.2.1 --- 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 15 Jun 2005 18:36:17 -0000 1.8.2.1 @@ -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 + + +