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 "" + } + + } + } + +} else { + # i'm at /dotlrn, so have the table UI, hack + set one_instance_p 1 + set data " + + + + " + + 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 "
  • " + } else { + append data "" + } + + incr count } - - if {!$one_instance_p && $f_check} { - append data "" - } - - } + } + + append data "
    NameGroup
    $faq_name$comm_name
    $faq_name$comm_name
    " + } # portlets shouldn't disappear anymore (ben)