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.9 -r1.10
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	10 Nov 2001 19:09:12 -0000	1.9
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	13 Nov 2001 17:57:30 -0000	1.10
@@ -75,4 +75,19 @@
 	return $new_package_id
     }
 	
+    ad_proc -public render_page {
+	{-user_id  ""}
+	page_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 [db_string select_user_theme_id "select theme_id from dotlrn_users where user_id= :user_id"]
+
+	return [portal::render $page_id $theme_id]
+    }
+
 }