Index: openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl	30 Nov 2001 18:12:57 -0000	1.7
+++ openacs-4/packages/dotlrn-faq/tcl/dotlrn-faq-procs.tcl	1 Dec 2001 23:17:01 -0000	1.8
@@ -98,8 +98,8 @@
     } {
 	Called when a user is added to a specific dotlrn community
     } {
-	# Get the page_id by callback
-	set page_id [dotlrn_community::get_page_id $community_id $user_id]
+	# Get the portal_id by callback
+	set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 	
 	# Get the faq applet's package_id by callback
 	set package_id [dotlrn_community::get_applet_package_id $community_id dotlrn_faq]
@@ -108,10 +108,10 @@
 	# nothing for now
 
 	# Make faq DS available to this page
-	faq_portlet::make_self_available $page_id
+	faq_portlet::make_self_available $portal_id
 
 	# Call the portal element to be added correctly
-	faq_portlet::add_self_to_page $page_id $package_id
+	faq_portlet::add_self_to_page $portal_id $package_id
     }
 
     ad_proc -public remove_user {
@@ -120,17 +120,17 @@
     } {
 	Remove a user from a community
     } {
-	# Get the page_id
-	set page_id [dotlrn_community::get_page_id $community_id $user_id]
+	# Get the portal_id
+	set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 	
 	# Get the package_id by callback
 	set package_id [dotlrn_community::get_package_id $community_id]
 
 	# Remove the portal element
-	faq_portlet::remove_self_from_page $page_id $package_id
+	faq_portlet::remove_self_from_page $portal_id $package_id
 
 	# Buh Bye.
-	faq_portlet::make_self_unavailable $page_id
+	faq_portlet::make_self_unavailable $portal_id
 
 	# remove user permissions to see faqs
 	# nothing to do here