mv_describe_user_charge spec_listWhat it does:
Takes a spec in the form of [list user_id admin_id charge_type charge_key amount charge_comment] and prints a readable description.Defined in: /web/philip/tcl/ad-member-value.tcl
Source code:
set user_id [lindex $spec_list 0] set admin_id [lindex $spec_list 1] set charge_type [lindex $spec_list 2] set charge_key [lindex $spec_list 3] set amount [lindex $spec_list 4] set charge_comment [lindex $spec_list 5] set description "$charge_type: $amount; user ID $user_id (by administrator $admin_id)" if ![empty_string_p $charge_comment] { append description "; $charge_comment" } return $description