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.21 -r1.22
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	4 Dec 2005 15:06:55 -0000	1.21
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	14 Dec 2005 22:03:24 -0000	1.22
@@ -161,10 +161,9 @@
     # Try to retrieve the project_id from the folder
     set project_id [db_string get_project_id_from_folder {
 	select r.object_id_two as project_id
-	from acs_rels r, cr_items i, cr_items p
+	from acs_data_links r, cr_items i, cr_items p
 	where i.item_id = :folder_id
 	and r.object_id_one = i.parent_id
-	and r.rel_type = 'application_data_link'
 	and r.object_id_two = p.item_id
     	and p.content_type = 'pm_project'
     } -default ""]