self.name = 'ssmain';   // This frame is a "TARGET" for pup window
var hemcontext = '';    // Used by local page to set context for hem()

function pup(parts)
{
  /* Intialize the arrays */
  var msg = "";
  var names = new Array(7);
  var stats = new Array(7);
  var links = new Array(7);
  var i, j;

  for (j=0; i<7; i++) {
    names[j] = "";
    stats[j] = "";
    links[j] = "";
  }

  /* Parse the parts into the things we need */
  var args = parts.split("|");

  for (j=0, i=0; i<args.length && j<7;i++, j++) {
    names[j] = args[i++];
    if (names[j] == "") names[j]="&nbsp;";

    stats[j] = args[i++];

    if (args[i] != "") {
      links[j] = '<A TARGET="ssmain" HREF="'+args[i]
      	+'" TITLE="Click to display person in main window">'+names[j]+'</A>';
    } else {
      links[j] = names[j];
    }
  }

  /* Start the page */
  var s1='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">\n';
  s1 += '<HTML>\n<HEAD>\n <TITLE>Pedigree for '+names[0]+'</TITLE>\n';
  if (is_nav4) {
  	s1 += ' <LINK REL="stylesheet" TYPE="text/css" HREF="sitenn4.css">\n';
  } else {
  	s1 += ' <LINK REL="stylesheet" TYPE="text/css" HREF="site.css">\n';
  }
  s1 += '</HEAD>\n';

  s1 += '<BODY CLASS=pupbody>\n';
  s1 += '<TABLE WIDTH=100% BORDER=1 CELLSPACING=0 CELLPADDING=3>\n';

  /* Build the table from the parts */

  /* Row 1: 3 cells (0, 1, 3) */
  s1 += '<TR>\n <TD WIDTH="30%" ROWSPAN=4>'+links[0]+'<BR>'+stats[0]+'</TD>\n';
  s1 += ' <TD WIDTH="30%" ROWSPAN=2 CLASS=pupmale>';
  s1 += links[1]+'<BR>'+stats[1]+'</TD>\n';
  s1 += ' <TD WIDTH="40%" CLASS=pupmale>';
  s1 += links[3]+'<BR>'+stats[3]+'</TD>\n</TR>\n';

  /* Row 2: 1 cell (4) */
  s1 += '<TR>\n <TD WIDTH="40%" CLASS=pupfemale>'+links[4]+'<BR>'+stats[4]+'</TD>\n</TR>\n';

  /* Row 3: 2 cells (2, 5) */
  s1 += '<TR>\n <TD WIDTH="30%" ROWSPAN=2 CLASS=pupfemale>'+links[2]+'<BR>'+stats[2]+'</TD>\n';
  s1 += ' <TD WIDTH="40%" CLASS=pupmale>'
  s1 += links[5]+'<BR>'+stats[5]+'</TD>\n</TR>\n';

  /* Row 4: 1 cell (6) */
  s1 += '<TR>\n <TD WIDTH="40%" CLASS=pupfemale>'+links[6]+'<BR>'+stats[6]+'</TD>\n</TR>\n';

  /* End the page */
  s1 += '</TABLE></BODY></HTML>';

  /* Open the window and write the contents */
  settings  = "height=300,width=500,scrollbars=yes,";
  settings += "resizable=yes,";
  settings += "left=20,";
  if (screen.availHeight>0) settings += "top="+(screen.availHeight-340);

  popup = window.open("","pup",settings);
  popup.document.write(s1);
  popup.document.close();
  popup.focus();
}

function hem(part1, part2, part3)
{
  var context = '';
  if (hemcontext != '') context = '&#'+63+'SUBJECT='+hemcontext;
  document.write("<A H"+'REF="M'+"A"+"I"+"L"+"T"+"O:")
  document.write(part1+"&#"+64+part2+context+'">'+part3+"</A>")
}

function hemnc(part1, part2, part3)
{
  document.write("<A H"+'REF="M'+"A"+"I"+"L"+"T"+"O:")
  document.write(part1+"&#"+64+part2+'">'+part3+"</A>")
}
