function find_undefined_link () {
  a_list = document.getElementsByTagName('a');

  for (i = 0 ; a_list[i] ; i++)
    if (a_list[i].getAttribute('href') == '#') 
      a_list[i].style.outline = '1px dotted red';
}

function a_confirm_fr () {
  a_list = document.getElementsByTagName('a');

  for (i = 0 ; a = a_list[i] ; i++)
    with (a)
      if (className.match(/\s*confirm_fr\s*/)) 
        onclick = function () {
  window_height = 0;
  if (window.innerHeight) {
    window_height = window.innerHeight;
  } else if (document.documentElement.clientHeight != 0) {
    window_height = document.documentElement.clientHeight;
  }
  if (window_height < document.body.clientHeight) {
    window_height = document.body.clientHeight;
  }

  layer = document.createElement('div');
  with (layer.style) {
    position = 'absolute';
    top = 0;
    left = 0;
    zIndex = 1000;
    height = window_height+ 'px';
    width = '100%';
    if (document.all && !window.opera) {
      filter  = 'alpha(opacity=80)';
    } else {
      opacity = 0.8;
    }
    backgroundColor = '#000000';
  }
  
  wrapper = document.createElement('div');
  with (wrapper.style) {
    position = 'absolute';
    top = 0;
    left = 0;
    zIndex = 1000;
    height = window_height+ 'px';
    width = '100%';
  }

  frame = document.createElement('div');
  with (frame.style) {
    margin = '200px auto 0';
    border = '3px solid #5B233E';
    padding = '1em';
    width = '75%';
    overflow = 'auto';
    fontSize = '18px';
    color = '#000000';
    backgroundColor = '#ffffff';
  }
  p = document.createElement('p');
  p.appendChild(document.createTextNode(i18n['fdr']['confirm_fr_p1']));
  frame.appendChild(p);
  frame.appendChild(document.createElement('br'));
  p = document.createElement('p');
  p.appendChild(document.createTextNode(i18n['fdr']['confirm_fr_p2']));
  frame.appendChild(p);
  a_true = document.createElement('a');
  a_true.href = this.href;
  a_true.appendChild(document.createTextNode(i18n['fdr']['confirm_fr_yes']));
  with (a_true.style) {
    display = 'block';
    if (document.all && !window.opera) {
      styleFloat = 'left';
    } else {
      cssFloat = 'left';
    }
    width = '25%';
    margin = '0 10%'
    height = '2em';
    textAlign = 'center';
  }
  a_true.onclick = function () {
    document.getElementsByTagName('body')[0].removeChild(layer);
    document.getElementsByTagName('body')[0].removeChild(wrapper);
  }
  frame.appendChild(a_true);
  
  a_false = document.createElement('a');
  a_false.href = '#';
  a_false.appendChild(document.createTextNode(i18n['fdr']['confirm_fr_no']));
  with (a_false.style) {
    display = 'block';
    if (document.all && !window.opera) {
      styleFloat = 'right';
    } else {
      cssFloat = 'right';
    }
    width = '25%';
    margin = '0 10%'
    height = '2em';
    textAlign = 'center';
  }
  a_false.onclick = function () {
    document.getElementsByTagName('body')[0].removeChild(layer);
    document.getElementsByTagName('body')[0].removeChild(wrapper);
    return false;
  }
  frame.appendChild(a_false);
  
  wrapper.appendChild(frame);
  document.getElementsByTagName('body')[0].appendChild(layer);
  document.getElementsByTagName('body')[0].appendChild(wrapper);

  return false;
        } // onclick
}

if (window.addEventListener)
  window.addEventListener('load' , a_confirm_fr, false);
else if (window.attachEvent)
  window.attachEvent('onload', a_confirm_fr);