Index: openacs-4/packages/chat/www/chat-transcript.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcript.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/chat/www/chat-transcript.tcl	2 Mar 2019 17:51:10 -0000	1.6.2.2
+++ openacs-4/packages/chat/www/chat-transcript.tcl	15 Jul 2022 13:35:12 -0000	1.6.2.3
@@ -1,8 +1,10 @@
 ad_page_contract {
-    mostra mensagens do chat arquivadas
+
+  Display archived chat messages
+
 } {
-   room_id:naturalnum,notnull
-   {transcript_id:naturalnum,optional 0}
+  room_id:object_type(chat_room)
+  {transcript_id:object_type(chat_transcript) 0}
 }
 
 set page_title "[_ chat.Transcript]"
@@ -19,13 +21,8 @@
     ad_script_abort
 }
 
-if { [catch {
-  set r [::xo::db::Class get_instance_from_db -id $room_id]
-  set room_name [$r set pretty_name]
-} errmsg] } {
-    ad_return_complaint 1 "[_ chat.Room_not_found]"
-    ad_script_abort
-}
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+set room_name [$r set pretty_name]
 
 template::head::add_style -style "#messages {
     border: 1px dotted black;