Index: openacs.org-dev/packages/cms/www/modules/users/edit-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/users/edit-user.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/users/edit-user.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/users/edit-user.tcl	8 Oct 2002 15:47:03 -0000	1.1.1.2
@@ -48,29 +48,15 @@
   } 
 
 if { [form is_request edit_user] } {
-
+    ns_log Notice "REQUEST"
   # Find basic user params
-  template::query get_user_info info onerow "
-    select
-      p.first_names, p.last_name, 
-      pp.email, pp.url, 
-      u.screen_name,
-      to_char(u.no_alerts_until, 'YYYY/MM/DD') as no_alerts_until
-    from
-      persons p, parties pp, users u
-    where
-      p.person_id = :id
-    and
-      pp.party_id = :id
-    and
-      u.user_id = :id
-  "
+    db_1row get_user_info "" -column_array info
 
-  form set_values edit_user info
+    form set_values edit_user info
 }
 
 if { [form is_valid edit_user] } {
-
+    ns_log Notice "VALID"
   form get_values edit_user first_names last_name screen_name item_id \
     user_id parent_id mount_point email url password no_alerts_until
 
@@ -103,6 +89,8 @@
 
   template::forward "one-user?id=$item_id&parent_id=$parent_id&mount_point=$mount_point"
 
+} else {
+    ns_log Notice "FORM NOT VALID"
 }