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

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

Defined in packages/photo-album/tcl/photo-album-callback-procs.tcl

Merge the photo_album items 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 photo album"
    set result [list $msg]
    ns_log Notice $msg
    
    db_transaction {
    db_dml upd_collections {}
    lappend result "Photo album merge is done"
    } 
    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

<fullquery name="callback::merge::MergePackageUser::impl::photo_album.upd_collections">
    <querytext>
      update pa_collections
      set owner_id = :to_user_id
      where owner_id = :from_user_id
    </querytext>
</fullquery>

packages/photo-album/tcl/photo-album-callback-procs.xql