mv_charge_user

one of the documented procedures in this installation of the ACS
Usage:
mv_charge_user   db   spec_list   { notify_subject "" }   { notify_body "" }
What it does:
Takes a spec in the form of [list user_id admin_id charge_type charge_key amount charge_comment] and adds a row to the users_charges table
Defined in: /web/philip/tcl/ad-member-value.tcl

Source code:


    # we double the apostrophes right here to avoid any trouble with SQL
    set QQspec_list [DoubleApos $spec_list]
    set user_id [lindex $QQspec_list 0]
    set admin_id [lindex $QQspec_list 1]
    set charge_type [lindex $QQspec_list 2]
    set charge_key [lindex $QQspec_list 3]
    set amount [lindex $QQspec_list 4]
    set unquoted_charge_comment [lindex $spec_list 5]
    ns_db dml $db "insert into users_charges 
(user_id, admin_id, charge_type, charge_key, amount, charge_comment, entry_date)
values
($user_id, $admin_id, '$charge_type', '$charge_key', $amount, [ns_dbquotevalue $unquoted_charge_comment text], sysdate)"
    if ![empty_string_p $notify_subject] {
	# we're going to email this user and tell him that we charged him
	# but we don't want an error in notification to cause this to fail
	catch { mv_notify_user_of_new_charge $db $spec_list $notify_subject $notify_body }
    }


philg@mit.edu