- LDAP Wizard:

  Added error message with missing service contracts

tcl/intranet-ldap-procs.tcl

@@ -161,6 +161,23 @@ ad_proc -public im_sysconfig_create_edit_authority {
     # set get_doc_impl_id  [acs_sc::impl::get_id -owner "auth-ldap-adldapsearch" -name "LDAP" -contract "auth_sync_retreive"]
     # set process_doc_impl_id  [acs_sc::impl::get_id -owner "auth-ldap-adldapsearch" -name "LDAP" -contract "auth_sync_process"]
     
+    if {"" == $auth_impl_id} {
+	ad_return_complaint 1 "
+		<b>Internal Configuration Error</b><br>:
+		It seems that the configuration of your 'service contracts' is<br>
+		broken. We have seen this error before, but we have not yet been <br>
+		able to reproduce and fix it.<br>
+		&nbsp;<br>
+		Please contact support@project-open.com for free support. Please<br>
+		include 'LDAP service contract error' in the subject line of your<br>
+		email.<br>
+		&nbsp;
+		Thank you!
+	"
+	ad_script_abort
+    }
+
+
     set register_impl_id ""
     set user_info_impl_id ""
     set get_doc_impl_id ""