/// <reference path="../../CTWebScripts/General.js" />

AJAXRequestControl.prototype.toString = function () { return '[AJAX Request Control]'; }
CTWebParameter.prototype.toString = function () { return '[CTWebParameter Object]'; }


// CTWebParameter Object
function CTWebParameter(name, value) {
    /// <field name="Name" type="String" />
    /// <field name="Value" type="Object" />
    /// <field name="ExtendedParameters" type="ICTWebParameterCollection" />
    /// <field name="Nodes" type="ICTWebParameterCollection" />


    /* Parameter properties */
    this.Name = name;
    this.Value = (value != undefined && value != null) ? value : "";

    /* Extended Parameters Collection */
    this.ExtendedParameters = new CTWebParameterCollection();

    // Extended parameters alias
    this.Nodes = this.ExtendedParameters;
}
CTWebParameter.prototype.Clone = CTWebParam_Clone;

function CTWebParameterCollection() {
    Object.Inherits(this, Collection);
    delete this.Add;

    this.DefaultCollectionObject = CTWebParameter;
}
CTWebParameterCollection.prototype.Add = function (name, value) {
    /// <returns type="CTWebParameter" />

    if (typeof (this.Add.arguments[0]) == 'object') {
        var o = this.Add.arguments[0];
    } else {
        var o = new CTWebParameter(this.Add.arguments[0], this.Add.arguments[1]);
    }

    this.Items.splice(this.Items.length, 0, o);
    return o;
}
CTWebParameterCollection.prototype.CloneFrom = function (collectionToCloneFrom) {
    /// <summary>Clones nodes from another collection</summary>
    for (var i = 0; i < collectionToCloneFrom.Items.length; i++) {
        this.Items[this.Items.length] = collectionToCloneFrom.Items[i].Clone();
    }
}

function ICTWebParameterCollection() {
    /// <summary>Do not instaniate this object, it is merely used for type casting Collections that use CTWebParameters</summary>
    /// <field name="Items" type="Array" elementType="CTWebParameter" />
}
ICTWebParameterCollection.prototype.Add = function (name, value) {
    /// <returns type="CTWebParameter" />
}
ICTWebParameterCollection.prototype.Remove = function (name) {
    /// <returns type="Boolean" />
}
ICTWebParameterCollection.prototype.Remove = function (name) {
    /// <returns type="Boolean" />
}
ICTWebParameterCollection.prototype.Find = function (Attribute, Value, SingleOnly) {
    /// <param name="Attribute" type="String">Attribute to compare</param>
    /// <param name="Value" type="Object">Value to test for</param>
    /// <param name="SingleOnly" type="Boolean">Default is false, when set to true returns the first found matching object</param>
    /// <returns type="Array" elementType="CTWebParameter" />    
}

function CTWebParam_Clone() {
    /// <returns type="CTWebParameter" />
    var p = new CTWebParameter(this.Name, this.Value);

    var itms = this.Nodes.Items;

    for (var i = 0; i < itms.length; i++) {
        p.Nodes.Items[p.Nodes.Items.length] = itms[i].Clone();
    }

    return p;
}

RC_Response.prototype.ShowDebugMessages = __RC_Response_ShowDebugMessages;
function RC_Response() {
    /// <field name="ErrorName" type="String" />
    /// <field name="ErrorNumber" type="Number" />
    /// <field name="ErrorType" type="String" />
    /// <field name="ErrorDescription" type="String" />
    /// <field name="ErrorData" type="Array" elementType="String" />
    /// <field name="SessionID" type="String" />
    /// <field name="DebugMessages" type="Array" elementType="String" />
    /// <field name="Parameters" type="ICTWebParameterCollection" />
    /// <field name="Nodes" type="ICTWebParameterCollection">Same as parameters</param>

    this.ErrorName = "";
    this.ErrorNumber = 0;
    this.ErrorType = "";
    this.ErrorDescription = "";
    this.ErrorData = new Array(0);

    this.SessionID = "";

    this.DebugMessages = new Array();


    this.Parameters = new Collection();
    this.Parameters.DefaultCollectionObject = CTWebParameter;

    this.Nodes = this.Parameters;

    /* Add() Overload */
    this.Parameters.Add = function (name, value) {
        if (typeof (this.Add.arguments[0]) == 'object') {
            var o = this.Add.arguments[0];
        } else {
            var o = new CTWebParameter(this.Add.arguments[0], this.Add.arguments[1]);
        }

        this.Items.splice(this.Items.length, 0, o);
        return o;
    }
}

function __RC_Async_Class(pAJAXRequest) {
    this.__Parent = pAJAXRequest;

    this.Enabled = false;                /* Whether the transaction is run asynchronously (for running long transactions) */
    this.ID = null;                 /* Call back id for an async transaction */
    this.Timeout = 300;                  /* Max time to wait for the async transaction to return */
    this.PollInterval = 1;                /* Time to wait between completion polls */

    this.__TimeoutCallback = function () { __RC_Async_Timedout(pAJAXRequest); };
    this.__TimeoutHandle = null;

    this.__StatusCheckCallback = function () { __RC_Async_StatusCheck(pAJAXRequest); };
    this.__StatusCheckHandle = null;

}
__RC_Async_Class.prototype.Clear = __RCAsync_Clear;
__RC_Async_Class.prototype.Cancel = __RCAsync_Cancel;


function __RCAsync_Clear() {
    this.Enabled = false;
    this.ID = null;

    if (this.__TimeoutHandle != null) clearTimeout(this.__TimeoutHandle);
    if (this.__StatusCheckHandle != null) clearTimeout(this.__StatusCheckHandle);
}

function __RCAsync_Cancel() {
    if (this.ID == null) {
        this.__Parent.Events.RaiseEvent("TRANSFERCANCELLED", oJSCtl);
        return;
    }
}

function __RC_Async_Timedout(oJSCtl) {
    if (oJSCtl.Async.__StatusCheckHandle != null) clearTimeout(oJSCtl.Async.__StatusCheckHandle);
    if (oJSCtl.Async.__TimeoutHandle != null) clearTimeout(oJSCtl.Async.__TimeoutHandle);

    oJSCtl.Async.__StatusCheckHandle = null;
    oJSCtl.Async.__TimeoutHandle = null;

    oJSCtl.Downloader.abort();
    oJSCtl.Events.RaiseEvent("ASYNCTRANSFERTIMEDOUT", oJSCtl);
    oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
}

function __RC_RequestAsyncResponseBuilder() {
    this.Clear();

    this.Library = 'SERVICES';
    this.RequestHandler = 'ASYNCTRANSACTION';
    this.RequestAction = 'GETASYNCRESPONSE';

    var Args = this.RequestParameters.Add("Arguments");

    Args.Nodes.Add("TransactionID", this.Async.ID);

    this.Async.Clear();
    this.SendRequest();
}

function __RC_Async_StatusCheck(oJSCtl) {
    if (oJSCtl.Async.__StatusCheckHandle != null) clearTimeout(oJSCtl.Async.__StatusCheckHandle);
    oJSCtl.Async.__StatusCheckHandle = null;

    if (oJSCtl.Downloader.readyState != 0 && oJSCtl.Downloader.readyState != 4) {
        // Control is busy
        return;
    }

    oJSCtl.Clear();

    // Setup Status Check Request
    oJSCtl.Library = 'SERVICES';
    oJSCtl.RequestHandler = 'ASYNCTRANSACTION';
    oJSCtl.RequestAction = 'VIEW-LIST';

    oJSCtl.RequestParameters.Add("Restrictions", "ID='" + oJSCtl.Async.ID + "'");
    oJSCtl.RequestParameters.Add("Fields", "ID, NumericStatus, TextStatus");

    oJSCtl.Events.RaiseEvent("CHECKING_ASYNCTRANSACTION_STATUS", oJSCtl);

    oJSCtl.SendRequest();
}

// RequestControl Object
function AJAXRequestControl() {
    /// <field name="Name" type="String">Not Used</field>
    /// <field name="Response" type="RC_Response" />
    /// <field name="RequestParameters" type="ICTWebParameterCollection">Same as Nodes</field>
    /// <field name="Nodes" type="ICTWebParameterCollection">Same as RequestParameters</field>
    /// <field name="Server" type="String">Server to point to (auto-filled by QueueSystem)</field>
    /// <field name="AJAXEntryPoint" type="String">AJAX Entrypoint location (defaulted)</field>
    /// <field name="Async" type="__RC_Async_Class" />
    /// <field name="Downloader" type="IXMLHTTP" />
    /// <field name="XMLDocument" type="IXMLDOMDocument" />
    /// <field name="XMLResponse" type="IXMLDOMDocument" />
    /// <field name="RequestAction" type="String" />
    /// <field name="RequestHandler" type="String" />
    /// <field name="Library" type="String" />
    /// <field name="EncodeRequest" type="Boolean" />
    /// <field name="EncodeResponse" type="Boolean" />
    /// <field name="AutoParseParams" type="Boolean" />
    /// <field name="CallbackFunction" type="Function" />

    GarbageHeap.Add(this);

    Object.Inherits(this, WebControl);

    this.Name = "";

    this.Response = new RC_Response();

    this.RequestParameters = new CTWebParameterCollection();

    this.Nodes = this.RequestParameters;

    this.Server = "";

    this.AJAXEntryPoint = '/CTWebInterface/CTWebEntryPoints/RequestHandler.aspx';

    this.Async = new __RC_Async_Class(this);



    this.b_cancel = false;

    /* Add() Overload */

    this.RequestParameters.Add = function (name, value) {
        if (typeof (this.Add.arguments[0]) == 'object') {
            var o = this.Add.arguments[0];
        } else {
            var o = new CTWebParameter(this.Add.arguments[0], this.Add.arguments[1]);
        }

        this.Items.splice(this.Items.length, 0, o);
        return o;
    }


    try {
        this.Downloader = new ActiveXObject("MSXML2.XMLHTTP.4.0");
        this.XMLDocument = new ActiveXObject("MSXML2.DOMDocument.4.0");
        this.XMLResponse = new ActiveXObject("MSXML2.DOMDocument.4.0");
    } catch (err) {

        var ret = Msgbox("The application was unable to initialise a core component.  It is likely that you need to install the Microsoft XML Component.  Would you like to be re-directed to the download location?", vbInformation + vbYesNo, "Download installer?");
        if (ret == vbYes) {
            window.location.href = "http://auto.vitalsoftware.net/PublicFiles/msxml.msi";
        }
        return false;
    }




    this.RequestAction = "";
    this.RequestHandler = "";
    this.Library = "";

    this.EncodeRequest = true;
    this.EncodeResponse = false;
    this.AutoParseParams = true;

    this.CallbackFunction = null;


    this.__Dispose = function () {
        if (this.Downloader.readyState != 4) this.Downloader.abort();

        this.CallbackFunction = null;
        this.XMLResponse = null;
        this.XMLDocument = null;
        this.Downloader = null;
        this.RequestParameters = null;
    }
}
AJAXRequestControl.prototype.ReportError = RC_ReportError;
AJAXRequestControl.prototype.SendRequest = RC_SendXMLRequest;
AJAXRequestControl.prototype.Clear = RC_Clear;
AJAXRequestControl.prototype.Cancel = RC_Cancel;
AJAXRequestControl.prototype.DisplayRequest = RC_DisplayRequest;
AJAXRequestControl.prototype.RequestAsyncResponse = __RC_RequestAsyncResponseBuilder;
AJAXRequestControl.prototype.XML = RC_BuildXMLDocument;

Cast.As.AJAXRequest = function (val) {
    /// <summary>Returns a casted AJAXRequest</summary>
    /// <param name="val" type="AJAXRequestControl">Value to cast</param>
    /// <returns type="AJAXRequestControl" />
    return val;
}

function RC_Cancel() {
    if (this.Downloader.readyState != 4 && this.Downloader.readyState != 0) {
        this.Downloader.abort();
    }

    this.b_cancel = true;

    if (this.Async.Enabled) {
        this.Async.Cancel();
    }
    else {
        //this.Events.RaiseEvent("TRANSFERCANCELLED", this);
    }

}

function RC_Clear() {
    var oJSCtl = this;
    oJSCtl.RequestParameters.Clear();

    oJSCtl.RequestHandler = "";
    oJSCtl.RequestAction = "";
    oJSCtl.Library = "";

    oJSCtl.XMLDocument = new ActiveXObject("MSXML2.DOMDocument.4.0");
    oJSCtl.XMLResponse = new ActiveXObject("MSXML2.DOMDocument.4.0");

    oJSCtl.Response = new RC_Response();
}

function RC_AddResponseNodes(oContainer, nodeXML) {
    var oTmp = oContainer.Add();
    oTmp.Name = nodeXML.nodeName;

    if (nodeXML.childNodes.length == 1 && (nodeXML.childNodes[0].nodeType == 3 || nodeXML.childNodes[0].nodeType == 4)) {
        oTmp.Value = (nodeXML.text != undefined) ? nodeXML.text.toString() : "";
    } else {
        for (var i = 0; i < nodeXML.childNodes.length; i++) {
            RC_AddResponseNodes(oTmp.Nodes, nodeXML.childNodes[i])
        }
    }
}

function RC_DisplayRequest(uTarget) {
    var oJSCtl = this;
    oJSCtl.EncodeRequest = false;
    if (uTarget != undefined) {
        uTarget.innerText = RC_BuildXMLDocument(oJSCtl);
    } else {
        alert(RC_BuildXMLDocument(oJSCtl));
    }
    oJSCtl.EncodeRequest = true;
}

function RC_OnReadyStateChange(oJSCtl) {
    if (oJSCtl.Downloader.readyState == 4 && oJSCtl.b_cancel)   // exit early, tranfer cancelled
    {
        oJSCtl.Events.RaiseEvent("TRANSFERCANCELLED", oJSCtl);
        return;
    }
    if (oJSCtl.Downloader.readyState != 4) return;  // Exit early, download not finished


    // Transfer Complete

    if (typeof (oJSCtl.XMLResponse) != "object") {
        oJSCtl.XMLResponse = new ActiveXObject("MSXML2.DOMDocument.4.0");
    } else {
        if (oJSCtl.XMLResponse.hasChildNodes) {
            oJSCtl.XMLResponse.removeChild(oJSCtl.XMLResponse.childNodes[0]);
        }
    }

    var strXML = oJSCtl.Downloader.responseText;
    oJSCtl.ResponseText = oJSCtl.Downloader.responseText;

    // Time out or user has cancelled the page.
    if (strXML.length == 0) {
        oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
        return;
    }

    oJSCtl.XMLResponse.loadXML(strXML);

    if (oJSCtl.XMLResponse.parseError != 0) {
        if (oJSCtl.Parent != null && oJSCtl.Parent != undefined) {
            // Running in QueueSystem
        }
        else {
            // Running Stand Alone
            oJSCtl.ReportError();
        }

        oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
        return;
    }


    // ** OK, load the response nodes into the response object		
    var nodeXMLHeader = oJSCtl.XMLResponse.selectSingleNode("//DataTransfer/Header");
    var nodeXMLResponse = oJSCtl.XMLResponse.selectSingleNode("//DataTransfer/Response");

    if (nodeXMLHeader == null || nodeXMLResponse == null) {
        var ret = Msgbox("A problem occurred with the server response, an internal server error may have occurred.\n\nWould you like to see the response?", vbQuestion + vbYesNo, "View server response?");
        if (ret == vbYes) alert(strXML);

        oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
        return;
    }



    // Check to see if a response size has been attached
    var nodResponseSize = oJSCtl.XMLResponse.selectSingleNode("//DataTransfer/Header/ResponseSize");
    if (nodResponseSize != null) {
        var sResponseSize = nodResponseSize.text.Trim();
        var iResponseSize = sResponseSize.toString().ToInt();

        if (iResponseSize != oJSCtl.XMLResponse.xml.length) {
            alert("Response size does not match the original size sent from the server...!!!!");
        }
    }

    // Check to see if the response needs to be decoded
    if (oJSCtl.EncodeResponse) {
        RC_DecodeXMLDoc(oJSCtl.XMLResponse);
    }

    var Response = oJSCtl.Response;
    // Add the response header properties
    Response.ErrorNumber = nodeXMLHeader.selectSingleNode("ErrorNumber").text.toString().ToInt();
    Response.ErrorType = nodeXMLHeader.selectSingleNode("ErrorType").text.toString();
    Response.ErrorDescription = nodeXMLHeader.selectSingleNode("ErrorDescription").text.toString();

    var nodErrorName = nodeXMLHeader.selectSingleNode("ErrorName");
    if (nodErrorName != null)
        Response.ErrorName = nodErrorName.text.toString();

    var nodErrorData = nodeXMLHeader.selectSingleNode("ErrorData");
    if (nodErrorData != null) {
        for (var i = 0; i < nodErrorData.childNodes.length; i++) {
            Response.ErrorData[Response.ErrorData.length] = { Key: nodErrorData.childNodes[i].selectSingleNode("Key").text,
                Value: nodErrorData.childNodes[i].selectSingleNode("Value").text
            }
        }
    }

    Response.Parameters.Clear();

    // Parse debug messages.
    var DebugMessages = Response.DebugMessages;
    DebugMessages.splice(0, DebugMessages.length);

    var oxmlDebugMessages = nodeXMLHeader.selectSingleNode("DebugMessages");

    if (oxmlDebugMessages != null) {
        for (var i = 0; i < oxmlDebugMessages.childNodes.length; i++) {
            try { DebugMessages[i] = oxmlDebugMessages.childNodes[i].text; } catch (err) { }
        }
    }

    // Test If the AJAXRequest Control is parented by the queuesystem.
    var bParse = (oJSCtl.Parent != undefined) ? oJSCtl.Parent.Parent.AutoParseParams : oJSCtl.AutoParseParams;
    if (bParse) {
        for (var i = 0; i < nodeXMLResponse.childNodes.length; i++) {
            RC_AddResponseNodes(oJSCtl.Response.Parameters, nodeXMLResponse.childNodes[i]);
        }
    }


    if (oJSCtl.Async.Enabled == true && oJSCtl.Async.ID == null) {

        // Just started a new async call
        var nodAsyncID = oJSCtl.XMLResponse.selectSingleNode("//DataTransfer/Response/TransactionID");

        if (nodAsyncID == null) {
            oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
            return;
        }

        // Retrieve the call back ID
        oJSCtl.Async.ID = nodAsyncID.text;

        // Set Timeout for maximum amount of time to wait for it to complete executing
        if (oJSCtl.Async.Timeout > 0) {
            oJSCtl.Async.__TimeoutHandle = setTimeout(oJSCtl.Async.__TimeoutCallback, oJSCtl.Async.Timeout * 1000);
        }

        // Set Timeout for checking its completion
        oJSCtl.Async.__StatusCheckHandle = setTimeout(oJSCtl.Async.__StatusCheckCallback, oJSCtl.Async.PollInterval * 1000);



    } else {

        if (oJSCtl.Async.Enabled == true) {
            // Will be a status check
            var oStatusCheck = oJSCtl.XMLResponse.selectSingleNode("//DataTransfer/Response/DataSet/Record/NumericStatus");
            if (oStatusCheck == null) {
                oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
                return;
            }

            var iStatusCheck = oStatusCheck.text.toString().ToInt();

            clearTimeout(oJSCtl.Async.__StatusCheckHandle);
            oJSCtl.Async.__StatusCheckHandle = null;

            oJSCtl.Events.RaiseEvent("ASYNCSTATUSRECEIVED", oJSCtl, iStatusCheck);

            switch (iStatusCheck) {
                case 0: //Ongoing
                    oJSCtl.Async.__StatusCheckHandle = setTimeout(oJSCtl.Async.__StatusCheckCallback, oJSCtl.Async.PollInterval * 1000);
                    break;

                case 1: // Completed
                    //clearTimeout(oJSCtl.Async.__TimeoutHandle);  
                    //oJSCtl.Async.__TimeoutHandle = null;   
                    oJSCtl.Async.Enabled = false;
                    oJSCtl.RequestAsyncResponse();
                    break;

                case 2: // Failed
                case 3: // Cancelled
                    clearTimeout(oJSCtl.Async.__TimeoutHandle);
                    oJSCtl.Async.__TimeoutHandle = null;
                    oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
                    break;

                default:
                    oJSCtl.Events.RaiseEvent("TRANSFERFAILED", oJSCtl);
                    break;
            }

            return;
        }

        oJSCtl.Events.RaiseEvent("TRANSFERCOMPLETE", oJSCtl);
    }


}

function RC_SendXMLRequest() {
    var oJSCtl = this;
    RC_BuildXMLDocument(oJSCtl);
    oJSCtl.b_cancel = false;

    oJSCtl.Downloader.open("POST", oJSCtl.AJAXEntryPoint, true, "", "");

    oJSCtl.Downloader.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");

    // Assign our callback					
    oJSCtl.CallbackFunction = function () { return RC_OnReadyStateChange(oJSCtl); }
    oJSCtl.Downloader.onreadystatechange = oJSCtl.CallbackFunction;

    // Add Request size
    var iRequestLength = oJSCtl.XMLDocument.xml.length;

    // Convert this to a proper form post				
    var strXML = "RequestSize=" + iRequestLength + '&XmlPost=' + escape(oJSCtl.XMLDocument.xml);

    oJSCtl.Downloader.send(strXML);
}

function RC_AddParams(colParams, nodeParam, oJSCtl) {
    for (var i = 0; i < colParams.Items.length; i++) {
        var nodeExtParam = oJSCtl.XMLDocument.createElement(colParams.Items[i].Name);

        if (colParams.Items[i].Value != undefined) {
            nodeExtParam.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(colParams.Items[i].Value.toString()) : colParams.Items[i].Value.toString();
        } else {
            nodeExtParam.nodeTypedValue = "";
        }

        nodeParam.appendChild(nodeExtParam);

        if (colParams.Items[i].ExtendedParameters.Items.length > 0)
            RC_AddParams(colParams.Items[i].ExtendedParameters, nodeExtParam, oJSCtl);
    }
}

function RC_BuildXMLDocument(oJSCtl) {
    /// <summary>Builds the XML document</summary>
    /// <param name="oJSCtl" type="AJAXRequestControl">Optional</param>
    /// <returns type="IXMLDOMNode" />

    if (oJSCtl == undefined) oJSCtl = this;

    oJSCtl.XMLDocument = new ActiveXObject("MSXML2.DOMDocument.4.0");

    var nodeRoot = oJSCtl.XMLDocument.createElement("DataTransfer");
    var nodeHeader = oJSCtl.XMLDocument.createElement("Header");
    var nodeEncodeReponse = oJSCtl.XMLDocument.createElement("EncodeResponse");
    var nodePage = oJSCtl.XMLDocument.createElement("Page");             // Used for tracing
    var nodeCorrelationId = oJSCtl.XMLDocument.createElement("CorrelationId");  // Used for tracing
    var nodeAction = oJSCtl.XMLDocument.createElement("Action");
    var nodeClassHandler = oJSCtl.XMLDocument.createElement("ClassHandler");
    var nodeRequest = oJSCtl.XMLDocument.createElement("Request");
    var nodLibrary = oJSCtl.XMLDocument.createElement("Library");

    var nodExecute = oJSCtl.XMLDocument.createElement("Execute");

    // ** Set the header values
    nodeAction.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(oJSCtl.RequestAction) : oJSCtl.RequestAction;
    nodeClassHandler.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(oJSCtl.RequestHandler) : oJSCtl.RequestHandler;
    nodLibrary.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(oJSCtl.Library) : oJSCtl.Library;
    nodePage.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(Authent_CurrentPage) : Authent_CurrentPage;
    nodeCorrelationId.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(Authent_CorrelationId) : Authent_CorrelationId;
    nodeEncodeReponse.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(oJSCtl.EncodeResponse.toString()) : oJSCtl.EncodeResponse;
    // ** Set Async Properties
    var sExecute = oJSCtl.Async.Enabled == true && oJSCtl.Async.ID == null ? 'ASYNC' : 'SYNC';
    nodExecute.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(sExecute) : sExecute;


    var aItems = oJSCtl.RequestParameters.Items;
    // ** Now add the parameter nodes		
    for (var i = 0; i < aItems.length; i++) {
        var param = aItems[i];

        if (param.Name == undefined) {
            var e = new Error();
            e.message = "Undefined parameter name passed in RC_BuildXMLDocument()";
            e.description = e.message;
            throw e;
        }

        var nodeParam = oJSCtl.XMLDocument.createElement(param.Name);

        if (param.Value != undefined) {
            nodeParam.nodeTypedValue = (oJSCtl.EncodeRequest == true) ? EncodeHTML(param.Value.toString()) : param.Value.toString();
        } else {
            nodeParam.nodeTypedValue = "";
        }

        if (param.ExtendedParameters.Items.length > 0) {
            RC_AddParams(param.ExtendedParameters, nodeParam, oJSCtl);
        }

        nodeRequest.appendChild(nodeParam);
    }

    // ** Now attach the nodes to the document
    nodeHeader.appendChild(nodeEncodeReponse);

    nodeHeader.appendChild(nodeAction);
    nodeHeader.appendChild(nodeClassHandler);
    nodeHeader.appendChild(nodLibrary);

    nodeHeader.appendChild(nodePage);
    nodeHeader.appendChild(nodeCorrelationId);

    nodeHeader.appendChild(nodExecute);

    nodeRoot.appendChild(nodeHeader);
    nodeRoot.appendChild(nodeRequest);

    oJSCtl.XMLDocument.appendChild(nodeRoot);

    return oJSCtl.XMLDocument.xml;
}

/* Decoding functions */

function RC_DecodeXMLDoc(xmlDoc) {
    var i;
    var intag = true;

    for (i = 1; i < xmlDoc.childNodes.length; i++) {
        RC_DecodeNode(xmlDoc.childNodes[i]);
    }
}


function RC_DecodeXML(xmlstring) {
    var i;
    var intag = true;

    var x = new ActiveXObject("MSXML2.DOMDocument.4.0");
    x.loadXML(xmlstring);

    for (i = 1; i < x.childNodes.length; i++) {
        RC_DecodeNode(x.childNodes[i]);
    }

    return x.xml;
}

function RC_DecodeNode(node) {
    var i;
    if (!node.hasChildNodes() && node.text.toString().length > 0) {
        node.text = UnencodeHTML(node.text);
    }
    else {
        for (i = 0; i < node.childNodes.length; i++) {
            RC_DecodeNode(node.childNodes[i]);
        }
    }
}

function __RC_Response_ShowDebugMessages() {
    /// <summary>Shows the debug messages in a debug window</summary>
    var o = new DebugDialogOptions(this.DebugMessages);
    o.Show();
    //for (var i =0; i <  this.DebugMessages.length; i++)
    //		alert(this.DebugMessages[i]);
}


function RC_ReportError() {
    try {
        var oJSCtl = this;
        var oErrArgs = new AJAXErrorDialogOptions(oJSCtl, null, "SERVERERROR");

        var o = window.showModalDialog("/AJAXErrorReportDialog.html", oErrArgs, "dialogHeight: 260px; dialogWidth: 450px;");

        return true;
    } catch (err) {
        return false;
    }
}

var AJAXError = AJAXErrorDialogOptions;
function AJAXErrorDialogOptions(oAJAXRequest, sCaption, sErrorType) {
    if (oAJAXRequest == undefined || oAJAXRequest == null) {
        var e = new Error();
        e.message = 'No AJAXRequest object has been passed in, this is a required parameter!';
        e.description = e.message;
        throw e;
    }

    var initValue = oAJAXRequest.EncodeRequest;
    oAJAXRequest.EncodeRequest = false;

    this.RequestXML = RC_BuildXMLDocument(oAJAXRequest);
    oAJAXRequest.EncodeRequest = initValue;

    this.ResponseXML = oAJAXRequest.XMLResponse.xml;
    this.ResponseText = oAJAXRequest.ResponseText;
    this.AdvancedInfo = '';
    this.Caption = '';
    this.Icon = vbCritical;
    this.AllowErrorSend = true;
    this.AllowAdvanced = true;
    this.AllowCopy = true;

    switch (sErrorType) {
        case "SERVERERROR":     // Server Error (Bad Compile / Unhandled Exception) 	
            this.Icon = vbCritical;
            this.Caption = (sCaption == null || sCaption == undefined || sCaption.length == 0) ? 'A serious error has occurred' : sCaption;
            this.AdvancedInfo = oAJAXRequest.XMLResponse.parseError.reason + "\n\n" + this.ResponseText;
            this.AllowErrorSend = true;
            break;


        default:    // Standard AJAX Error
            this.Caption = (sCaption == null || sCaption == undefined || sCaption.length == 0) ? 'A page error has occurred' : sCaption;
            this.Icon = vbExclamation;
            this.AllowErrorSend = true;
            this.SimpleInfo = oAJAXRequest.Response.ErrorDescription;
            this.AllowErrorSend = false;
            try {
                this.AdvancedInfo = oAJAXRequest.XMLResponse.selectSingleNode("//DataTransfer/Header/Source").text;
            } catch (err) { }
    }

    this.AuthenticationKey = Authent_Key;
    this.Authent_UserID = Authent_UserID;
    this.Authent_LoggedIn = Authent_LoggedIn;
    this.Authent_OrganisationID = Authent_OrganisationID;
    this.CurrentDatabaseID = getCookie("CurrentDatabaseID");
    this.CookieStatus = document.cookies;
    this.RequestAction = oAJAXRequest.RequestAction;
    this.RequestHandler = oAJAXRequest.RequestHandler;
    this.URL = window.location;
}
AJAXErrorDialogOptions.prototype.Show = __AJAXEDO_Show;


function __AJAXEDO_Show() {
    window.showModalDialog("/AJAXErrorReportDialog.html", this, "dialogHeight: 260px; dialogWidth: 450px;");
}