mv_user_charge_replace_comment user_charge new_commentWhat it does:
Takes a user charge data structure (actually just a list) and replaces the comment field (at the end); useful when there is a separate field for an admin to type an arbitrary comment.Defined in: /web/philip/tcl/ad-member-value.tcl
Source code:
set user_id [lindex $user_charge 0]
set admin_id [lindex $user_charge 1]
set charge_type [lindex $user_charge 2]
set charge_key [lindex $user_charge 3]
set amount [lindex $user_charge 4]
return [list $user_id $admin_id $charge_type $charge_key $amount $new_comment]