Index: openacs-4/packages/contacts/tcl/contacts-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-init.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/contacts/tcl/contacts-init.tcl	28 Jun 2005 17:39:18 -0000	1.8
+++ openacs-4/packages/contacts/tcl/contacts-init.tcl	28 Jun 2005 20:20:50 -0000	1.9
@@ -7,6 +7,8 @@
 }
 
 if {[empty_string_p [info procs callback]]} {
+
+    ns_log notice "CONTACTS: callback proc didn't exist so we are adding it here"
     ad_proc -public callback {
 	-catch:boolean
 	{-impl *}
@@ -21,7 +23,7 @@
 
 if { [empty_string_p [info procs rel_types::create_role]] } {
 
-    ns_log notice "rel_types::create_role didn't exist so we are adding it here"
+    ns_log notice "CONTACTS: rel_types::create_role proc didn't exist so we are adding it here"
     namespace eval rel_types {}
     ad_proc -public rel_types::create_role {
 	{-pretty_name:required}
@@ -82,3 +84,20 @@
 
 
 }
+
+
+if {[empty_string_p [info procs application_data_link::get_linked]]} {
+
+    ns_log notice "CONTACTS: application_data_link::get_linked proc didn't exist so we are adding it here"
+    namespace eval application_data_link {}
+    ad_proc -public application_data_link::get_linked {
+	args
+    } {
+	Placeholder for contacts to work on 5.1
+    } {
+	return {}
+    }
+
+}
+
+