Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v diff -u -r1.98.2.11 -r1.98.2.12 --- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl 5 Dec 2021 15:37:48 -0000 1.98.2.11 +++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl 25 Jan 2022 17:33:19 -0000 1.98.2.12 @@ -128,21 +128,17 @@ @see person::get } { - set person_p [db_0or1row get_person_info { + db_0or1row get_person_info { select person_id, first_names, last_name, first_names || ' ' || last_name as name, bio from persons where person_id = :person_id - } -column_array person] + } -column_array person - if {$person_p} { - return [array get person] - } else { - return [list] - } + return [array get person] } ad_proc -public person::flush_person_info {