var property = 'journals';

var sLink;
var sLinkDouble;
var sIndex;

var rID;
var xpos = 0;
var ypos = 0;
var subBlock;
var subIndex = new Array();
subIndex[0] = 'spy';
subIndex[1] = 'subscribe';
var subCheck = new Array();

var flagError;
var sError = 'не
удалось
выполнить
данное
действие';
var xmlHttp = createXmlHttpRequestObject();

var sAction = new Array();
var sTxt = new Array();

sTxt['spy'] = 'добавить
запись
в
"Подписки"';
sTxt['spy-'] = 'удалить
запись
из
"Подписок"';
sTxt['subscribe'] = 'получать
новые
комментарии
на
e-mail';
sTxt['subscribe-'] = 'отписатьс&#1103
от
комментариев
по
e-mail';
sTxt['bookmarks'] = 'стать
посто&#1103нным
читателем';
sTxt['bookmarks-'] = 'стать
непосто&#1103нным
читателем';
sTxt['newjr'] = 'подписатьс&#1103
на
обновлени&#1103';
sTxt['newjr-'] = 'отписатьс&#1103
от
обновлений';
sTxt['newhr'] = 'подписатьс&#1103
на
обновлени&#1103';
sTxt['newhr-'] = 'отписатьс&#1103
от
обновлений';

function createXmlHttpRequestObject()
{
  var xmlHttp;
  try
  {
    xmlHttp = new XMLHttpRequest();
  }
  catch (e)
  {
    var XmlHttpVersions = new Array(
    'MSXML2.XMLHTTP.6.0',
    'MSXML2.XMLHTTP.5.0',
    'MSXML2.XMLHTTP.4.0',
    'MSXML2.XMLHTTP.3.0',
    'MSXML2.XMLHTTP',
    'Microsoft.XMLHTTP'
    );

    for (var i = 0; i < XmlHttpVersions.length && !xmlHttp; i++)
    {
      try
      {
        xmlHttp = new ActiveXObject(XmlHttpVersions[i]);
      }
      catch (e)
      {
        
      }
    }
  }

  return xmlHttp;
}

function subRecord(id, action)
{
  var sCss = (action.indexOf('-') != -1) ? action.substr(0, action.indexOf('-')) : action;
  sIndex = sCss + id;
  sLink = fetch_object(sIndex);
  sLinkDouble = fetch_object(sIndex + 'Double');

  if (!sAction[sIndex])
  {
    sAction[sIndex] = action;
  }
  var url = '/newcom.php?id=' + id + '&type=' + property + '&action=' + sAction[sIndex];

  if (!sLink || !xmlHttp)
  {
    window.location(url); // for opera 7
  }
  else
  {
    try
    {
      xmlHttp.open('GET', url + '&ajax=1', true);
      xmlHttp.onreadystatechange = handleRequestCheckSub;
      xmlHttp.send(null);
    }
    catch (e)
    {
      window.location(url);
    }
  }
}


function subProperty(userid, action)
{
  var sCss = (action.indexOf('-') != -1) ? action.substr(0, action.indexOf('-')) : action;
  sIndex = action;
  sLink = fetch_object(sCss);
  sLinkDouble = '';
  if (!sAction[sIndex])
  {
    sAction[sIndex] = action;
  }
  var urlAction = (action.indexOf('new') != -1) ? sCss : sAction[sIndex];
  var url = '/subscribe.php?userid=' + userid + '&action=' + urlAction;

  if (!sLink || !xmlHttp)
  {
    window.location(url); // for opera 7
  }
  else
  {
    try
    {
      xmlHttp.open('GET', url + '&ajax=1', true);
      xmlHttp.onreadystatechange = handleRequestCheckSub;
      xmlHttp.send(null);
    }
    catch (e)
    {
      window.location(url);
    }
  }
}

function createSubBlock(evt, id)
{
  evt = evt ? evt : ((window.event) ? window.event : null);
  rID = id;

  if (typeof(evt.clientX) == 'number')
  {
    xpos = evt.clientX + document.body.scrollLeft;
    ypos = evt.clientY + document.body.scrollTop;
  }
  else if (typeof(evt.pageX) == 'number')
  {
    xpos = evt.pageX;
    ypos = evt.pageY;
  }
  if (xpos + 250 >= document.body.clientWidth)
  {
    xpos = document.body.clientWidth - 240;
  }
  if (ypos + 50 >= document.body.clientHeight + document.body.scrollTop)
  {
    ypos -= 70;
  }

  SubBlock();

  if (!subCheck[rID])
  {
    sAction['spy' + rID] = '';
    sAction['subscribe' + rID] = '';
    try
    {
      var url = '/newcom.php?id=' + rID + '&type=' + property + '&action=check';
      xmlHttp.open('GET', url + '&ajax=1', true);
      xmlHttp.onreadystatechange = handleRequestCheckSubBlock;
      xmlHttp.send(null);
    }
    catch (e)
    {
      
    }
  }
}

function SubBlock()
{
  var availableSub = new Array();
  availableSub[0] = sAction['spy' + rID] ? sAction['spy' + rID] : '';
  availableSub[1] = sAction['subscribe' + rID] ? sAction['subscribe' + rID] : '';
  subBlock = fetch_object('subBlock');

  var t = '';
  for (var i = 0; i < subIndex.length; i++)
  {
    if (availableSub[i])
    {
      var a = availableSub[i];
      t += '<a href="newcom.php?id=' + rID + '&type=' + property + '&page=1&action=' + a + '" ';
      t += 'onClick="subRecord(' + rID + ', \'' + a + '\'); hiddenSubBlock(); return false;">';
      t += '<span id="' + subIndex[i] + rID + '">' + sTxt[a] + '</span></a><br>';
    }
  }

  if (!t)
  {
    if (subCheck[rID])
    {
      if (flagError)
      {
        t += sError + '<br>';
      }
      else
      {
        t += 'комментарии запрещены автором<br>';
      }
    }
    else
    {
      t += 'ждем ответ сервера<br>';
    }
  }
  
  t += '<a href="#" onClick="hiddenSubBlock(); return false;">закрыть</a>';
  subBlock.innerHTML = t;
  subBlock.style.left = (xpos - 15) + 'px'; 
  subBlock.style.top = (ypos + 15) + 'px';
  subBlock.style.display = 'block';
}

function hiddenSubBlock()
{
  subBlock.style.display = 'none';
}

function handleRequestCheckSubBlock()
{
  if (xmlHttp.readyState == 4 && xmlHttp.status == 200)
  {
    try
    {
      var response = xmlHttp.responseText;
      if (!isNaN(response))
      {
        if (response.substr(0, 1) != 0)
        {
          sAction['spy' + rID] = (response.substr(0, 1) == 1) ? 'spy' : 'spy-';
        }
        if (response.substr(1) != 0)
        {
          sAction['subscribe' + rID] = (response.substr(1) == 1) ? 'subscribe' : 'subscribe-';
        }
      }
      else
      {
        flagError = 1;
        sError = response;
      }
      subCheck[rID] = 1;
      SubBlock();
    }
    catch (e)
    {
      flagError = 1;
      SubBlock();
    }
  }
}

function handleRequestCheckSub()
{
  if (xmlHttp.readyState == 4 && xmlHttp.status == 200)
  {
    try
    {
      var response = xmlHttp.responseText;
      if (response == 1)
      {
        var t = (sAction[sIndex].indexOf('-') != -1) ? sAction[sIndex].substr(0, sAction[sIndex].indexOf('-')) : sAction[sIndex] + '-';

        sAction[sIndex] = t;
        sLink.innerHTML = sTxt[t];
        if (sLinkDouble)
        {
          sLinkDouble.innerHTML = sTxt[t];
        }
      }
      else if (isNaN(response))
      {
        alert(response);
      }
      else
      {
        alert(sError);
      }
    }
    catch (e)
    {
      alert('Невозможно получить ответ от сервера');
    }
  }
}