Index: openacs-4/packages/file-manager/www/file-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/www/file-edit-2.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/file-manager/www/file-edit-2.tcl	20 Apr 2001 20:51:14 -0000	1.1.1.1
+++ openacs-4/packages/file-manager/www/file-edit-2.tcl	9 Mar 2002 23:54:35 -0000	1.1.1.1.2.1
@@ -49,10 +49,10 @@
 	set user_id [ad_verify_and_get_user_id]
 
 	db_1row user_info {
-	    select first_names || ' ' || last_name as name,
-	           email
-	    from   users
-	    where  user_id = :user_id
+            select first_names || ' ' || last_name as name, 
+                   email 
+            from persons pe, parties pa 
+            where pe.person_id=:user_id and pa.party_id=pe.person_id
 	}
 	db_release_unused_handles