#/chat/www/transcript-edit-2.tcl
ad_page_contract {
    Update chat transcript.

    @author David Dao (ddao@arsdigita.com)
    @creation-date November 28, 2000
    @cvs-id $Id: transcript-edit-2.tcl,v 1.7 2007/11/19 01:14:16 donb Exp $
} {
    transcript_id:notnull,integer
    transcript_name:trim,notnull
    contents:html,notnull
    room_id:notnull,integer
    {description:trim ""}
}

permission::require_permission -object_id $transcript_id -privilege chat_transcript_edit

if { [catch {chat_transcript_edit $transcript_id $transcript_name $description $contents} errmsg] } {
    ad_return_complaint 1 "[_ chat.Could_not_update_transcript]: $errmsg"
}

ad_returnredirect "transcript-view?transcript_id=$transcript_id&room_id=$room_id"