Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	10 Apr 2006 07:45:12 -0000	1.35
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	10 Apr 2006 20:17:03 -0000	1.36
@@ -723,17 +723,17 @@
 
 }
 
-ad_proc -public -callback contacts::multirow::extend -impl attributes {
+ad_proc -public -callback contacts::multirow::extend -impl relationships {
     {-type}
     {-key}
     {-select_query}
     {-format "html"}
 } {
 } {
-    if { $format ne "text" } {
-	set format "html"
-    }
     if { $type eq "relationships" } {
+	if { $format ne "text" } {
+	    set format "html"
+	}
 	# now we need to figure out what ends of a relationship this role can be
 	set object_one_types [list]
 	set object_two_types [list]
@@ -800,7 +800,7 @@
     {-object_type}
 } {
 } {
-    
+
     switch $object_type {
 	person { set object_types [list person party] }
 	organization { set object_types [list organization party] }