function olk_obj(sName, d)
{
  if (!d) d = document;
  return d.getElementById(sName);
}

function olk_param_value(addr, paramName)
{
  var a = addr.split('&');
  var na = '', pair;

  for (var i=0; i<a.length; i++) {
    if (a[i] != '') {
      pair = a[i].split('=');
      if (pair[0] == paramName) na = pair[1];
    }
  }
  return na;
}

function olk_link_without_param(url, paramName)
{
  var uri = url.split('?');
  var addr = uri[1];
  var a = addr.split('&');
  var na = uri[0]+'?';
  var first = true;

  for (var i=0; i<a.length; i++) {
    if (a[i] != '') {
      pair = a[i].split('=');
      if (pair[0] != paramName) {
        if (!first) na += '&';
        na += a[i];
        first = false;
      }
    }
  }
  return na;
}

function olk_window_open(name, url, options)
{
  var olk_window, i, s_options, a, pair, w, h, r, scr, format;

  s_options = '';
  w = 1004;
  h = 620;
  format = '';
  r = 'yes';
  scr = 'yes';
  if (options) {
    a = options.split(',');
    for (i=0; i < a.length; i++) {
      pair = a[i].split('=');
      if (pair[0] == 'width')       w = parseInt(pair[1]);
      if (pair[0] == 'height')      h = parseInt(pair[1]);
      if (pair[0] == 'resizable')   r = pair[1];
      if (pair[0] == 'format')      format = pair[1];
      if (pair[0] == 'scrollbars')  scr = pair[1];
    }
  }
  s_options = s_options + 'width='+w+',';
  s_options = s_options + 'height='+h+',';
  s_options = s_options + 'resizable='+r+',';
  s_options = s_options + 'scrollbars='+scr+',';
  s_options = s_options + 'location=no,toolbar=no,left=1';
  if ( typeof(session_id) == 'string') url = url + '&PHPSESSID='+session_id;
  var tmp_format=format;
  if (tmp_format == 'pdml') tmp_format = 'pdf';
  if (format != '') url = url + '&format='+format+'&tmp=.'+tmp_format;
  olk_window=window.open(url, name, s_options);
  if (!olk_window.opener) olk_window.opener = top;
  olk_window.focus();
}

function olk_radio_setvalue(sName, val, d)
{
  var o, el, j;
  if (!d) d = document;
  o = d.getElementsByName(sName);
  if (o) {
    for (j=0; j<o.length; j++) {
      o[j].checked = o[j].value==val ? true : false;
    }
  }
}

function olk_radio_value(sName, d)
{
  var o, result=-1, el, j;
  if (!d) d = document;
  o = d.getElementsByName(sName);
  if (o) {
    for (j=0; j<o.length; j++) {
      if (o[j].checked) {
        result = o[j].value;
        break;
      }
    }
  }
  return result;
}

function olk_value(s)
{
  var o = olk_obj(s);
  if (o) {
    if (o.tagName == 'DIV' || o.tagName == 'div') {
      return o.innerHTML;
    } else {
      if (o.type == 'checkbox') {
        return o.checked ? 1 : 0;
      } else {
        return o.value;
      }
    }
  }
  return null;
}

function olk_email_validate(str)
{
  if (str.length > 0) {
    if (!str.match(/^[\w]{1}[\w\.\-_]*@[\w]{1}[\w\-_\.]*\.[\w]{2,6}$/i)) {
      return false;
    }
  }
  return true;
}

function olk_field_set(id, value)
{
  var o = olk_obj(id);
  if (!o) {
    return;
  }
  if (o.type == 'checkbox') {
    o.checked = (value == 1) ? true : false;
    o.defaultChecked = (value == 1) ? true : false;
  } else {
    o.value = value;
    o.defaultValue = value;
  }
}

function olk_innerhtml_set(id, value)
{
  var o = olk_obj(id);
  if (o) o.innerHTML = value;
}

function olk_ShowHTML(windowname, obj, options)
{
  var prot = window.location.protocol;
  var anfang = prot+'//'+window.location.hostname+'/';
  var s = obj.href, url;

  if (s.indexOf('index.php') >= 0) {
    if (s.substr(0, anfang.length) == anfang) {
      url = anfang+s.substr(anfang.length)+'&nohead=1';
    } else {
      url = s;
    }
  } else if (s.indexOf('.html') >= 0) {
    if (s.substr(0, anfang.length) == anfang) {
      var s2 = s.substr(anfang.length);
      var n2=s2.lastIndexOf('/');
      if (n2 > -1) {
        url = 'small_'+s2.substr(n2+1);
      } else {
        url = anfang+'small_'+s.substr(anfang.length);
      }
    } else {
      url = s;
    }
  } else {
    url = s;
  }
  olk_window_open(windowname, url, options);
  return false;
}