// aca JavaScript
//	<script type="text/javascript" src="aca_script.js"></script>
//	<script type="text/javascript">
//	</script>
//<script type="text/javascript">
//	aca_foot()
//</script>

var br = "<br />";				 // end of line
var lf = "<br /><br />";	 // line-feed

var current = new Date();
var thisDate = current.getDate();
var thisDay = current.getDay();
var thisMonth = current.getMonth() + 1;
var thisYear = current.getYear();
var prevYear = current.getYear() - 1;
var nextYear = current.getYear() + 1;

var aArray = new Array(43);
var aDag = ["zondag","maandag","dinsdag","woensdag","donderdag","vrijdag","zaterdag"];
var aMonth = ["december","januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december","januari"];
var aMonthMmm = ["","Januari","Februari","Maart","April","Mei","Juni","Juli","Augustus","September","Oktober","November","December"];
var annMonth = ["12","01","02","03","04","05","06","07","08","09","10","11","12","01"];
var aMax = [, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];		
var aOffset = [, 4, 0, 0, 3, 5, 1, 3, 6, 2, 4, 0, 2];
var strThisMonth = aMonth[thisMonth];
var strPrevMonth = aMonth[thisMonth - 1];
var strNextMonth = aMonth[thisMonth + 1];
var strThisMonthYear = aMonth[thisMonth] + " " + thisYear;
if (thisMonth == 1)
	 var strPrevMonthYear = aMonth[thisMonth - 1] + " " + prevYear;
else
	 var strPrevMonthYear = aMonth[thisMonth - 1] + " " + thisYear;
if (thisMonth == 12)
	 var strNextMonthYear = aMonth[thisMonth + 1] + " " + nextYear;
else
	 var strNextMonthYear = aMonth[thisMonth + 1] + " " + thisYear;
var strAgendaVandaag = ""
var intOffset = 0;
var intMax = 0;

var strColour = "";
var strbgcClr = "";
var strinvClr = "";
var strb2Clr = "";

var S1 = "&nbsp;";
var S2 = "&nbsp;&nbsp;";
var S3 = "&nbsp;&nbsp;&nbsp;";
var S5 = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
var SX = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";	
var SXX = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";	

/* ----------------- */
function date_scope( pYear, pMonth, pStartDay, pEndDay) {
if ((pStartDay == 0)	&& (pEndDay == 0)) // gaat hier om na een bepaalde datum, dus true als huidige datum > opgegeven pYear, pMonth
	 // van toepassing op oa de .pdf-file's agenda_maand en aca_nieuwsbrief: vaak pas beschikbaar na de eerste dag van de betreffende maand
	 {
  	if ((thisYear >= pYear) && (thisMonth >= pMonth))
    		return true;
  	else
      	return false;
    }
else
  if (pStartDay == 0)	 // huidige datum valt voor pEndDay 
   	{
   	if (pYear > thisYear)
        	return true;
    	else
      		if (pYear < thisYear)
        		return false;
    		else		 // pYear = thisYear
        		if (pMonth > thisMonth)
            			return true;
        		else
          			if (pMonth < thisMonth)
              				return false;
            			else		 // pMonth = thisMonth
            				if (pEndDay >= thisDate)
                				return true;
            				else
                				return false;
    	}

	else 					// huidige datum valt op of tussen pStartDay en pEndDay
    	{
    	if (thisYear == pYear && thisMonth == pMonth)
	      	if ((thisDate >= pStartDay) && (thisDate <= pEndDay))
        		return true;
      		else
          	return false;
    	else
        	return false;
      }
}

/* ----------------- */
function div( pClass, pText)	{
	return "<div class=\"" + pClass + "\">" + pText + "<\/div>";
}

/* ----------------- */
function hdr( pClass,pText)	{
	if (pClass == "")
		 return "<br /><br /><span class=\"bold\">" + pText + "<\/span><br />";
	else
		 return "<br /><br /><span class=\"" + pClass + "\">" + pText + "<\/span><br />";
}

/* ----------------- */
function hdrP( pClass,pText)	{
	if (pClass == "")
		 return "<p class=\"bold\">" + pText + "<\/p>";
	else
		 return "<p class=\"" + pClass + "\">" + pText + "<\/p>";
}

/* -- hdrX = hdr zonder de begin <br /> --------------- */
function hdrX( pClass,pText)	{
	if (pClass == "")
		 return "<span class=\"bold\">" + pText + "<\/span><br />";
	else
		 return "<span class=\"" + pClass + "\">" + pText + "<\/span><br />";
}

/* ----------------- */
function outputMonth( pnYear, pnMonth )  {
  switch(pnYear)			{
  case 2010:
		aOffset = [, 4, 0, 0, 3, 5, 1, 3, 6, 2, 4, 0, 2];
		break;
  case 2011:
  	aOffset = [, 5, 1, 1, 4, 6, 2, 4, 0, 3, 5, 1, 3];
		break;
  case 2012:	// schrikkeljaar: vanaf februari + 2 i.p.v. + 1
  	aOffset = [, 6, 2, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5];
		break;
  case 2013:
  	aOffset = [, 1, 4, 4, 0, 2, 5, 0, 3, 6, 1, 4, 6];
		break;
  case 2014:
  	aOffset = [, 2, 5, 5, 1, 3, 6, 1, 4, 0, 2, 5, 0];
		break;
	default:
	}
	
if (thisYear == pnYear && thisMonth == pnMonth)
	{	
	strColour = "red";
	strClrMnd = "red_inv";
	strbbClr = "bb1_red";
	strb2Clr = "b2_red";
	}
else
	{	
	strColour = "vbi_clr";
	strClrMnd = "vbi_inv";
	strbbClr = "bb1_vbi";
	strb2Clr = "b2_vbi";
	}
	
intOffset = aOffset[pnMonth];
intMax = aMax[pnMonth];
document.writeln("<table class=\"px12 " + strb2Clr + " " + strColour + "\" cols=\"7\">" +
								 "<tr><td class=\"ta_c bold " + strClrMnd + "\" colspan=\"7\">" + aMonth[pnMonth] + " " + pnYear + "<\/td><\/tr>" +
								 "<tr class=\"bold " + strbbClr + "\"><td class=\"ta_r w10\">M<\/td><td class=\"ta_r w15\">D<\/td>" +
								 "<td class=\"ta_r w15\">W<\/td><td class=\"ta_r w15\">D<\/td>" +
								 "<td class=\"ta_r w15\">V<\/td><td class=\"ta_r w15\">Z<\/td><td class=\"ta_r w15\">Z<\/td><\/tr>" +
								 "<tr><td class=\"px1 " + strbbClr + "\" colspan=\"7\">&nbsp;<\/td><\/tr>");

for ( var j = 0 ; j < 44; j++)
	aArray[j] = "  ";
  for ( var i = 1 ; i <= (intMax + intOffset); i++)
  	aArray[i + intOffset] = i;
    i = 1;
    j = 0;
    for ( var i = 1; i <= (intMax + intOffset); i++)  	{
  		if (j == 0)
  			document.writeln("<tr align=\"right\">");
  		if (pnYear == thisYear && pnMonth == thisMonth && aArray[ i ] == thisDate)
  				document.writeln("<td class=\"bold red_inv\">");
  			else
  				document.writeln("<td>");
  		document.writeln(aArray[i] + "<\/td>");	
  		j++;
  		if (j == 7)	{
  			j = 0;
  			document.writeln("<\/tr>");
  			}
    	}
document.writeln("<tr><td class=\"px1 " + strbbClr + "\" colspan=\"7\">&nbsp;<\/td><\/tr><\/table>");
}

/* ----------------- */
function p( pClass, pText)	{
	return "<p class=\"" + pClass + "\">" + pText + "<\/p>";
}

/* ----------------- */
function setVar(pVar, pValue) {
	switch (pVar) {
	case "varWidthL": 
   	varWidthL = pValue;
		break;
	case "varWidthM": 
   	varWidthM = pValue;
		break;
	case "varWidthR": 
   	varWidthL = pValue;
		break;
	default:
	}
}

/* ----------------- */
function span(pClass,pText)	{
	return "<span class=\"" + pClass + "\">" + pText + "<\/span>";
}

/* --- Table class cols summuray -------------- */
function table( pClass, pCols) {
  document.writeln("<table class=\"" + pClass + "\" summary=\"" + pCols + "\">");
}

/* --- Table ColSpan ------------- */
function table_CS( pClass, pCols, pText) {
  document.writeln("<tr><td class=\"" + pClass + "\" colspan=\"" + pCols + "\">" + pText + "<\/td><\/tr>");
}

/* --- Table ColSpan zonder de <tr> en <\/tr> ------------- */
function table_CSX( pClass, pCols, pText) {
  document.writeln("<td class=\"" + pClass + "\" colspan=\"" + pCols + "\">" + pText + "<\/td>");
}

/* --- Table Linker kolom -------------- */
function table_Left(pClass, pText) {
  document.writeln("<tr><td class=\"" + pClass + "\" >" + pText + "<\/td>");
}

/* --- Table Text + Einde kolom -------------- */
//function table_td_end() {
//  document.writeln("<\/td>");
//}

/* --- Table Middelste kolom -------------- */
function table_Mid(pClass, pText) {
  document.writeln("<td class=\"" + pClass + "\" >" + pText + "<\/td>");
}

/* --- Table Middelste kolom met Links en Recht blanco-------------- */
function table_xMidx(pClass, pText) {
  document.writeln("<tr><td>&nbsp;<\/td><td class=\"" + pClass + "\">" + pText + "<\/td><td>&nbsp;<\/td><\/tr>");
}

/* --- Table Middelste twee kolommen met Links en Recht blanco-------------- */
function table_xMidMidx(pClassM1, pTextM1, pClassM2, pTextM2) {
  document.writeln("<tr><td>&nbsp;<\/td><td class=\"" + pClassM1 + "\">" + pTextM1 + "<\/td>" +
									 "<td class=\"" + pClassM2 + "\">" + pTextM2 + "<\/td><td>&nbsp;<\/td><\/tr>");
}

/* --- Table Rechter kolom -------------- */
function table_Right(pClass, pText) {
  document.writeln("<td class=\"" + pClass + "\" >" + pText + "<\/td><\/tr>");
}

/* --- Table Row with 2 Cells -------------- */
function table_Row2(pClassC1, pTextC1,pClassC2, pTextC2) {
  document.writeln("<tr><td class=\"" + pClassC1 + "\" >" + pTextC1 + "<\/td><td class=\"" + pClassC2 + "\" >" + pTextC2 + "<\/td><\/tr>");
}

/* --- Table Row with 3 Cells -------------- */
function table_Row3(pClassC1, pTextC1, pClassC2, pTextC2, pClassC3, pTextC3) {
  document.writeln("<tr><td class=\"" + pClassC1 + "\" >" + pTextC1 + "<\/td><td class=\"" + pClassC2 + "\" >" + pTextC2 + "<\/td>" +
									 "<td class=\"" + pClassC3 + "\" >" + pTextC3 + "<\/td><\/tr>");
}

/* --- Table RowSpan ------------- */
function table_RowSpan( pClass, pRows, pText) {
  document.writeln("<tr><td class=\"" + pClass + "\" rowspan=\"" + pRows + "\">" + pText + "<\/td>");
}


/* --- Table end -------------- */
function table_end() {
  document.writeln("<\/table><br />");
}

/* --- Table class cols summuray ReturnString -------------- */
function table_RS( pClass, pCols) {
  return "<table class=\"" + pClass + "\" summary=\"" + pCols + "\">"
}

/* --- Table ColSpan ReturnString ------------- */
function table_CS_RS( pClass, pCols, pText) {
  return "<tr><td class=\"" + pClass + "\" colspan=\"" + pCols + "\">" + pText + "<\/td><\/tr>"
}

/* --- Table ColSpan zonder de <tr> en <\/tr> ReturnString ------------- */
function table_CSX_RS( pClass, pCols, pText) {
  return "<td class=\"" + pClass + "\" colspan=\"" + pCols + "\">" + pText + "<\/td>"
}

/* --- Table Linker kolom ReturnString -------------- */
function table_Left_RS(pClass, pText) {
  return "<tr><td class=\"" + pClass + "\" >" + pText + "<\/td>"
}

/* --- Table Rechter kolom ReturnString -------------- */
function table_Right_RS(pClass, pText) {
  return "<td class=\"" + pClass + "\" >" + pText + "<\/td><\/tr>"
}

/* --- Table end ReturnString -------------- */
function table_end_RS() {
  return "<\/table><br />"
}

/* ----------------- */
function tag_a(p_type, p_href, p_title, p_display, pEOL) {
  if (p_type == "-")
    document.writeln("<a href=\"" + p_href + "\" title=\"" + p_title + "\" >" + p_display + "<\/a>");
  else
   	if (p_type == "mail")
       document.writeln("<a href=\"mailto:" + p_href + "\" title=\"" + p_title + "\" >" + p_display + "<\/a>");
   	if (p_type == "www")
       document.writeln("<a href=\"http://" + p_href + "\" title=\"" + p_title + "\" >" + p_display + "<\/a>");
  if (pEOL == "eol")				 // End of Line
     document.writeln("<br />");
}

/* ----------------- */
function tag_img(p_scr, p_alt, p_width, pEOL) {
  document.writeln("<img src=\"temp/2010_09_1250_open_bak.png\" alt=\"link naar 1250ste Open Bak\" width=\"300\" />");
  document.writeln("<img src=\"" + p_scr + "\" alt=\"" + p_alt + "\" width=\"" + p_width + "\" />");
}


/* ----------------- */
function vandaag(pID) {

	var strVandaag = aDag[thisDay] + " " + thisDate + " " + aMonth[thisMonth] + " " + thisYear;

	switch(pID)	 {
  case "dw":
		document.writeln(strVandaag);
		break;
	case "str":
	  return strVandaag;
		break;
	default:
	}
}

/* ----------------- */
function window_location(pLocation) { 	
	window.Location = pLocation;
	return false;
}

/* ------- pTG, pTitle ---------- */
function waitmsec( pms )	{
//alert("start")
    setTimeout(waitmsec, pms * 1000);
//alert("end")
}