Index: openacs-4/packages/faq-portlet/www/faq-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/www/Attic/faq-portlet-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq-portlet/www/faq-portlet-oracle.xql	25 Feb 2002 20:36:02 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="faqs_select">
+    <querytext>
+      select f.faq_id, f.faq_name, entry_id, question
+      from acs_objects o, faqs f, faq_q_and_as qa
+      where object_id = f.faq_id
+      and context_id = :package_id
+      and qa.faq_id(+) = f.faq_id
+    </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/faq-portlet/www/faq-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/www/faq-portlet.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq-portlet/www/faq-portlet.adp	25 Feb 2002 20:36:02 -0000	1.1
@@ -0,0 +1,8 @@
+<if @shaded_p@ ne "t">
+
+  @data@
+
+</if>
+<else>
+&nbsp;
+</else>
Index: openacs-4/packages/faq-portlet/www/faq-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/www/faq-portlet.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq-portlet/www/faq-portlet.tcl	25 Feb 2002 20:36:02 -0000	1.1
@@ -0,0 +1,46 @@
+#
+# /faq-portlet/www/faq-portlet.tcl
+#
+# distributed under the terms of the GNU GPL version 2
+#
+# arjun@openforce.net
+#
+# The logic for the faq portlet
+#
+# $Id: faq-portlet.tcl,v 1.1 2002/02/25 20:36:02 arjun Exp $
+# 
+
+
+
+array set config $cf	
+
+set shaded_p $config(shaded_p)
+
+# Should be a list already! 
+set list_of_package_ids $config(package_id)
+set data ""
+
+
+foreach package_id $list_of_package_ids {
+
+#    ad_return_complaint 1 "aks1 [db_string faq_q_and_as_count_select {} ] "
+
+    if { [db_string faq_q_and_as_count_select {} ] != 0 } {
+            
+        set comm_name [site_nodes::get_parent_name \
+                -instance_id $package_id
+        ]
+
+        set comm_url [dotlrn_community::get_url_from_package_id -package_id $package_id]
+
+        append data "$comm_name<P>"
+
+        db_foreach faqs_select {} {
+            append data "&nbsp;&nbsp;<a href=${comm_url}one-faq?faq_id=$faq_id>$faq_name</a><P>"
+        }
+    } else {
+            # workspace no faqs
+            set data "<small>No FAQs available</small>"
+    }
+}
+        
Index: openacs-4/packages/faq-portlet/www/faq-portlet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/www/Attic/faq-portlet.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq-portlet/www/faq-portlet.xql	25 Feb 2002 20:36:02 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+  <fullquery name="faq_q_and_as_count_select">
+    <querytext>
+      select count(*) as count 
+      from acs_objects o, faqs f
+      where object_id = faq_id
+      and context_id = :package_id
+    </querytext> 
+  </fullquery>
+
+</queryset>