Index: openacs-4/packages/faq/faq.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/faq.info,v
diff -u -N -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/faq/faq.info	9 Dec 2002 14:32:27 -0000	1.5.2.2
+++ openacs-4/packages/faq/faq.info	6 Mar 2003 12:27:11 -0000	1.5.2.3
@@ -32,6 +32,8 @@
             <file type="template" path="templates/first/one-faq.adp"/>
             <file type="query_file" db_type="postgresql" path="www/admin/faq-delete-postgresql.xql"/>
             <file type="content_page" path="www/admin/faq-delete.tcl"/>
+            <file type="content_page" path="www/admin/faq-disable.tcl"/>
+            <file type="content_page" path="www/admin/faq-enable.tcl"/>
             <file type="content_page" path="www/admin/faq-edit-2.tcl"/>
             <file type="content_page" path="www/admin/faq-edit.adp"/>
             <file type="content_page" path="www/admin/faq-edit.tcl"/>
Index: openacs-4/packages/faq/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/index.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/faq/www/index.tcl	4 Sep 2002 13:28:32 -0000	1.4
+++ openacs-4/packages/faq/www/index.tcl	6 Mar 2003 12:27:37 -0000	1.4.2.1
@@ -36,7 +36,8 @@
     select faq_id, faq_name
       from acs_objects o, faqs f
       where object_id = faq_id
-        and context_id = :package_id      
+        and context_id = :package_id     
+        and disabled_p = 'f'
     order by faq_name
 }
 
Index: openacs-4/packages/faq/www/admin/faq-disable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-disable.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq/www/admin/faq-disable.tcl	6 Mar 2003 12:27:55 -0000	1.1.2.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+    
+    disable an FAQ
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-03-06
+
+} {
+    faq_id:naturalnum,notnull
+}
+set package_id [ad_conn package_id]
+
+ad_require_permission $package_id faq_delete_faq
+
+db_dml disable_faq {
+    update faqs set disabled_p = 't' where faq_id = :faq_id
+}
+
+ad_returnredirect "."
Index: openacs-4/packages/faq/www/admin/faq-enable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-enable.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq/www/admin/faq-enable.tcl	6 Mar 2003 12:27:55 -0000	1.1.2.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+    
+    enable an FAQ
+    @author Lars Pind (lars@collaboraid.biz)
+    @creation-date 2003-03-06
+
+} {
+    faq_id:naturalnum,notnull
+}
+set package_id [ad_conn package_id]
+
+ad_require_permission $package_id faq_delete_faq
+
+db_dml disable_faq {
+    update faqs set disabled_p = 'f' where faq_id = :faq_id
+}
+
+ad_returnredirect "index"
Index: openacs-4/packages/faq/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/index.adp,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/faq/www/admin/index.adp	6 Sep 2002 21:50:37 -0000	1.3
+++ openacs-4/packages/faq/www/admin/index.adp	6 Mar 2003 12:27:55 -0000	1.3.2.1
@@ -7,14 +7,27 @@
 </if>
 
 <else>
- <ul>
   <multiple name=faqs>
-   <li><a href="one-faq?faq_id=@faqs.faq_id@">@faqs.faq_name@</a>
-	( 
-	<a href="faq-edit?faq_id=@faqs.faq_id@">edit</a> |
-	<a href="faq-delete?faq_id=@faqs.faq_id@">delete</a> 
-	)
-    </li>
+    <if @faqs.disabled_p@ true><h4>Disabled FAQs</h4></if>
+    <else><h4>Available FAQs</h4></else>
+    <ul>
+      <group column="disabled_p">
+        <li>
+          <a href="one-faq?faq_id=@faqs.faq_id@">@faqs.faq_name@</a>
+            ( 
+            <a href="faq-edit?faq_id=@faqs.faq_id@">edit</a> |
+            <if @faqs.disabled_p@ true>
+              <a href="@faqs.enable_url@">enable</a>
+            </if>
+            <else>
+              <a href="@faqs.disable_url@">disable</a>
+            </else>
+            |
+            <a href="faq-delete?faq_id=@faqs.faq_id@">delete</a> 
+            )
+        </li>
+      </group>
+    </ul>
   </multiple>
  </ul>
 </else>
Index: openacs-4/packages/faq/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/index.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/faq/www/admin/index.tcl	4 Sep 2002 13:28:33 -0000	1.3
+++ openacs-4/packages/faq/www/admin/index.tcl	6 Mar 2003 12:27:55 -0000	1.3.2.1
@@ -25,12 +25,15 @@
 
 
 
-db_multirow faqs faq_select {
-    select faq_id, faq_name
+db_multirow -extend { disable_url enable_url } faqs faq_select {
+    select faq_id, faq_name, disabled_p
       from acs_objects o, faqs f
       where object_id = faq_id
         and context_id = :package_id
-    order by faq_name
+    order by disabled_p, faq_name
+} {
+    set disable_url "faq-disable?[export_vars { faq_id }]"
+    set enable_url "faq-enable?[export_vars { faq_id }]"
 }
 
 ad_return_template