Index: openacs-4/packages/chat/lib/transcripts.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcripts.tcl,v diff -u -N -r1.2 -r1.2.4.1 --- openacs-4/packages/chat/lib/transcripts.tcl 24 Jun 2006 14:23:41 -0000 1.2 +++ openacs-4/packages/chat/lib/transcripts.tcl 19 Aug 2008 21:06:25 -0000 1.2.4.1 @@ -3,20 +3,25 @@ set transcript_view_p [permission::permission_p -object_id $room_id -privilege chat_transcript_view] # List available chat transcript -db_multirow -extend { creation_date_pretty viewer } chat_transcripts list_transcripts *SQL* { +db_multirow -extend { creation_date_pretty viewer transcript_url} chat_transcripts list_transcripts *SQL* { set creation_date_pretty [lc_time_fmt $creation_date "%q %X"] + set transcript_url [export_vars -base "chat-transcript" {room_id transcript_id}] } +set actions [list [_ chat.Create_transcript] [export_vars -base "transcript-new" {room_id}]] + list::create \ -name "chat_transcripts" \ -multirow "chat_transcripts" \ -key transcript_id \ -pass_properties { transcript_delete_p room_id } \ -row_pretty_plural [_ chat.Transcripts] \ + -actions $actions \ -elements { pretty_name { label "#chat.Name#" - link_url_eval {chat-transcript?room_id=$room_id&transcript_id=$transcript_id} + link_url_col transcript_url + link_html {title "[_ chat.View_transcript]"} } creation_date_pretty { label "#chat.creation_date#" @@ -26,8 +31,8 @@ html { align "center" } display_template { - - + + #chat.Delete_transcript# }