Index: openacs-4/packages/faq/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/faq/www/index.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/faq/www/index.tcl	10 Jan 2002 05:28:24 -0000	1.2
@@ -24,6 +24,13 @@
  
 ad_require_permission $package_id faq_view_faq
 
+set admin_p 0
+
+if {[ad_permission_p -user_id $user_id $package_id faq_admin_faq]} {
+    set admin_p 1
+}
+
+
 db_multirow faqs faq_select {
     select faq_id, faq_name
       from acs_objects o, faqs f