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

 <instance of xo::db::chat_room> grant_creator

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

Grants operative privileges to the chat creator (when available on the chat room object). In detail the permissions to edit, view and delete the chat room and also to create transcripts of it.

Testcases:

No testcase defined.

Source code:

if {${:creation_user} ne ""} {
    foreach privilege {edit view delete} {
        permission::grant  -party_id  ${:creation_user}  -object_id ${:room_id}  -privilege chat_room_${privilege}
    }
    permission::grant  -party_id  ${:creation_user}  -object_id ${:room_id}  -privilege chat_transcript_create
}

XQL Not present:

Generic, PostgreSQL, Oracle