Class ::chat::Package (public)

 ::xotcl::Class ::chat::Package

Defined in

Testcases:

No testcase defined.

Source code:

namespace eval ::chat {}
::nsf::object::alloc ::xotcl::Class ::chat::Package {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object}
::chat::Package proc flush_rooms {} {
        foreach room_id [::xo::dc list get_rooms {
            select room_id from chat_rooms
            where archive_p = 't' and auto_flush_p = 't'
        }] {
            set room [::xo::db::Class get_instance_from_db -id $room_id]
            $room flush
        }
    }
::chat::Package proc get_user_name -user_id:required {
        set name [acs_user::get_user_info -user_id $user_id -element screen_name]
        if {$name eq ""} {
            set name [person::name -person_id $user_id]
        }
        return $name
    }

XQL Not present:

Generic, PostgreSQL, Oracle