Dan,
There's an option -column_array
to the db_ procs that means you can rewrite your ::get function like this:
ad_proc -public get {
{-person_id:required}
} {
get info for a person as a tcl array in list form
} {
db_1row get_person {} -column_array person
return [array get person]
}
Not terribly important, just a little FYI.
/Lars