Index: openacs-4/packages/acs-subsite/www/admin/parties/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/one.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	27 Oct 2014 16:39:52 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	7 Aug 2017 23:47:58 -0000	1.6
@@ -34,12 +34,7 @@
 # Select out the party name and the party's object type. Note we can
 # use 1row because the validate filter above will catch missing parties
 
-db_1row party_info {
-    select acs_object.name(:party_id) as party_name,
-           object_type as party_type
-      from acs_objects
-     where object_id = :party_id
-}
+db_1row party_info {}
 
 ### This page redirects to different pages for groups or rel_segments.
 ### We have to check whether the party_type is a type of group or rel_segment.
@@ -71,3 +66,9 @@
 	-object_type $party_type \
 	$party_id
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: