Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	11 Jan 2002 21:45:50 -0000	1.29
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	17 Jan 2002 21:59:28 -0000	1.30
@@ -257,6 +257,7 @@
     }
 	
     ad_proc -public render_page {
+	{-hide_links_p  "f"}
 	{-user_id  ""}
 	portal_id
     } {
@@ -268,7 +269,7 @@
 
 	set theme_id [get_user_theme $user_id]
 
-	return [portal::render $portal_id $theme_id]
+	return [portal::render -hide_links_p $hide_links_p $portal_id $theme_id]
     }
 
 }