Index: openacs-4/packages/chat/www/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v diff -u -r1.20.2.5 -r1.20.2.6 --- openacs-4/packages/chat/www/chat.tcl 5 Oct 2019 13:11:52 -0000 1.20.2.5 +++ openacs-4/packages/chat/www/chat.tcl 15 Jul 2022 13:35:12 -0000 1.20.2.6 @@ -7,7 +7,7 @@ @creation-date November 22, 2000 @cvs-id $Id$ } { - room_id:naturalnum,notnull + room_id:object_type(chat_room) } -properties { context:onevalue user_id:onevalue @@ -21,17 +21,9 @@ port:onevalue moderator_p:onevalue msgs:multirow -} -validate { - valid_room_id -requires room_id { - if { [catch { - set r [::xo::db::Class get_instance_from_db -id $room_id] - } errmsg] } { - ad_complain [_ chat.Room_not_found] - ad_log Warning "Chat room not found. Invalid room_id: $room_id" - } - } } +set r [::xo::db::Class get_instance_from_db -id $room_id] set room_name [$r set pretty_name] set doc(title) $room_name set doc(type) {}