mv_describe_user_charge

mv_describe_user_charge   spec_list

Takes a spec in the form of [list user_id admin_id charge_type charge_key amount charge_comment] and prints a readable description.

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