chat.tcl

Decide which template to use HTML or AJAX.

Location:

/packages/chat/www/chat.tcl

Author:

David Dao <ddao@arsdigita.com>

Created:

November 22, 2000

CVS ID:

$Id: chat.tcl,v 1.20.2.10 2023/11/03 15:13:29 antoniop Exp $

Related Files

• packages/chat/www/chat.tcl
• packages/chat/www/chat.adp

[ hide source ] | [ make this the default ]

File Contents

#/chat/www/chat.tcl
ad_page_contract {

    Decide which template to use HTML or AJAX.

    @author David Dao (ddao@arsdigita.com)
    @creation-date November 22, 2000
    @cvs-id $Id: chat.tcl,v 1.20.2.10 2023/11/03 15:13:29 antoniop Exp $
} {
    room_id:object_type(chat_room),notnull
} -properties {
    context:onevalue
    room_id:onevalue
    moderator_p:onevalue
}

set r [::xo::db::Class get_instance_from_db -id $room_id]

set doc(title) [$r set pretty_name]
set context [list $doc(title)]

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: