Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/www/ip-info.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/ip-info.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.1 -r1.26.2.2
--- openacs-4/packages/acs-admin/www/users/one.adp	22 Sep 2020 07:13:32 -0000	1.26.2.1
+++ openacs-4/packages/acs-admin/www/users/one.adp	22 Sep 2020 07:50:36 -0000	1.26.2.2
@@ -10,8 +10,13 @@
 <li>User ID:  @user_id;literal@</li>
 <li><a href="@user_info.url;noi18n@">View community member page</a></li>
 <li>Registration date:  @user_info.creation_date_pretty@</li>
-<li>Registration IP: <a href="./ip-info?ip=@user_info.creation_ip@">@user_info.creation_ip@</a> (<a href="@user_info.by_ip_url@" title="Other registrations from this IP address">others</a>)</li>
+<li>Registration IP: <a href="@ip_info_url@?ip=@user_info.creation_ip@">@user_info.creation_ip@</a> (<a href="@user_info.by_ip_url@" title="Other registrations from this IP address">others</a>)</li>
 <li>Last visit: @user_info.last_visit_pretty@</li>
+<li>Last contribution: @user_info.last_contrib@
+<if @user_info.last_contrib_ip@ not nil>
+    from <a href="@ip_info_url@?ip=@user_info.last_contrib_ip@">@user_info.last_contrib_ip@</a> (<a href="@user_info.last_contrib_ip_url@" title="Other registrations from this IP address">others</a>)
+</if>
+</li>
 
 
 <if @portrait_url@ not nil>
@@ -34,7 +39,7 @@
 </else>
 
 <h2>This user is a member of the following groups:</h2>
-<p>Note: These are the groups to which the user has been granted 
+<p>Note: These are the groups to which the user has been granted
 <em>direct</em> membership.</p>
 
 <ul>
@@ -59,12 +64,12 @@
 
   <h2>@user_contributions.pretty_plural@</h2>
   <ul>
-  
+
   <group column="pretty_name">
     <li>@user_contributions.creation_date@: @user_contributions.object_name@</li>
   </group>
   </ul>
-  
+
 </multiple>
 
 <h2>Administrative Actions</h2>
@@ -101,5 +106,3 @@
 <li><a href="@portrait_manage_url;noi18n@">Manage this user's portrait</a></li>
 <li><a href="become?user_id=@user_id;literal@">Login as this user</a></li>
 </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.4 -r1.20.2.5
--- openacs-4/packages/acs-admin/www/users/one.tcl	11 Aug 2020 20:44:38 -0000	1.20.2.4
+++ openacs-4/packages/acs-admin/www/users/one.tcl	22 Sep 2020 07:50:36 -0000	1.20.2.5
@@ -3,7 +3,7 @@
     rewritten by philg@mit.edu on October 31, 1999
     makes heavy use of procedures in /tcl/ad-user-contributions-summary.tcl
     modified by mobin January 27, 2000 5:08 am
-    
+
     @cvs-id $Id$
 } {
     user_id:naturalnum,notnull
@@ -19,15 +19,28 @@
 set user_info(last_visit_pretty) [lc_time_fmt $user_info(last_visit_ansi) "%q %X"]
 set user_info(creation_date_pretty) [lc_time_fmt $user_info(creation_date) "%q"]
 set user_info(url) [acs_community_member_url -user_id $user_id]
-set user_info(by_ip_url) [export_vars -base "complex-search" { { target one } { ip $user_info(creation_ip) } }]
+set user_info(by_ip_url) [export_vars -base "complex-search" {
+    { target one } { ip $user_info(creation_ip) }
+}]
+set ip_info_url "/acs-admin/ip-info"
 
+if {[db_0or1row get_last_contrib {
+    select object_id, title, creation_date, creation_ip from acs_objects
+    where object_id = (select max(object_id) from acs_objects where creation_user = :user_id)}]} {
+    set user_info(last_contrib) "[lc_time_fmt $creation_date %q] on $title ($object_id)"
+    set user_info(last_contrib_ip) $creation_ip
+    set user_info(last_contrib_ip_url) [export_vars -base "complex-search" { { target one } { ip $user_info(last_contrib_ip) } }]
+} else {
+    set user_info(last_contrib) none
+    set user_info(last_contrib_ip) ""
+}
 set return_url [ad_return_url]
 
 set delete_user_url [export_vars -base delete-user { user_id return_url {permanent f}}]
 set delete_user_permanent_url [export_vars -base delete-user { user_id {return_url /acs-admin/users} {permanent t}}]
 
 #
-# RBM: Check if the requested user is a site-wide admin and warn the 
+# RBM: Check if the requested user is a site-wide admin and warn the
 # viewer in that case (so that a ban/deletion can be avoided).
 #
 
@@ -50,7 +63,7 @@
 
 if {[db_0or1row get_item_id {
     select coalesce(title,'view this portrait') as portrait_title
-    from acs_rels a, cr_items c, cr_revisions cr 
+    from acs_rels a, cr_items c, cr_revisions cr
     where a.object_id_two = c.item_id
          and c.live_revision = cr.revision_id
          and a.object_id_one = :user_id
@@ -74,7 +87,7 @@
      order by pretty_name, creation_date desc, object_name
 }
 
-# cro@ncacasi.org 2002-02-20 
+# cro@ncacasi.org 2002-02-20
 # Boy, is this query wacked, but I think I am starting to understand
 # how this groups thing works.
 # Find out which groups this user belongs to where he was added to the group