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.5 -r1.6
--- openacs-4/packages/faq/www/admin/index.tcl	28 Nov 2003 16:55:15 -0000	1.5
+++ openacs-4/packages/faq/www/admin/index.tcl	22 Dec 2003 23:24:41 -0000	1.6
@@ -23,17 +23,59 @@
 
 set user_id [ad_verify_and_get_user_id]
 
+template::list::create \
+    -name faqs \
+    -elements {
+        edit {
+            link_url_col edit_url
+            display_template {
+                <img src="/resources/acs-subsite/Edit16.gif" border="0">
+            }
+            sub_class narrow
+        }
+        faq_name {
+            label "Name"
+            link_url_col manage_url
+        }
+        num_q_and_as {
+            label "\# Q&A's"
+            html { align right }
+        }
+        disabled_p {
+            label "Enabled"
+            display_template {
+                <if @faqs.disabled_p@ false>
+                  <a href="@faqs.disable_url@" title="Disable this FAQ"><img src="/resources/acs-subsite/checkboxchecked.gif" height="13" width="13" border="0" style="background-color: white;" alt="Disable"></a>
+                </if>
+                <else>
+                  <a href="@faqs.enable_url@" title="Enable this FAQ"><img src="/resources/acs-subsite/checkbox.gif" height="13" width="13" border="0" style="background-color: white;" alt="Enable"></a>
+                </else>
+            }
+            html { align center }
+        }
+        delete {
+            link_url_col delete_url
+            display_template {
+                <img src="/resources/acs-subsite/Delete16.gif" border="0">
+            }
+            sub_class narrow
+        }
+    }
 
 
-db_multirow -extend { disable_url enable_url } faqs faq_select {
-    select faq_id, faq_name, disabled_p
+db_multirow -extend { edit_url manage_url delete_url disable_url enable_url } faqs faq_select {
+    select faq_id, faq_name, disabled_p, 
+    (select count(*) from faq_q_and_as where faq_id = f.faq_id) as num_q_and_as
       from acs_objects o, faqs f
       where object_id = faq_id
         and context_id = :package_id
     order by disabled_p, faq_name
 } {
-    set disable_url "faq-disable?[export_vars { faq_id }]"
-    set enable_url "faq-enable?[export_vars { faq_id }]"
+    set edit_url [export_vars -base faq-add-edit { faq_id }]
+    set manage_url [export_vars -base one-faq { faq_id }]
+    set delete_url [export_vars -base faq-delete { faq_id }]
+    set disable_url [export_vars -base faq-disable { faq_id }]
+    set enable_url [export_vars -base faq-enable { faq_id }]
 }
 
 ad_return_template