- Added debugging code to product

tcl/intranet-rest-authentication-procs.tcl

@@ -150,6 +150,14 @@ ad_proc -private im_rest_authenticate {
 	}
     }
 
+    # internal debugging: Try to track down issue #42853
+    if {[im_table_exists crm_online_interactions]} {
+        set user_system_id [im_opt_val system_id]
+        if {"" ne $user_system_id} {
+            crm_basic_interaction -interaction_type_id 3235 -system_id $user_system_id -message [im_url_with_query]
+        }
+    }
+
     ns_log Notice "im_rest_authenticate: format=$format, auth_method=$auth_method, auth_user_id=$auth_user_id"
     return [list user_id $auth_user_id method $auth_method]
 }