Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/www/users/one-contributions.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/www/users/one-contributions.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
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 -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 -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: