chat_post_system_note

one of the documented procedures in this installation of the ACS
Usage:
chat_post_system_note   db   msg   user_id   chat_room_id
What it does:
Post message to the chat room marked as a system note
Defined in: /web/philip/tcl/chat-defs.tcl

Source code:


    set selection [ns_db 0or1row $db "select group_id, moderated_p
from chat_rooms
where chat_room_id = $chat_room_id"]

    if { $selection == "" } {
	return
    }
    set_variables_after_query
    set client_ip_address [peeraddr]
    
    if {[empty_string_p $group_id] || [ad_user_group_member $db $group_id $user_id]} {
    
	if {![empty_string_p $msg]} {
	    ns_db dml $db "insert into chat_msgs
	    (chat_msg_id, msg, msg_bowdlerized, content_tag, creation_date, creation_user, creation_ip_address, chat_room_id, approved_p, system_note_p)
	    values
	    (chat_msg_id_sequence.nextval, '$msg', '[bowdlerize_text $msg]', '[tag_content $msg]', sysdate, $user_id, '$client_ip_address',$chat_room_id, 't', 't')
	    "
	}
	
	util_memoize_flush "chat_entire_page $chat_room_id short"
	util_memoize_flush "chat_entire_page $chat_room_id medium"
	util_memoize_flush "chat_entire_page $chat_room_id long"
	util_memoize_flush "chat_js_entire_page $chat_room_id"
    }


philg@mit.edu