Index: openacs-4/packages/dotlrn/www/preferences.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/preferences.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/preferences.tcl	13 Nov 2001 17:57:30 -0000	1.2
+++ openacs-4/packages/dotlrn/www/preferences.tcl	19 Jan 2002 22:54:20 -0000	1.3
@@ -1,31 +1,24 @@
+# dotlrn/www/preferences.tcl
 
 ad_page_contract {
     Preferences for dotLRN
     
     @author Ben Adida (ben@openforce.net)
+    @author yon (yon@openforce.net)
     @creation-date 2001-11-10
-} {
+    @version $Id$
+} -query {
+} -properties {
+    title:onevalue
+    admin_p:onevalue
+    admin_url:onevalue
 }
 
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]
 
-form create preferences
+set title "Preferences"
+set admin_p [dotlrn::admin_p]
+set admin_url "[dotlrn::get_url]/admin"
 
-element create preferences theme_id \
-	-label "Portal Theme" -datatype text -widget select \
-	-options [concat {{{(don't override)} {}}} [db_list_of_lists select_themes "select name,theme_id from portal_element_themes"]]
-
-if {[form is_valid preferences]} {
-    template::form get_values preferences theme_id
-
-    dotlrn::set_user_theme $user_id $theme_id
-    ad_returnredirect "./"
-    return
-} else {
-    db_1row select_prefs {}
-
-    element set_properties preferences theme_id -set_value $theme_id
-}
-
 ad_return_template