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.43 -r1.44 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 16 Apr 2002 13:53:52 -0000 1.43 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 18 Apr 2002 04:06:34 -0000 1.44 @@ -286,20 +286,18 @@ ad_proc -public render_page { {-workspace_p ""} {-hide_links_p "f"} - {-user_id ""} {-render_style "individual"} {-page_num ""} portal_id } { render a page in a user's favorite style } { - if {[empty_string_p $user_id]} { - set user_id [ad_conn user_id] - } - - set theme_id [get_user_theme $user_id] - - return [portal::render -page_num $page_num -hide_links_p $hide_links_p -render_style $render_style $portal_id $theme_id ] + return [portal::render \ + -page_num $page_num \ + -hide_links_p $hide_links_p \ + -render_style $render_style \ + $portal_id + ] } ad_proc -public get_group_id_from_user_type {