---

Class ::xo::db::chat_transcript

::xo::db::chat_transcript create ...

Defined in

Class Relations

• class: ::xo::db::Class
• superclass: ::xo::db::Object

::xo::db::Class create ::xo::db::chat_transcript \
     -superclass ::xo::db::Object

Methods (to be applied on instances)

• save_new (scripted, public)

   <instance of xo::db::chat_transcript> save_new args [ args... ]

  Save a new transcript, making sure its creator is granted the necessary operative privileges.

  Parameters:

  args (required)

  Returns:

  new transcript id

  Testcases:

  No testcase defined.

  if {![info exists :context_id]} {
      set :context_id ${:package_id}
  }
  ::xo::dc transaction {
      set transcript_id [next]
      foreach privilege {edit view delete} {
          permission::grant  -party_id  ${:creation_user}  -object_id ${:transcript_id}  -privilege chat_transcript_${privilege}
      }
  }
  return $transcript_id

Variables

::xo::db::chat_transcript set __default_metaclass ::xotcl::Class
::xo::db::chat_transcript set __default_superclass ::xotcl::Object
::xo::db::chat_transcript set abstract_p f
::xo::db::chat_transcript set auto_save false
::xo::db::chat_transcript array set db_constraints {pretty_name not_null room_id {{references \
       {chat_rooms(room_id) on delete cascade}}} contents not_null}
::xo::db::chat_transcript array set db_slot \
       {description ::xo::db::chat_transcript::slot::description pretty_name \
       ::xo::db::chat_transcript::slot::pretty_name room_id ::xo::db::chat_transcript::slot::room_id \
       contents ::xo::db::chat_transcript::slot::contents transcript_id \
       ::xo::db::chat_transcript::slot::transcript_id}
::xo::db::chat_transcript set id_column transcript_id
::xo::db::chat_transcript set name_method {}
::xo::db::chat_transcript set object_type chat_transcript
::xo::db::chat_transcript set object_type_key 0000000000110110
::xo::db::chat_transcript set pretty_name {#chat.Transcript#}
::xo::db::chat_transcript set pretty_plural {#chat.Transcripts#}
::xo::db::chat_transcript set security_inherit_p t
::xo::db::chat_transcript set sql_package_name ::xo::db::chat_transcript
::xo::db::chat_transcript set supertype acs_object
::xo::db::chat_transcript set table_name chat_transcripts
::xo::db::chat_transcript set with_table true

---