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.3 -r1.4
--- openacs-4/packages/chat/www/transcript-new-2.tcl	7 Jun 2007 09:14:25 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-new-2.tcl	19 Nov 2007 01:14:16 -0000	1.4
@@ -1,12 +1,10 @@
 #/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
@@ -26,15 +24,6 @@
     $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
@@ -45,19 +34,5 @@
     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