Отладка под Битрикс

        Function p($obj,$admOnly=true,$d=false)
        {
                global $USER;

                if($USER->IsAdmin() || $admOnly===false)
                {
                        echo "<pre>";
                        print_r($obj);
                        echo "</pre>";

                        if($d===true)
                                die();
                }
        }

        Function p2f($obj,$admOnly=true)
        {
                global $USER;
                if($USER->IsAdmin() || $admOnly===false)
                {
                        $dump="<pre style='font-size: 11px; font-family: tahoma;'>".print_r($obj, true)."</pre>";
                        $files = $_SERVER["DOCUMENT_ROOT"]."/".$USER->GetID."-dump.html";
                        $fp = fopen( $files, "a+" );
                        fwrite( $fp, $dump);
                        fclose( $fp );
                }
        }

// для отладки
if (!function_exists('d'))
{
   function d(&$var) { echo '<pre>'.htmlspecialchars(print_r($var, true)).'</pre>'; }
}