Index: openacs-4/packages/chat/www/transcript-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/transcript-edit.tcl	24 Jun 2006 14:23:42 -0000	1.4
+++ openacs-4/packages/chat/www/transcript-edit.tcl	7 Jun 2007 09:14:25 -0000	1.5
@@ -2,9 +2,8 @@
 ad_page_contract {
     Retrieve transcript content.
 
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 28, 2000
-    @cvs-id $Id$
+    @author David Dao (ddao@arsdigita.com) and Pablo Mu�oz(pablomp@tid.es)
+    
 } {
     transcript_id:integer,notnull
     room_id:integer,notnull
@@ -17,11 +16,20 @@
 set active_p [room_active_status $room_id]
 
 db_1row get_transcript_info {
-    select pretty_name, description, contents
-    from chat_transcripts
-    where transcript_id = :transcript_id
+    select ct.pretty_name, ct.description, ct.contents
+    from chat_transcripts ct
+    where transcript_id = :transcript_id    
 }
+set keywords ""
+db_foreach get_transcript_info2 {
+    select ck.keyword as key
+    from chat_room_transcript_keywords ck
+    where ck.transcript_id = :transcript_id    
+} {
+	append keywords $key " "
+}
 
+
 ad_form -name "edit-transcription" -edit_buttons [list [list [_ chat.Edit] next]] -has_edit 1 -form {
     {room_id:integer(hidden)
         {value $room_id}
@@ -38,14 +46,21 @@
         {html {rows 6 cols 65}}
         {value $description}
     }
+    {keywords:text(textarea),optional
+        {label "#chat.keywords#" }
+        {html {rows 6 cols 65}}
+        {value $keywords}
+    }
     {contents:text(textarea)
         {label "#chat.Transcript#" }
-        {html {rows 6 cols 65}}
+        {html {rows 3 cols 65}}
         {value $contents}
     }
 } -on_submit {
     if { [catch {chat_transcript_edit $transcript_id $pretty_name $description $contents} errmsg] } {
         ad_return_complaint 1 "[_ chat.Could_not_update_transcript]: $errmsg"
-    }
+    }    
+    chat_transcript_edit_keywords $transcript_id $keywords
+    
     ad_returnredirect "chat-transcript?transcript_id=$transcript_id&room_id=$room_id"    
 }