Index: openacs-4/packages/chat/www/transcript-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/www/transcript-new.tcl	4 Sep 2002 08:12:51 -0000	1.2
+++ openacs-4/packages/chat/www/transcript-new.tcl	14 Mar 2006 12:16:09 -0000	1.3
@@ -16,24 +16,18 @@
 
 ad_require_permission $room_id chat_transcript_create
 
-set context_bar [list [list "room?room_id=$room_id" "Room Information"] "Create transcript"]
+set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Create_transcript]"]
 
 set transcript_id ""
-set transcript_name "Untitled"
+set transcript_name "[_ chat.Untitled]"
 set description ""
 set contents ""
 set action "transcript-new-2"
-set title "Create transcript"
-set submit_label "Create transcript"
+set title "[_ chat.Create_transcript]"
+set submit_label "[_ chat.Create_transcript]"
 
 #Build a list of all message.
-db_foreach get_archives_messages {
-    select msg, person.name(creation_user) as name
-    from chat_msgs
-    where room_id = :room_id 
-          and msg is not null
-    order by msg_id
-} {
+db_foreach get_archives_messages {} {
     append contents "<b>$name</b>: $msg<br>\n"
 }