Index: openacs-4/packages/acs-admin/www/users/one-contributions.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/one-contributions.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/one-contributions.adp	18 Nov 2020 19:22:52 -0000	1.1.2.1
@@ -0,0 +1,21 @@
+<master>
+<property name="doc(title)">Contributions of @user_info.first_names;noquote@ @user_info.last_name;noquote@</property>
+<property name="context">@context;literal@</property>
+
+<h1>Contributions of @user_info.name@</h1>
+
+These are the @number_contributions@ contributions of
+user @user_info.name@ (user_id <a href="./one?user_id=@user_id@">@user_id@</a>
+username @user_info.username@ email @user_info.email@).
+
+<multiple name="user_contributions">
+
+  <h2>@user_contributions.pretty_plural@</h2>
+  <ul>
+
+  <group column="pretty_name">
+    <li>@user_contributions.creation_date@: @user_contributions.object_name@</li>
+  </group>
+  </ul>
+
+</multiple>
Index: openacs-4/packages/acs-admin/www/users/one-contributions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/one-contributions.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/one-contributions.tcl	18 Nov 2020 19:22:52 -0000	1.1.2.1
@@ -0,0 +1,43 @@
+ad_page_contract {
+    Display the contributions of a user.
+
+    This content was previously part of one.tcl, but on laarge
+    systems, this information of overboarding and it is dangerous to
+    visit the page, which might become very large and expensive to
+    compute.
+    
+} {
+    user_id:naturalnum,notnull
+}
+
+set context [list [list "./" "Users"] "One User Contribution"]
+
+set user_dict [acs_user::get -user_id $user_id -array user_info]
+if {[array size user_info] == 0} {
+    ad_return_complaint 1 "<li>We couldn't find user #$user_id; perhaps this person was deleted?"
+    ad_script_abort
+}
+
+set number_contributions [db_string nr_contribs {
+    select count(*) from acs_objects
+    where creation_user = :user_id
+}]
+
+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
+}
+
+ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
Index: openacs-4/packages/acs-admin/www/users/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/one.adp,v
diff -u -N -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/acs-admin/www/users/one.adp	22 Sep 2020 07:50:36 -0000	1.26.2.2
+++ openacs-4/packages/acs-admin/www/users/one.adp	18 Nov 2020 19:22:52 -0000	1.26.2.3
@@ -2,7 +2,7 @@
 <property name="doc(title)">@user_info.first_names;noquote@ @user_info.last_name;noquote@</property>
 <property name="context">@context;literal@</property>
 
-<h2>Basic Information</h2>
+<h1>Basic Information</h1>
 
 <include src="/packages/acs-subsite/lib/user-info" user_id="@user_id;literal@" return_url="@return_url;literal@">
 
@@ -60,18 +60,10 @@
   </multiple>
 </ul>
 
-<multiple name="user_contributions">
+<h2>Contributions of this user</h2>
 
-  <h2>@user_contributions.pretty_plural@</h2>
-  <ul>
+<p>Number of contributions of this user: <a href="./one-contributions?user_id=@user_id@">@number_contributions@</a></p>
 
-  <group column="pretty_name">
-    <li>@user_contributions.creation_date@: @user_contributions.object_name@</li>
-  </group>
-  </ul>
-
-</multiple>
-
 <h2>Administrative Actions</h2>
 
 <ul>
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: