Index: openacs-4/packages/chat/www/transcript-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/transcript-delete.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-delete.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -14,7 +14,7 @@
     transcript_id:onevalue
 }
 
-ad_require_permission $transcript_id chat_transcript_delete
+permission::require_permission -object_id $transcript_id -privilege chat_transcript_delete
 
 set context_bar [list "[_ chat.Delete_transcript]"]
 ad_return_template