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 "