Index: openacs-4/packages/acs-admin/www/users/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/one.tcl,v
diff -u -N -r1.20.2.5 -r1.20.2.6
--- openacs-4/packages/acs-admin/www/users/one.tcl	22 Sep 2020 07:50:36 -0000	1.20.2.5
+++ openacs-4/packages/acs-admin/www/users/one.tcl	18 Nov 2020 19:22:52 -0000	1.20.2.6
@@ -73,20 +73,14 @@
 
 set user_finite_state_links [join [ad_registration_finite_state_machine_admin_links $user_info(member_state) $user_info(email_verified_p) $user_id] " | "]
 
+set number_contributions [db_string nr_contribs {
+    select count(*) from acs_objects
+    where creation_user = :user_id
+}]
 
+
 # XXX Make sure to make the following into links and this looks okay
 
-db_multirow user_contributions user_contributions {
-    select at.pretty_name,
-           at.pretty_plural,
-           to_char(a.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date,
-           acs_object.name(a.object_id) as object_name
-      from acs_objects a, acs_object_types at
-     where a.object_type = at.object_type
-       and a.creation_user = :user_id
-     order by pretty_name, creation_date desc, object_name
-}
-
 # cro@ncacasi.org 2002-02-20
 # Boy, is this query wacked, but I think I am starting to understand
 # how this groups thing works.
@@ -111,7 +105,6 @@
 
 set portrait_manage_url [export_vars -base /user/portrait/ { user_id return_url }]
 
-
 ad_return_template
 
 # Local variables: