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.3 -r1.4
--- openacs-4/packages/chat/www/transcript-new.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-new.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -14,29 +14,23 @@
     contents:onevalue
 }
 
-ad_require_permission $room_id chat_transcript_create
+permission::require_permission -object_id $room_id -privilege chat_transcript_create
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Create_transcript]"]
 
 set transcript_id ""
-set transcript_name "[_ chat.Untitled]"
+set transcript_name "[_ chat.transcript_of_date] [clock format [clock seconds] -format "%d.%m.%y %H:%M:%S"]"
 set description ""
 set contents ""
 set action "transcript-new-2"
 set title "[_ chat.Create_transcript]"
 set submit_label "[_ chat.Create_transcript]"
+set active_p [room_active_status $room_id]
 
 #Build a list of all message.
 db_foreach get_archives_messages {} {
-    append contents "<b>$name</b>: $msg<br>\n"
+    append contents "\[$creation_date\] <b>[chat_user_name $creation_user]</b>: $msg<br>\n"
 }
 
 ad_return_template "transcript-entry"
 
-
-
-
-
-
-
-