ad_audit_delete_row

one of the documented procedures in this installation of the ACS
Usage:
ad_audit_delete_row   db   id_list   id_column_list   audit_table_name
What it does:
Inserts an entry to the audit table to log a delete. Each id is inserted into its id_column as well as user_id, IP address, and date.
Defined in: /web/philip/tcl/ad-audit-trail.tcl

Source code:



    # VARIABLES
    # db - database handle
    # audit_table_name - table that holds the audit records
    # id_column_list - column names of the primary key(s) in 
    #      audit_table_name 
    # id_list -  ids of the record you are processing

    set id_column_join [join $id_column_list ", "]
    set id_join [join $id_list ", "]

    ns_db dml $db "insert into $audit_table_name
    ($id_column_join, last_modified, 
    last_modifying_user, modified_ip_address, delete_p)
    values
    ($id_join, sysdate, 
    '[ad_get_user_id]', '[DoubleApos [peeraddr]]','t')
    "



philg@mit.edu