Index: openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl	16 Apr 2002 13:58:05 -0000	1.15
+++ openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl	30 Apr 2002 21:35:52 -0000	1.16
@@ -122,22 +122,27 @@
     } {
 	Add a user to a specifc dotlrn community
     } {
+        
+        # Get the package_id by callback
+        set package_id [dotlrn_community::get_applet_package_id \
+                $community_id \
+                dotlrn_news
+        ]
 
-#	ad_return_complaint 1 "$community_id $user_id"
-	# Get the portal_id by callback
+	# Get the personal per comm 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_news]
+	if {[exists_and_not_null $portal_id]} {
+            # we have personal per comm portals
+            # Allow user to see the news folders
+            # nothing for now
+            
+            # Make news DS available to this page
+            news_portlet::make_self_available $portal_id
 
-	# Allow user to see the news folders
-	# nothing for now
+            news_portlet::add_self_to_page $portal_id $package_id
+        }
 
-	# Make news DS available to this page
-	news_portlet::make_self_available $portal_id
-
-	news_portlet::add_self_to_page $portal_id $package_id
-
 	# Now for the user workspace
 	set workspace_portal_id [dotlrn::get_workspace_portal_id $user_id]