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.3 -r1.4
--- openacs-4/packages/chat/www/transcript-edit.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-edit.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -8,32 +8,44 @@
 } {
     transcript_id:integer,notnull
     room_id:integer,notnull
-} -properties {
-    context_bar:onevalue
-    title:onevalue
-    room_id:onevalue
-    transcript_id:onevalue
-    transcript_name:onevalue
-    description:onevalue
-    contents:onevalue
-    action:onevalue
-    submit_label:onevalue
-}
+} 
 
-ad_require_permission $transcript_id chat_transcript_edit
+permission::require_permission -object_id $transcript_id -privilege chat_transcript_edit
 set context_bar [list "[_ chat.Edit_transcript]"]
 
-set title "[_ chat.Edit_transcript]"
-set action "transcript-edit-2"
 set submit_label "[_ chat.Edit]"
+set active_p [room_active_status $room_id]
 
 db_1row get_transcript_info {
-    select pretty_name as transcript_name,
-           description,
-           contents
+    select pretty_name, description, contents
     from chat_transcripts
     where transcript_id = :transcript_id
 }
 
-ad_return_template "transcript-entry"
-
+ad_form -name "edit-transcription" -edit_buttons [list [list [_ chat.Edit] next]] -has_edit 1 -form {
+    {room_id:integer(hidden)
+        {value $room_id}
+    }    
+    {transcript_id:integer(hidden)
+        {value $transcript_id}
+    }    
+    {pretty_name:text(text)
+        {label "#chat.Transcript_name#" }
+        {value $pretty_name}
+    }
+    {description:text(textarea),optional
+        {label "#chat.Description#" }
+        {html {rows 6 cols 65}}
+        {value $description}
+    }
+    {contents:text(textarea)
+        {label "#chat.Transcript#" }
+        {html {rows 6 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"
+    }
+    ad_returnredirect "chat-transcript?transcript_id=$transcript_id&room_id=$room_id"    
+}