Index: openacs-4/packages/chat/www/transcript-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-new-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/www/transcript-new-2.tcl	24 Jun 2006 14:23:42 -0000	1.2
+++ openacs-4/packages/chat/www/transcript-new-2.tcl	7 Jun 2007 09:14:25 -0000	1.3
@@ -1,10 +1,12 @@
 #/chat/www/transcript-new-2.tcl
 ad_page_contract {
     Save transcript.
+    @author Pablo Mu�oz(pablomp@tid.es)
 } {
     room_id:integer,notnull
     transcript_name:trim,notnull
     {description:trim ""}
+    {keywords:trim ""}
     {delete_messages:optional "off"}
     {deactivate_room:optional "off"}
     contents:trim,notnull,html
@@ -24,6 +26,15 @@
     $transcript_name $contents $room_id
 ]
 
+#store_transcripts_keywords $keywords transcript_id
+for {set i 0} {$i < [llength $keywords]} {incr i 1} {
+    	set word [lindex $keywords $i]
+    	#set k [store_transcripts_keywords $word $transcript_id]
+    	db_exec_plsql store_transcripts_keywords {}
+	}	
+
+
+
 if { $delete_messages eq "on" } {
     chat_room_message_delete $room_id
     # forward the information to AJAX
@@ -34,5 +45,19 @@
     db_dml "update_chat" "update chat_rooms set active_p = 'f' where room_id = $room_id"
 }
 
+
+
 ad_returnredirect "chat-transcript?room_id=$room_id&transcript_id=$transcript_id"
 
+
+ad_proc store_transcripts_keywords { 
+	keywords
+	transcript_id
+} {
+	for {set i 0} {$i < [llength $keywords]} {incr i 1} {
+    	set word [lindex $keywords $i]
+    	#set k [store_transcripts_keywords $word $transcript_id]
+    	db_exec_plsql store_transcripts_keywords {}
+	}	
+	
+}	
\ No newline at end of file