chat_post_system_note db msg user_id chat_room_idWhat it does:
Post message to the chat room marked as a system noteDefined 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" }