Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	16 Apr 2002 13:57:07 -0000	1.30
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl	30 Apr 2002 21:34:33 -0000	1.31
@@ -157,30 +157,42 @@
     } {
         Add a user to a specific dotlrn community
     } {
-        # Get the portal_id by callback
-        set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
-
         # Get the package_id by callback
-        set package_id [dotlrn_community::get_applet_package_id $community_id dotlrn_bboard]
+        set package_id [dotlrn_community::get_applet_package_id \
+                $community_id \
+                dotlrn_bboard
+        ]
 
-        # Allow user to see the bboard forums
-        # nothing for now
+        # Get the personal per comm portal_id by callback
+        set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 
-        # Make bboard DS available to this page
-        bboard_portlet::make_self_available $portal_id
+	if {[exists_and_not_null $portal_id]} {
+            # we have personal per comm portals
 
-        # Call the portal element to be added correctly
-        set element_id [bboard_portlet::add_self_to_page $portal_id $package_id]
+            # Make bboard DS available to this page
+            bboard_portlet::make_self_available $portal_id
+            
+            # Call the portal element to be added correctly
+            set element_id [bboard_portlet::add_self_to_page \
+                    $portal_id \
+                    $package_id
+            ]
 
-        # Make sure that the group name is not displayed here
-        portal::set_element_param $element_id "display_group_name_p" "f"
-
+            # Make sure that the group name is not displayed here
+            portal::set_element_param $element_id \
+                    "display_group_name_p" \
+                    "f"
+        }
+        
         # Now for the user workspace
         set workspace_portal_id [dotlrn::get_workspace_portal_id $user_id]
 
         # Add the portlet here
-        if { $workspace_portal_id != "" } {
-            set element_id [bboard_portlet::add_self_to_page $workspace_portal_id $package_id]
+        if {[exists_and_not_null $workspace_portal_id]} {
+            set element_id [bboard_portlet::add_self_to_page \
+                    $workspace_portal_id \
+                    $package_id
+            ]
 
             # Make sure that the group name IS displayed here
             portal::set_element_param $element_id "display_group_name_p" "t"