Index: openacs-4/packages/chat/www/transcript-delete-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete-2.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/chat/www/transcript-delete-2.tcl 7 Aug 2017 23:48:07 -0000 1.6 +++ openacs-4/packages/chat/www/transcript-delete-2.tcl 18 Jan 2019 17:14:36 -0000 1.7 @@ -4,16 +4,20 @@ } { room_id:naturalnum,notnull transcript_id:naturalnum,notnull - + } permission::require_permission -object_id $transcript_id -privilege chat_transcript_delete - - if { [catch {chat_transcript_delete $transcript_id} errmsg] } { ad_return_complaint 1 "[_ chat.Delete_transcript_failed]: $errmsg" ad_script_abort } ad_returnredirect "room?room_id=$room_id" + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: