Index: openacs-4/packages/bboard-portlet/www/bboard-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/www/bboard-portlet.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/bboard-portlet/www/bboard-portlet.adp 12 Mar 2002 01:54:27 -0000 1.7
+++ openacs-4/packages/bboard-portlet/www/bboard-portlet.adp 13 Mar 2002 22:00:25 -0000 1.8
@@ -1,37 +1,23 @@
+
+
-<%
-set ul_output_p 0
-
-foreach forum $forums {
- set forum_name [lindex $forum 0]
- set forum_url [lindex $forum 1]
- set forum_forums [lindex $forum 2]
+
+
+
+ @data@
+
+
+
+
- # Skip forum groups with no forums
- if {[llength $forum_forums] == 0} {
- continue
- }
+
+
+ No Forums
+
- foreach one_forum $forum_forums {
- if {!$ul_output_p} {
- template::adp_puts ""
- set ul_output_p 1
- }
- template::adp_puts "- "
-
- if {$display_group_name_p == "t"} {
- template::adp_puts " $forum_name:"
- }
-
- template::adp_puts " [lindex $one_forum 1]\n"
- }
-
-}
-
-if {$ul_output_p} {
- template::adp_puts "
"
-} else {
- template::adp_puts "No Discussion Forums"
-}
-%>
+
+
+
+