function GetPinLink(lid)
{
    var o = document.forms[0].elements[_ppsi(lid, "spssQI")];
    if(null != o){
        var i=document.URL.indexOf('?');
        if(i>=0) return document.URL.substring(0, i)+'?'+o.value;
        else return document.URL+'?'+o.value;
    }
    else return null;
}

function GoSearch(PmtId, TbId, HdQId, bApQ, bSc, DDId, HdSId, HdLId, HdFId, Url, thisSite, thisList, thisFolder, relatedSites, csUrl)
{
    try 
    {
    AddSearchoptionsToQuery();
    }
    catch(e) {}
    var k = document.forms[0].elements[TbId].value;
    k = k.replace( /\s*$/, '' );
    var ui = '1';
    if (PmtId){
        ui = document.forms[0].elements[PmtId].Value;
    }                                                   
    if(k == '' || ui == '0'){
        alert('Please enter one or more search words.');
        if(null != event){
            event.returnValue = false;
            return false;
        }
        else return;
    }                               
    var sch = '?k=' + encodeURIComponent(k);

    if(null != HdQId){
        var sa = document.forms[0].elements[HdQId].value;     
        if (bApQ)
            sch += canonicalizedUtf8FromUnicode(" "+sa);
        else
            sch += '&a='+canonicalizedUtf8FromUnicode(" "+sa);              
    }
    if(bSc){
        var s='', cs='', u='', selVal='';
        var d = document.forms[0].elements[DDId];
        var fIsCS = false;
        s = d.options[d.selectedIndex].text;
        selVal = d.options[d.selectedIndex].value;
        if (selVal==thisSite){
            cs =selVal; s='';
            u=document.forms[0].elements[HdSId].value;
            fIsCS = true;            
        }
        if (selVal==thisList){
            cs =selVal; s='';
            u=document.forms[0].elements[HdLId].value; 
            fIsCS = true;         
        }
        if (selVal==thisFolder){
            cs =s; s='';
            u=document.forms[0].elements[HdFId].value;   
            fIsCS = true;        
        }
        if (s == relatedSites) {
            s = d.options[d.selectedIndex].value;
            fIsCS = true;
        }
        if(fIsCS)
        {
            Url = csUrl;
        }
        if (s != ''){                               
            sch += "&s=" + encodeURIComponent(s);
            if (d.options[d.selectedIndex].value != '' && !fIsCS) {
                Url = d.options[d.selectedIndex].value;
            }        
        }
        if (cs != ''){          
            sch += "&cs=" + encodeURIComponent(cs);
        }
        if (u != ''){
            sch += '&u=' + encodeURIComponent(u);
        }                                
    }
    var F=document.forms[0];

    try {external.AutoCompleteSaveForm(F);} catch (err) {}

    window.location = Url + sch;

    try {if(null    != event) event.returnValue = false;} catch (err) {}
    return; 
}


function SendClick(postUrl, soapAction, env, startPos, elem) 
{
    var id = elem.id;
    var relPosStr = /\d+$/.exec(id);
    var relPos = (relPosStr ? parseInt(relPosStr[0],10) : 0)
    var cont = /^(CSR_RV|CSR_MRL|SRP_)/.exec(id);
    var bestBet = null;
    var nonClickedXml = null;

    if (/^BBR_/.exec(id))
    {
        var bbelem = document.getElementById('BBR_'+relPosStr);
        if (bbelem) bestBet = bbelem.innerHTML;
    }
    else if (relPos > 1 && startPos == 0 && /^CSR_/.exec(id))
    {
        nonClickedXml = '';
        for (var i = 1; i < relPos && i < 10; i++)
        {
            var nonClickedElem = document.getElementById('CSR_'+i);
            if (nonClickedElem)
            {
                nonClickedXml += '<z>'+nonClickedElem.href+'</z>';
            }
        }
    }
    SendSoap(postUrl, soapAction, env, (cont ? null : elem.href), relPos + startPos, bestBet, cont, nonClickedXml);
}

function SendSoap(postUrl, soapAction, env, clickUrl, pos, bestBet, cont, nonClickedXml)
{
    var req = (window.XMLHttpRequest) ? (new XMLHttpRequest())
            : (window.ActiveXObject) ? (new ActiveXObject('Msxml2.XMLHTTP')) : null;
    if (req)
    {
        req.open('POST', postUrl, true);
        req.setRequestHeader('Content-Type', 'text/xml; charset=utf-8');
        req.setRequestHeader('SOAPAction', soapAction);
        if (clickUrl) env = env.replace("</i>", '<c>' + XmlEscape(clickUrl) + '</c>' + "</i>");
        if (pos) env = env.replace('<r>0','<r>'+pos);
        if (cont) env = env.replace('<f>false','<f>true');
        if (bestBet) env = env.replace("</i>", '<y>' + XmlEscape(bestBet) + '</y>' + "</i>");
        if (nonClickedXml) env = env.replace("</i>", nonClickedXml + "</i>");
        req.send(env);
    }
}