function change_digital_subquery ()
{
//  alert("In change_digital_subquery");
  var ptype = 2;
  for(var el = 0; el < 4; el++)
  {
//    alert("el = " + el + ", " + document.ngmform.dig_sub[el].checked);
    if (document.ngmform.dig_sub[el].checked)
    {
      ptype = 1;
      break;
    }
  }
//  alert("ptype = " + ptype);
  set_main_type(ptype);
}

function set_main_type (ptype)
{
  document.ngmform.format[ptype].checked = true;
}

function change_main_type ()
{
  if (document.ngmform.format[1].checked)
  {
    set_all_dig_sub ();
  } else {
    reset_all_dig_sub ()
  }
}

function reset_all_dig_sub ()
{
  for(var el = 0; el < 4; el++)
  {
    document.ngmform.dig_sub[el].checked = false;
  }
}

function set_all_dig_sub ()
{
  for(var el = 0; el < 4; el++)
  {
    document.ngmform.dig_sub[el].checked = true;
  }
}