callback::merge::MergePackageUser::impl::notifications (private)

 callback::merge::MergePackageUser::impl::notifications \
    -from_user_id from_user_id -to_user_id to_user_id

Defined in packages/notifications/tcl/notification-callback-procs.tcl

Merge the notifications of two users.

Switches:

-from_user_id

(required)

-to_user_id

(required)

See Also:

• callback::merge::MergePackageUser::contract

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ::callback::merge::MergePackageUser::contract__arg_parser {*}$args

    set msg "Merging notifications"
    set result [list $msg]
    ns_log Notice $msg

    db_transaction {
        db_dml upd_notifications {}
        db_dml upd_map {}
        lappend result "Notifications merge is done"
    }
    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="callback::merge::MergePackageUser::impl::notifications.upd_notifications">
    <querytext>	
          update notifications
	  set notif_user  = :to_user_id
   	  where notif_user = :from_user_id
        </querytext>
</fullquery>

<fullquery name="callback::merge::MergePackageUser::impl::notifications.upd_map">
    <querytext>	
          update notification_user_map
	  set user_id  = :to_user_id
	  where user_id = :from_user_id
        </querytext>
</fullquery>

packages/notifications/tcl/notification-callback-procs.xql