chat_room_get_not_cached (private, deprecated)

 chat_room_get_not_cached room_id

Defined in packages/chat/tcl/chat-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Parameters:
room_id

See Also:
  • xo::db::chat_room

Partial Call Graph (max 5 caller/called nodes):
%3 chat_room_get chat_room_get (public, deprecated) chat_room_get_not_cached chat_room_get_not_cached chat_room_get->chat_room_get_not_cached acs_object::get acs_object::get (public) chat_room_get_not_cached->acs_object::get ad_get_tcl_call_stack ad_get_tcl_call_stack (public) chat_room_get_not_cached->ad_get_tcl_call_stack

Testcases:
No testcase defined.
Source code:
ns_log Notice "Deprecated proc chat_room_get_not_cached used:\n[ad_get_tcl_call_stack]"

    set r [::xo::db::Class get_instance_from_db -id $room_id]
    foreach var [$r info vars] {
        set row($var) [$r set $var]
    }
    # todo: extend oo machinery so these attributes are also returned
    # by get_instance_from_db
    acs_object::get  -object_id $room_id  -array obj
    set row(object_id)      $obj(object_id)
    set row(context_id)     $obj(context_id)
    set row(creation_user)  $obj(creation_user)
    set row(creation_date)  $obj(creation_date_ansi)
    set row(creation_ip)    $obj(creation_ip)
    set row(modifying_user) $obj(modifying_user)
    set row(last_modified)  $obj(last_modified_ansi)
    set row(modifying_ip)   $obj(modifying_ip)
    return [array get row]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: