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 -N -r1.7 -r1.8
--- openacs-4/packages/faq-portlet/www/faq-portlet.tcl 13 Mar 2002 22:00:45 -0000 1.7
+++ openacs-4/packages/faq-portlet/www/faq-portlet.tcl 18 Mar 2002 05:05:04 -0000 1.8
@@ -27,32 +27,72 @@
set one_instance_p 0
}
-foreach package_id $list_of_package_ids {
- if { [db_string faq_q_and_as_count_select {} ] != 0 } {
+
+if {[ad_parameter community_level_p] == 1} {
+# if i'm in a comm, have the list UI
+
+ foreach package_id $list_of_package_ids {
+
+ 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]
+
+ set f_check [db_0or1row faqs_check {}]
+ if {!$one_instance_p && $f_check} {
+ append data "
$comm_name"
+ append data ""
+ }
+
+ db_foreach faqs_select {} {
+ append data "- $faq_name
"
+ }
+
+ if {!$one_instance_p && $f_check} {
+ append data "
"
+ }
+
+ }
+ }
+
+} else {
+ # i'm at /dotlrn, so have the table UI, hack
+ set one_instance_p 1
+ set data "
+
+ Name |
+ Group |
+
"
+
+ foreach package_id $list_of_package_ids {
+
+ set comm_url [dotlrn_community::get_url_from_package_id -package_id $package_id]
+
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]
-
- set f_check [db_0or1row faqs_check {}]
- if {!$one_instance_p && $f_check} {
- append data "$comm_name"
- append data ""
- }
+ set count 0
db_foreach faqs_select {} {
- append data "- $faq_name
"
+
+ if {[expr $count % 2] == 0} {
+ append data "$faq_name | $comm_name |
"
+ } else {
+ append data "$faq_name | $comm_name |
"
+ }
+
+ incr count
}
-
- if {!$one_instance_p && $f_check} {
- append data "
"
- }
-
- }
+ }
+
+ append data "
"
+
}
# portlets shouldn't disappear anymore (ben)