xo::db::chat_room instproc delete (public)

 <instance of xo::db::chat_room> delete args [ args... ]

Defined in /var/www/openacs.org/packages/chat/tcl/xotcl-chat-procs.tcl

Delete the chat room and all of its transcripts

Parameters:

args (required)

Testcases:

No testcase defined.

Source code:

set room_id ${:room_id}
foreach transcript_id [::xo::dc list get_transcripts {
    select transcript_id from chat_transcripts
    where room_id = :room_id
}] {
    ::acs::dc call acs_object delete  -object_id $transcript_id
}
next

XQL Not present:

Generic, PostgreSQL, Oracle