function StartIntegration (inURL)
{
	alert("An On-Line Assessment is being loaded.  You will not be permitted to proceed in the workflow until you complete the assessment. Please hold down the CTRL key on your keyboard while you click the OK button, to allow the On-Line Assessment to open in a new pop-up window.");
	
	window.open(inURL,'_blank');
}

//--- PRINT SCRIPT ---
function goPrint() {
print();
}


// ----------  REQUIRED FIELD SCRIPT --------------
  //Here is a utility function that returns true if a string contains only
  //whitespace characters:
  function isblank(s)
  {
    for (var I = 0; I < s.length; I++)
    {
      var c = s.charAt(I);
      if ((c != ' ') && (c != '\n') && (c != '\t')) return false;
    }
    return true;
  }
  
  function verify(f)
  {
    var msg;
    var empty_fields = "";
    var errors = "";
      var e = f;
      // if (((e.type == "text") || (e.type == "textarea")) && !e.optional)
      // Check if input form is either text or textarea type.
      if (((e.type == "text") || (e.type == "textarea")))
      {
		// Now check if its optional. If its is (true), dont return error box if left blank.
		if (!e.optional) // if false, means empty fields are not allowed and trigger error box even if empty
		{
			// First check if the field is empty
			if ((e.value == null) || (e.value == "") || isblank(e.value))
			{
				// empty_fields += "\n        " + e.name;
				errors += " This field is required.";
			}
			else
			{
				// Now check for fields that are supposed to be numeric.
				if (e.numeric)
				{
					// var v = parseFloat(e.value);
					var v = e.value;
					if (isNaN(v))
					{
						errors += " This value must be numeric.";
						e.value = "";
					}
				}
			}
		}
		else
		{
			// Now check for fields that are supposed to be numeric.
			if (e.numeric)
			{
				// var v = parseFloat(e.value);
				var v = e.value;
				if (isNaN(v) && isblank(e.value) == false)
				{
					errors += " This value must be numeric.";
					e.value = "";
				}
			}
		}		
      }

    if (!empty_fields && !errors)
    {
    return true;
    } else {
    
    msg =   "-----------------------------------------------------\n\n";
    // msg += " Please enter a value for this required field\n";
    msg += errors + "\n\n";
    msg += "-----------------------------------------------------";

    alert(msg);
    return false;
    }
}
// ----------------------------------------------------------

// -------------- Adds MAXLENGTH to Textarea type form field controls in HTML - MS ----------------------------
function imposeMaxLength(Object, MaxLen)
{
  return (Object.value.length <= MaxLen);
}




//---Image Slice-show script---
function showPic (whichpic) {
 if (document.getElementById) {
  document.getElementById('placeholder').src = whichpic.href;
  if (whichpic.childNodes[0].alt) {
   //document.getElementById('desc').childNodes[0].nodeValue = whichpic.title;
document.getElementById('placeholder').alt = whichpic.childNodes[0].alt;
  } else {
   //document.getElementById('desc').childNodes[0].nodeValue = whichpic.childNodes[0].nodeValue;
document.getElementById('placeholder').alt = "";
  }
  return false;
 } else {
  return true;
 }}
//---Netscape 4 Reload Script---
function reLoadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {
    if ((appName=="Netscape") && (parseInt(appVersion)==4)) {
    document.is_pgW=innerWidth; document.is_pgH=innerHeight; 
    onresize=reLoadPage; }}
  else if (innerWidth!=document.is_pgW || innerHeight!=document.is_pgH) 
    location.reload();
  }
  
reLoadPage(true);






















// INPUT MASKED FORM FIELD SCRIPTS

function EE_IsData($a,$b)
{
	if ($b>=0)
	{
		var x=$a.value.charCodeAt($b);
		if (x>=48&&x<=57)
			return true;
		else
		{
			return false;
		}
	}
	else
	{
		return false;
	}
};

function EE_KeyPress($a)
{
	var k=EE_GetKeyCode();
	var c=EE_GetKeyString(k);
	var x=EE_getSelectionStart($a);
	event.returnValue=false;
	if(k>=48&&k<=57)
		EE_KeyNumber($a,x,c);
	else if ( k == 97 || k == 112 )
	{
		$char = EE_CharAtCaretPos($a,x);
		if ( $char == "A" || $char == "P" )
		{
			EE_KeyAMPM ( $a, x, c.toUpperCase() );
		}
	}
};

function EE_KeyDown($a)
{
	var k=EE_GetKeyCode();
	var x=EE_getSelectionStart($a);
	if(k==8||k==37||k==39||k==46)
	{
		event.returnValue=false;
		if(k==8)EE_KeyBackspace($a,x);
		else if(k==37)EE_PushCaretPos($a,0);
		else if(k==39)EE_PushCaretPos($a,1);
		else if(k==46)EE_KeyDelete($a,x);
	}
};

function EE_KeyNumber($a,$b,c)
{
	EE_CutMask($a,$b,1);
	EE_InsertChar($a,c,$b);
	EE_PutCaretPos($a,$b);
	EE_PushCaretPos($a,1);
};

function EE_KeyAMPM($a,$b,c)
{
	EE_CutMask($a,$b,1);
	EE_InsertChar($a,c,$b);
	EE_PutCaretPos($a,$b);
	EE_PushCaretPos($a,1);
};

function EE_KeyDelete($a,$b)
{
	EE_CutMask($a,$b,1);
	EE_InsertChar($a,"_",$b);
	EE_PutCaretPos($a,$b);
};

function EE_KeyBackspace($a,$b)
{
	var $z=false;
	var oP=$b;
	while($z==false&&$b>0)
	{
		var x=EE_CharAtCaretPos($a,$b-1);
		if(EE_IsData($a,$b-1))
		{
			EE_CutMask($a,$b,0);
			EE_InsertChar($a,"_",$b-1);
			$z=true;
			EE_PutCaretPos($a,$b-1);
		}
		else if(x=="_")
		{
			$z=true;
			EE_PutCaretPos($a,$b-1);
		};
		$b--;
	};
	if(!$z)EE_PutCaretPos($a,oP);
};

function EE_PushCaretPos($a,$d)
{
	var k=EE_getSelectionStart($a);
	var x=EE_CharAtCaretPos($a,k);
	do
	{
		if($d==0)
		{
			if (k>0)
				EE_PutCaretPos($a,--k);
		}
		else
		{
			if (k<$a.value.length-1)
				EE_PutCaretPos($a,++k);
		};
		x=EE_CharAtCaretPos($a,k);
	}
	while ( x!="_"&& x!="A" && x!="P" && k<$a.value.length-1 && k!=0 && !EE_IsData($a,k) )
		EE_SetupCaretPos($a);
}

function EE_InsertChar($a,c,$b)
{
	var x=$a.value;
	var $e=x.substring(0,$b);
	var $f=x.substring($b,x.length);
	$a.value=$e+c+$f;
};

function EE_CutMask($a,k,$d)
{
	var x=$a.value;
	if($d==0)
	{
		var $e=x.substring(0,k-1);
		var $f=x.substring(k,x.length);
	}
	else
	{
		var $e=x.substring(0,k);
		var $f=x.substring(k+1,x.length);
	};
	$a.value=$e+$f;
};

function EE_OnClick($a)
{
	var x=EE_getSelectionStart($a);
	EE_PutCaretPos($a,x);
	EE_SetupCaretPos($a);
};

function EE_GetKeyCode()
{
//var $g = event.keyCode;
//$g=(document.layers)?$h.which:event.keyCode;
//$g=(event.which) ? event.which : event.keyCode;

var $g;

if (window.event.keyCode)
{
        if ((window.event.keyCode > 32 && window.event.keyCode < 48) || (window.event.keyCode > 57 && window.event.keyCode < 65) || (window.event.keyCode > 90 && window.event.keyCode < 97))
        {
            $g = 0;
        }else{
            $g = window.event.keyCode;
        }
} else {
            $g = 0;
}
return $g;
};

function EE_GetKeyString($g)
{
	var x=String.fromCharCode($g);
	return x;
};

function EE_CharAtCaretPos($a,$b)
{
	var x=$a.value.split("");
	if($b>=0&&$b<x.length)
		return x[$b];
	else
	{
		return "";
	}
};

function EE_SetupCaretPos($a)
{
	var x=EE_getSelectionStart($a);
	var $i=false;
	var oP=x;
	while(x<$a.value.length-1&&$i==false)
	{
		var y=EE_CharAtCaretPos($a,x);
		if ( EE_IsData($a,x) || y=="_" || y=="A" || y=="P" )
		{
			EE_PutCaretPos($a,x);
			$i=true;
		};
		x++;
	};
	if(!$i)
	{
		while(x>=0&&$i==false)
		{
			var y=EE_CharAtCaretPos($a,x);
			if ( EE_IsData($a,x) || y=="_" || y=="A" || y=="P" )
			{
				EE_PutCaretPos($a,x);
				$i=true;
			};
			x--;
		}
	};
	if(!$i)
	{
		if($a.type=="text")
		{
			$a.style.color="rgb(255,0,0)";
			//$a.value="< invalid mask >";
              $a.value="";
		}
	}
};

function EE_PutCaretPos($a,$b)
{
	if($b<=0)$b=0;
	if($b>=$a.value.length-1)$b=$a.value.length-1;
	if($a.createTextRange)
	{
		var r=$a.createTextRange();
		r.moveStart('character',$b);
		r.moveEnd('character',$b+1-$a.value.length);
		r.select();
	}
};

function EE_getSelectionStart($a)
{
	if($a.createTextRange)
	{
		$k=document.selection.createRange().duplicate();
		$k.moveEnd("character",$a.value.length);
		$b=$a.value.lastIndexOf($k.text);
		if($k.text=="")$b=$a.value.length;
			return $b;
	}
	else
	{
		return $a.selectionStart;
	}
};

function EE_getSelectionEnd($a)
{
	if($a.createTextRange)
	{
		$k=document.selection.createRange().duplicate();
		$k.moveStart("character",-$a.value.length);
		$b=$k.text.length;
		return $b;
	}
	else
	{
		return $a.selectionEnd;
	}
};

function EE_GotFocus($a)
{
	EE_DisplayMask($a);
	EE_PutCaretPos($a,0);
	EE_SetupCaretPos($a);
};

function EE_DisplayMask($a)
{
	if($a.value=="")
		$a.value=$a.mask;
};

function EE_LostFocus($a)
{
	if($a.value==$a.mask)$a.value="";
};















// -------------------- CALENDAR SCRIPT --------------------------

// +------------------------------------------------------------+
// |                   Popup Calendar(Window)                   |
// +------------------------------------------------------------+
// | Last Modified:                  22-Dec-2005                |
// | Web Site:                       http://www.yxscripts.com   |
// | EMail:                          m_yangxin@hotmail.com      |
// +------------------------------------------------------------+
// |       Copyright 2002  Xin Yang   All Rights Reserved.      |
// |           This version featured on Dynamic Drive           |
// |               (http://www.dynamicdrive.com)                |
// +------------------------------------------------------------+

// default settings
var fontFace="verdana";
var fontSize=9;

var titleWidth=90;
var titleMode=1;
var dayWidth=12;
var dayDigits=1;

var titleColor="#cccccc";
var daysColor="#cccccc";
var bodyColor="#ffffff";
var dayColor="#ffffff";
var currentDayColor="#333333";
var footColor="#cccccc";
var borderColor="#333333";

var titleFontColor = "#333333";
var daysFontColor = "#333333";
var dayFontColor = "#333333";
var currentDayFontColor = "#ffffff";
var footFontColor = "#333333";

var calFormat = "mm/dd/yyyy";

var weekDay = 0;
// ------

// codes
var calWidth=200, calHeight=200, calOffsetX=-200, calOffsetY=16;
var calWin=null;
var winX=0, winY=0;
var cal="cal";
var cals=new Array();
var currentCal=null;

var yxMonths=new Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
var yxDays=new Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday");
var yxLinks=new Array("[close]", "[clear]");

var nav=navigator.userAgent.toLowerCase();;
var isOpera=(nav.indexOf("opera")!=-1)?true:false;
var isOpera5=(nav.indexOf("opera 5")!=-1 || nav.indexOf("opera/5")!=-1)?true:false;
var isOpera6=(isOpera && parseInt(navigator.appVersion)>=6)?true:false;
var isN6=(nav.indexOf("gecko")!=-1);
var isN4=(document.layers)?true:false;
var isMac=(nav.indexOf("mac")!=-1);
var isIE=(document.all && !isOpera && (!isMac || navigator.appVersion.indexOf("MSIE 4")==-1))?true:false;

if (isN4) {
  fontSize+=2;
}

var span2="</span>";

function span1(tag) {
  return "<span class='"+tag+"'>";
}
function spanx(tag, color) {
  return "."+tag+" { font-family:"+fontFace+"; font-size:"+fontSize+"px; color:"+color+"; }\n";
}

function a1(tag) {
  return "<a class='"+tag+"' href=";
}

function ax(tag, color) {
  return "."+tag+" { text-decoration:none; color:"+color+"; }\n";
}

function calOBJ(name, title, field, form) {
  this.name = name;
  this.title = title;
  this.field = field;
  this.formName = form;
  this.form = null
}

function setFont(font, size) {
  if (font != "") {
    fontFace=font;
  }
  if (size > 0) {
    fontSize=size;

    if (isN4) {
      fontSize+=2;
    }
  }
}

function setWidth(tWidth, tMode, dWidth, dDigits) {
  if (tWidth > 0) {
    titleWidth=tWidth;
  }
  if (tMode == 1 || tMode == 2) {
    titleMode=tMode;
  }
  if (dWidth > 0) {
    dayWidth=dWidth;
  }
  if (dDigits > 0) {
    dayDigits=dDigits;
  }
}

function setColor(tColor, dsColor, bColor, dColor, cdColor, fColor, bdColor) {
  if (tColor != "") {
    titleColor=tColor;
  }
  if (dsColor != "") {
    daysColor=dsColor;
  }
  if (bColor != "") {
    bodyColor=bColor;
  }
  if (dColor != "") {
    dayColor=dColor;
  }
  if (cdColor != "") {
    currentDayColor=cdColor;
  }
  if (fColor != "") {
    footColor=fColor;
  }
  if (bdColor != "") {
    borderColor=bdColor;
  }
}

function setFontColor(tColorFont, dsColorFont, dColorFont, cdColorFont, fColorFont) {
  if (tColorFont != "") {
    titleFontColor=tColorFont;
  }
  if (dsColorFont != "") {
    daysFontColor=dsColorFont;
  }
  if (dColorFont != "") {
    dayFontColor=dColorFont;
  }
  if (cdColorFont != "") {
    currentDayFontColor=cdColorFont;
  }
  if (fColorFont != "") {
    footFontColor=fColorFont;
  }
}

function setFormat(format) {
  calFormat = format;
}

function setSize(width, height, ox, oy) {
  if (width > 0) {
    calWidth=width;
  }
  if (height > 0) {
    calHeight=height;
  }

  calOffsetX=ox;
  calOffsetY=oy;
}

function setWeekDay(wDay) {
  if (wDay == 0 || wDay == 1) {
    weekDay = wDay;
  }
}

function setMonthNames(janName, febName, marName, aprName, mayName, junName, julName, augName, sepName, octName, novName, decName) {
  if (janName != "") {
    yxMonths[0] = janName;
  }
  if (febName != "") {
    yxMonths[1] = febName;
  }
  if (marName != "") {
    yxMonths[2] = marName;
  }
  if (aprName != "") {
    yxMonths[3] = aprName;
  }
  if (mayName != "") {
    yxMonths[4] = mayName;
  }
  if (junName != "") {
    yxMonths[5] = junName;
  }
  if (julName != "") {
    yxMonths[6] = julName;
  }
  if (augName != "") {
    yxMonths[7] = augName;
  }
  if (sepName != "") {
    yxMonths[8] = sepName;
  }
  if (octName != "") {
    yxMonths[9] = octName;
  }
  if (novName != "") {
    yxMonths[10] = novName;
  }
  if (decName != "") {
    yxMonths[11] = decName;
  }
}

function setDayNames(sunName, monName, tueName, wedName, thuName, friName, satName) {
  if (sunName != "") {
    yxDays[0] = sunName;
    yxDays[7] = sunName;
  }
  if (monName != "") {
    yxDays[1] = monName;
  }
  if (tueName != "") {
    yxDays[2] = tueName;
  }
  if (wedName != "") {
    yxDays[3] = wedName;
  }
  if (thuName != "") {
    yxDays[4] = thuName;
  }
  if (friName != "") {
    yxDays[5] = friName;
  }
  if (satName != "") {
    yxDays[6] = satName;
  }
}

function setLinkNames(closeLink, clearLink) {
  if (closeLink != "") {
    yxLinks[0] = closeLink;
  }
  if (clearLink != "") {
    yxLinks[1] = clearLink;
  }
}

function addCalendar(name, title, field, form) {
  cals[cals.length] = new calOBJ(name, title, field, form);
}

function findCalendar(name) {
  for (var i = 0; i < cals.length; i++) {
    if (cals[i].name == name) {
      if (cals[i].form == null) {
        if (cals[i].formName == "") {
          if (document.forms[0]) {
            cals[i].form = document.forms[0];
          }
        }
        else if (document.forms[cals[i].formName]) {
          cals[i].form = document.forms[cals[i].formName];
        }
      }

      return cals[i];
    }
  }

  return null;
}

function getDayName(y,m,d) {
  var wd=new Date(y,m,d);
  return yxDays[wd.getDay()].substring(0,3);
}

function getMonthFromName(m3) {
  for (var i = 0; i < yxMonths.length; i++) {
    if (yxMonths[i].toLowerCase().substring(0,3) == m3.toLowerCase()) {
      return i;
    }
  }

  return 0;
}

function getFormat() {
  var calF = calFormat;

  calF = calF.replace(/\\/g, '\\\\');
  calF = calF.replace(/\//g, '\\\/');
  calF = calF.replace(/\[/g, '\\\[');
  calF = calF.replace(/\]/g, '\\\]');
  calF = calF.replace(/\(/g, '\\\(');
  calF = calF.replace(/\)/g, '\\\)');
  calF = calF.replace(/\{/g, '\\\{');
  calF = calF.replace(/\}/g, '\\\}');
  calF = calF.replace(/\</g, '\\\<');
  calF = calF.replace(/\>/g, '\\\>');
  calF = calF.replace(/\|/g, '\\\|');
  calF = calF.replace(/\*/g, '\\\*');
  calF = calF.replace(/\?/g, '\\\?');
  calF = calF.replace(/\+/g, '\\\+');
  calF = calF.replace(/\^/g, '\\\^');
  calF = calF.replace(/\$/g, '\\\$');

  calF = calF.replace(/dd/i, '\\d\\d');
  calF = calF.replace(/mm/i, '\\d\\d');
  calF = calF.replace(/yyyy/i, '\\d\\d\\d\\d');
  calF = calF.replace(/day/i, '\\w\\w\\w');
  calF = calF.replace(/mon/i, '\\w\\w\\w');

  return new RegExp(calF);
}

function getDateNumbers(date) {
  var y, m, d;

  var yIdx = calFormat.search(/yyyy/i);
  var mIdx = calFormat.search(/mm/i);
  var m3Idx = calFormat.search(/mon/i);
  var dIdx = calFormat.search(/dd/i);

  y=date.substring(yIdx,yIdx+4)-0;
  if (mIdx != -1) {
    m=date.substring(mIdx,mIdx+2)-1;
  }
  else {
    var m = getMonthFromName(date.substring(m3Idx,m3Idx+3));
  }
  d=date.substring(dIdx,dIdx+2)-0;

  return new Array(y,m,d);
}

function hideCal() {
  calWin.close();
  calWin = null;
  window.status = "";
}

function getLeftIE(x,m) {
  var dx=0;
  if (x.tagName=="TD"){
    dx=x.offsetLeft;
  }
  else if (x.tagName=="TABLE") {
    dx=x.offsetLeft;
    if (m) { dx+=(x.cellPadding!=""?parseInt(x.cellPadding):2); m=false; }
  }
  return dx+(x.parentElement.tagName=="BODY"?0:getLeftIE(x.parentElement,m));
}
function getTopIE(x,m) {
  var dy=0;
  if (x.tagName=="TR"){
    dy=x.offsetTop;
  }
  else if (x.tagName=="TABLE") {
    dy=x.offsetTop;
    if (m) { dy+=(x.cellPadding!=""?parseInt(x.cellPadding):2); m=false; }
  }
  return dy+(x.parentElement.tagName=="BODY"?0:getTopIE(x.parentElement,m));
}

function getLeftN4(l) { return l.pageX; }
function getTopN4(l) { return l.pageY; }

function getLeftN6(l) { return l.offsetLeft; }
function getTopN6(l) { return l.offsetTop; }

function lastDay(d) {
  var yy=d.getFullYear(), mm=d.getMonth();
  for (var i=31; i>=28; i--) {
    var nd=new Date(yy,mm,i);
    if (mm == nd.getMonth()) {
      return i;
    }
  }
}

function firstDay(d) {
  var yy=d.getFullYear(), mm=d.getMonth();
  var fd=new Date(yy,mm,1);
  return fd.getDay();
}

function dayDisplay(i) {
  if (dayDigits == 0) {
    return yxDays[i];
  }
  else {
    return yxDays[i].substring(0,dayDigits);
  }
}

function calTitle(d) {
  var yy=d.getFullYear(), mm=yxMonths[d.getMonth()];
  var s;

  if (titleMode == 2) {
    s="<tr align='center' bgcolor='"+titleColor+"'><td colspan='7'>\n<table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td align='right'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-10)'>&nbsp;&#171;</a>&nbsp;"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-1)'>&#139;&nbsp;</a></b>"+span2+"</td><td width='"+titleWidth+"'><b>"+span1("title")+yy+span2+"</b></td><td align='left'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(1)'>&nbsp;&#155;</a>&nbsp;"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(10)'>&#187;&nbsp;</a></b>"+span2+"</td></tr><tr align='center' valign='middle'><td align='right'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.prepMonth) window.opener.prepMonth("+d.getMonth()+")'>&nbsp;&#139;&nbsp;</a></b>"+span2+"</td><td width='"+titleWidth+"'><b>"+span1("title")+mm+span2+"</b></td><td align='left'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.nextMonth) window.opener.nextMonth("+d.getMonth()+")'>&nbsp;&#155;&nbsp;</a></b>"+span2+"</td></tr></table>\n</td></tr><tr align='center' bgcolor='"+daysColor+"'>";
  }
  else {
    s="<tr align='center' bgcolor='"+titleColor+"'><td colspan='7'>\n<table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-1)'>&nbsp;&#171;</a>&nbsp;"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.prepMonth) window.opener.prepMonth("+d.getMonth()+")'>&#139;&nbsp;</a></b>"+span2+"</td><td width='"+titleWidth+"'><nobr><b>"+span1("title")+mm+" "+yy+span2+"</b></nobr></td><td>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.nextMonth) window.opener.nextMonth("+d.getMonth()+")'>&nbsp;&#155;</a>&nbsp;"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(1)'>&#187;&nbsp;</a></b>"+span2+"</td></tr></table>\n</td></tr><tr align='center' bgcolor='"+daysColor+"'>";
  }

  for (var i=weekDay; i<weekDay+7; i++) {
    s+="<td width='"+dayWidth+"'>"+span1("days")+dayDisplay(i)+span2+"</td>";
  }

  s+="</tr>";

  return s;
}

function calHeader() {
  return "<head>\n<title>"+currentCal.title+"</title>\n<style type='text/css'>\n"+spanx("title",titleFontColor)+spanx("days",daysFontColor)+spanx("foot",footColor)+spanx("day",dayFontColor)+spanx("currentDay",currentDayFontColor)+ax("titlea",titleFontColor)+ax("daya",dayFontColor)+ax("currenta",currentDayFontColor)+ax("foota",footFontColor)+"</style>\n</head>\n<body>\n<table align='center' border='0' bgcolor='"+borderColor+"' cellspacing='0' cellpadding='1'><tr><td>\n<table cellspacing='1' cellpadding='3' border='0'>";
}

function calFooter() {
  return "<tr bgcolor='"+footColor+"'><td colspan='7' align='center'>"+span1("foot")+"<b>"+a1("foota")+"'javascript:if (window.opener && !window.opener.closed && window.opener.hideCal) window.opener.hideCal()'>"+yxLinks[0]+"</a>&nbsp;&nbsp;"+a1("foota")+"'javascript:if (window.opener && !window.opener.closed && window.opener.clearDate) window.opener.clearDate()'>"+yxLinks[1]+"</a></b>"+span2+"</td></tr></table>\n</td></tr></table>\n</body>";
}

function calBody(d,day) {
  var s="", dayCount=1, fd=firstDay(d), ld=lastDay(d);

  if (weekDay > 0 && fd == 0) {
    fd = 7;
  }

  for (var i=0; i<6; i++) {
    s+="<tr align='center' bgcolor='"+bodyColor+"'>";
    for (var j=weekDay; j<weekDay+7; j++) {
      if (i*7+j<fd || dayCount>ld) {
        s+="<td>"+span1("day")+"&nbsp;"+span2+"</td>";
      }
      else {
        var bgColor=dayColor;
        var fgTag="day";
        var fgTagA="daya";
        if (dayCount==day) { 
          bgColor=currentDayColor; 
          fgTag="currentDay";
          fgTagA="currenta";
        }
        
        s+="<td bgcolor='"+bgColor+"'>"+span1(fgTag)+a1(fgTagA)+"'javascript: if (window.opener && !window.opener.closed && window.opener.pickDate) window.opener.pickDate("+dayCount+")'>"+(dayCount++)+"</a>"+span2+"</td>";
      }
    }
    s+="</tr>";
  }

  return s;
}

function moveYear(dy) {
  cY+=dy;
  var nd=new Date(cY,cM,1);
  changeCal(nd);
}

function prepMonth(m) {
  cM=m-1;
  if (cM<0) { cM=11; cY--; }
  var nd=new Date(cY,cM,1);
  changeCal(nd);
}

function nextMonth(m) {
  cM=m+1;
  if (cM>11) { cM=0; cY++;}
  var nd=new Date(cY,cM,1);
  changeCal(nd);
}

function changeCal(d) {
  var dd = 0;

  if (currentCal != null) {
    var calRE = getFormat();

    if (currentCal.form[currentCal.field].value!="" && calRE.test(currentCal.form[currentCal.field].value)) {
      var cd = getDateNumbers(currentCal.form[currentCal.field].value);
      if (cd[0] == d.getFullYear() && cd[1] == d.getMonth()) {
        dd=cd[2];
      }
    }
    else {
      var cd = new Date();
      if (cd.getFullYear() == d.getFullYear() && cd.getMonth() == d.getMonth()) {
        dd=cd.getDate();
      }
    }
  }

  var calendar=calHeader()+calTitle(d)+calBody(d,dd)+calFooter();

  calWin.document.open();
  calWin.document.write(calendar);
  calWin.document.close();
}

function markClick(e) {
  if (isIE || isOpera6) {
    winX=event.screenX;
    winY=event.screenY;
  }
  else if (isN4 || isN6) {
    winX=e.screenX;
    winY=e.screenY;

    document.routeEvent(e);
  }

  if (isN4 || isN6) { 
    document.routeEvent(e); 
  } 
  else { 
    event.cancelBubble=false; 
  } 

  return true;
}

function showCal(name) {
// TESTING: alert(name);
  var lastCal=currentCal;
  var d=new Date(), hasCal=false;

  currentCal = findCalendar(name);

  if (currentCal != null && currentCal.form != null && currentCal.form[currentCal.field]) {
    var calRE = getFormat();

    if (currentCal.form[currentCal.field].value!="" && calRE.test(currentCal.form[currentCal.field].value)) {
      var cd = getDateNumbers(currentCal.form[currentCal.field].value);
      d=new Date(cd[0],cd[1],cd[2]);

      cY=cd[0];
      cM=cd[1];
      dd=cd[2];
    }
    else {
      cY=d.getFullYear();
      cM=d.getMonth();
      dd=d.getDate();
    }

    var calendar=calHeader()+calTitle(d)+calBody(d,dd)+calFooter();

    if (calWin != null && typeof(calWin.closed)!="undefined" && !calWin.closed) {
      hasCal=true;
      calWin.moveTo(winX+calOffsetX,winY+calOffsetY);
    }

    if (!hasCal) {
      if (isIE || isOpera6) {
        calWin=window.open("","cal","toolbar=0,width="+calWidth+",height="+calHeight+",left="+(winX+calOffsetX)+",top="+(winY+calOffsetY));
      }
      else {
        calWin=window.open("","cal","toolbar=0,width="+calWidth+",height="+calHeight+",screenx="+(winX+calOffsetX)+",screeny="+(winY+calOffsetY));
      }
    }

    calWin.document.open();
    calWin.document.write(calendar);
    calWin.document.close();

    calWin.focus();
  }
  else {
    if (currentCal == null) {
      window.status = "Calendar ["+name+"] not found.";
    }
    else if (!currentCal.form) {
      window.status = "Form ["+currentCal.formName+"] not found.";
    }
    else if (!currentCal.form[currentCal.field]) {
      window.status = "Form Field ["+currentCal.formName+"."+currentCal.field+"] not found.";
    }

    if (lastCal != null) {
      currentCal = lastCal;
    }
  }
}

function get2Digits(n) {
  return ((n<10)?"0":"")+n;
}

function clearDate() {
  currentCal.form[currentCal.field].value="";
  hideCal();
}

function pickDate(d) {
  hideCal();
  window.focus();

  var date=calFormat;
  date = date.replace(/yyyy/i, cY);
  date = date.replace(/mm/i, get2Digits(cM+1));
  date = date.replace(/MON/, yxMonths[cM].substring(0,3).toUpperCase());
  date = date.replace(/Mon/i, yxMonths[cM].substring(0,3));
  date = date.replace(/dd/i, get2Digits(d));
  date = date.replace(/DAY/, getDayName(cY,cM,d).toUpperCase());
  date = date.replace(/day/i, getDayName(cY,cM,d));

  currentCal.form[currentCal.field].value=date;
  // IE5/Mac needs focus to show the value, weird.
  currentCal.form[currentCal.field].focus();
}
// ------

// user functions
function checkDate(name) {
  var thisCal = findCalendar(name);

  if (thisCal != null && thisCal.form != null && thisCal.form[thisCal.field]) {
    var calRE = getFormat();

    if (calRE.test(thisCal.form[thisCal.field].value)) {
      //return 0;
    }
    else {
    alert('Please enter a valid date value (mm/dd/yyyy)');
      //return 1;
    }
  }
  else {
    alert('Please enter a valid date value (mm/dd/yyyy)');
    //return 2;
  }
}

function getCurrentDate() {
  var date=calFormat, d = new Date();
  date = date.replace(/yyyy/i, d.getFullYear());
  date = date.replace(/mm/i, get2Digits(d.getMonth()+1));
  date = date.replace(/dd/i, get2Digits(d.getDate()));

  return date;
}

function compareDates(date1, date2) {
  var calRE = getFormat();
  var d1, d2;

  if (calRE.test(date1)) {
    d1 = getNumbers(date1);
  }
  else {
    d1 = getNumbers(getCurrentDate());
  }

  if (calRE.test(date2)) {
    d2 = getNumbers(date2);
  }
  else {
    d2 = getNumbers(getCurrentDate());
  }

  var dStr1 = d1[0] + "" + d1[1] + "" + d1[2];
  var dStr2 = d2[0] + "" + d2[1] + "" + d2[2];

  if (dStr1 == dStr2) {
    return 0;
  }
  else if (dStr1 > dStr2) {
    return 1;
  }
  else {
    return -1;
  }
}

function getNumbers(date) {
  var calRE = getFormat();
  var y, m, d;

  if (calRE.test(date)) {
    var yIdx = calFormat.search(/yyyy/i);
    var mIdx = calFormat.search(/mm/i);
    var m3Idx = calFormat.search(/mon/i);
    var dIdx = calFormat.search(/dd/i);

    y=date.substring(yIdx,yIdx+4);
    if (mIdx != -1) {
      m=date.substring(mIdx,mIdx+2);
    }
    else {
      var mm=getMonthFromName(date.substring(m3Idx,m3Idx+3))+1;
      m=(mm<10)?("0"+mm):(""+mm);
    }
    d=date.substring(dIdx,dIdx+2);

    return new Array(y,m,d);
  }
  else {
    return new Array("", "", "");
  }
}
// ------

if (isN4 || isN6) {
  document.captureEvents(Event.CLICK);
}
document.onclick=markClick;