Index: openacs-4/packages/contacts/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/search.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/contacts/www/search.tcl	3 Apr 2006 03:46:23 -0000	1.27
+++ openacs-4/packages/contacts/www/search.tcl	5 Apr 2006 21:51:50 -0000	1.28
@@ -82,7 +82,7 @@
 
 if { $search_exists_p } {
 
-    template::multirow create ext impl type type_pretty key key_pretty
+    template::multirow create ext impl type_key type_pretty key key_pretty
     
     # permissions for what attributes/extensions are visible to this
     # user are to be handled by this callback proc. The callback
@@ -110,11 +110,11 @@
     # we run through the multirow here to determine wether or not the columns are allowed
     template::multirow foreach ext {
 	set selected_p 0
-	if { [lsearch $extended_columns "${type}__${key}"] >= 0 } {
+	if { [lsearch $extended_columns "${type_key}__${key}"] >= 0 } {
 	    # we want to use this column in our table
-	    lappend remove_columns [list $key_pretty "${type}__${key}" $type_pretty]
+	    lappend remove_columns [list $key_pretty "${type_key}__${key}" $type_pretty]
 	} else {
-	    lappend add_columns [list $key_pretty "${type}__${key}" $type_pretty]
+	    lappend add_columns [list $key_pretty "${type_key}__${key}" $type_pretty]
 	}
 	
     }