mv_describe_user_charge

one of the documented procedures in this installation of the ACS
Usage:
mv_describe_user_charge   spec_list
What 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


philg@mit.edu