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.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	6 Nov 2001 21:46:49 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	10 Nov 2001 18:03:23 -0000	1.7
@@ -32,4 +32,20 @@
 	return [ad_parameter group_type_key]
     }
 
+    ad_proc -public get_user_theme {
+	user_id
+    } {
+	Return the user default theme
+    } {
+	return [db_string select_user_theme {}]
+    }
+
+    ad_proc -public set_user_theme {
+	user_id
+	theme_id
+    } {
+	Set the user theme
+    } {
+	db_dml update_user_theme {}
+    }
 }