// Event Calendar
// copyright Stephen Chapman, 10th June 2006, 30th October 2006

var tb = 't'; // top or bottom (t or b)
var headbg = '#cccccc';  // table heading background colour
var todaybg = '#99cccc'; // current selected date background colour
var textclr = '#000000'; // text colour
var linkclr = '#ff9999'; // link text colour
//var noMessage =  'No event messages to display for today';  message to display when no entry in array

var dA = new Array(); var x = 0;
// first 8 characters in ccyymmdd format for single date events
// first 8 characters in 0000mmdd format for every year events
dA[x++] = "00000101 New Year";


dA[x++] = "20100116  16th January - One Day Course, Ascot";

dA[x++] = "20100120  20th January - Committee Meeting";
dA[x++] = "20100222  22nd February - Committee Meeting";
dA[x++] = "20100314  14th March - Committee Meeting";
dA[x++] = "20100313  13th March - One Day Course, Venue TBC";
dA[x++] = "20100426  26th April - Committee Meeting";
dA[x++] = "20100524  24th May - Committee Meeting";
dA[x++] = "20100521  21st - 24th May - Spring Camp, France";
dA[x++] = "20100522  21st - 24th May - Spring Camp, France";
dA[x++] = "20100523  21st - 24th May - Spring Camp, France";
dA[x++] = "20100524  21st - 24th May - Spring Camp, France";
dA[x++] = "20100627  27th June - Committee Meeting";
dA[x++] = "20100619  19th June - One Day Course, Venue TBC";
dA[x++] = "20100726  26th July - Committee Meeting";
dA[x++] = "20100731  31st July - Summer BBQ";
dA[x++] = "20100816  16th August - Committee Meeting";

dA[x++] = "20100821  21st - 26th August - Summer Camp 2010, Bedford";
dA[x++] = "20100822  21st - 26th August - Summer Camp 2010, Bedford";
dA[x++] = "20100823  21st - 26th August - Summer Camp 2010, Bedford";
dA[x++] = "20100824  21st - 26th August - Summer Camp 2010, Bedford";
dA[x++] = "20100825  21st - 26th August - Summer Camp 2010, Bedford";
dA[x++] = "20100826  21st - 26th August - Summer Camp 2010, Bedford";

dA[x++] = "20100926  26th September - Committee Meeting";
dA[x++] = "20101025  25th October - Committee Meeting";
dA[x++] = "20101129  29th November - Committee Meeting";

dA[x++] = "20101120  20th - 21st November - Autumn Camp, Venue TBC";
dA[x++] = "20101121  20th - 21st November - Autumn Camp, Venue TBC";

dA[x++] = "20101213  13th December - Committee Meeting";
dA[x++] = "20101218  18th December - Christmas Party";


// dA[x++] = "20060610 New Event Calendar Started today";

// permission is granted to use this javascript provided that the below code is not altered
var pageLoaded = 0; 
window.onload = function() 
{pageLoaded = 1;}

function loaded(i,f) {if (document.getElementById && document.getElementById(i) != null) f(); else if (!pageLoaded) setTimeout('loaded(\''+i+'\','+f+')',100);
}

function numEventsThisMonth(currentmonthval)
{
  var num = 0;
  var x = dA.length;
  for (var i = 0; i < x; i++) 
   {if (dA[i].substr(0,6) == currentmonthval.substr(0,6)) num++;}
  return num; 
}


function monthlength(month,year) {var dd = new Date(year, month, 0);return dd.getDate();}
var moy = ['January','February','March','April','May','June','July','August','September','October','November','December'];
var today = new Date();
var selDate = today.getFullYear()+getmmdd(today.getMonth()+1,today.getDate());

function dispCal(yy,mm) {if (mm < 0 || mm > 12) {alert('month must be between 1 and 12'); return false;} if (yy != 0 && (yy < 1901 || yy > 2100)) {alert('year must be after 1900 and before 2101'); return false;} 

var dow = ['Sun','Mon','Tue','Wed','Thu','Fri','Sat']; var calendar = new Date();  
var today = calendar.getDate(); calendar.setDate(1); 
if (yy > 1900) calendar.setFullYear(yy); 
if (mm > 0) calendar.setMonth(mm - 1); 
var yy = year = calendar.getFullYear(); 
var month = calendar.getMonth(); calendar.setDate(today); 
var weekday = calendar.getDay(); 
var daysInMonth = monthlength(month+1,year); 
var hilite_start = '<td width="30" style="background:' + todaybg + '" align="center"><b>'; var td_start = '<td width="30" align="center">'; var cal = '<div id="cal"><div style="border:1pt solid #cccccc;height:210px;width:238px"><table border="0" cellspacing="0" cellpadding="2" align="center"><tr><td colspan="7" style="background:' + headbg + '" align="center"><b>' + moy[month]  + ' ' + year + '<\/b><\/td><\/tr><tr>'; 

var evs = '<div id="evs"><div style="border:1pt solid #cccccc;height:210px;width:238px"><table border="0" cellspacing="0" cellpadding="2" align="right"><tr><td colspan="2" style="background:' + headbg + '" align="right"><b>' + moy[month]  + ' ' + year + '<\/b><\/td><\/tr><tr>'; 

for(dex=0; dex < 7; dex++) {cal += td_start + dow[dex] + '</td>';} cal += '<\/tr><tr>'; 
var day2 = today; 

for (dex = today; dex > 6; dex -=7) day2 = dex; weekday -= day2 - 1; while (weekday < 0) weekday += 7; 
for(dex=0; dex < weekday; dex++) cal += td_start + ' <\/td>'; 
for(dex=1; dex <= daysInMonth; dex++) {if(weekday == 7) {cal += '</tr><tr>'; weekday = 0;} 
if(selDate==year+getmmdd(month+1,dex)) cal += hilite_start +'<span'+clickDate(dex,month,year) + '>'+ dex + '<\/span><\/b><\/td>'; else cal += td_start + '<span '+clickDate(dex,month,year) + '>' + dex + '<\/span><\/td>'; weekday += 1;} for(dex=weekday; dex < 7; dex++) cal += td_start + ' <\/td>'; cal += '<\/tr><\/table><\/div>';

//var Num = numEventsThisMonth(selDate);

if (document.getElementById) 
{var mmb = month;  mm = month + 1; var yya = yyb = yy; 
if (mmb <1) {mmb += 12; yyb--;} 
var mma = month + 2; 

if (mma > 12) {mma -= 12; yya++;} 
var yb = yy -1; 
var ya = yy +1; 

cal += '<table border="0" cellspacing="0" cellpadding="2" width="210"><tr><td><a href="#" onclick="if (cala = dispCal('+yb+','+mm+')) {document.getElementById(\'cal\').innerHTML = cala;return false;}">< Year</a></td><td><a href="#" onclick="if (cala = dispCal('+yyb+','+mmb+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}">< Month</a></td><td align="right"><a href="#" onclick="if (cala = dispCal('+yya+','+mma+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}">Month ></a></td><td align="right"><a href="#" onclick="if (cala = dispCal('+ya+','+mm+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}">Year></a></td></tr></table>';} else {cal += '<div> </div>';} cal += '</div>'; return cal;}



function start() {var x = '<div id="calDate" style="border:1pt solid #cccccc;width:238px"><\/div>'; var y = ''; if (tb == 't') y = x + dispCal(0,0); else y = dispCal(0,0) + x; document.getElementById('calendar').innerHTML = y; ev();}
loaded('calendar',start);


function clickDate(day, month, year) 
{var ct = nextDate(year + getmmdd(month+1,day));
if (ct == '') ct = nextDate('0000' + getmmdd(month+1,day));if (ct == '') return 'style="color:'+textclr+'"'; else return 'style="cursor:pointer;color:'+linkclr+'" onclick="selDate = '+year+ getmmdd(month+1,day)+'; isDate(' + day + ',' + month + ',' + year + ');return false;"';}

function isDate(dayVal,monthVal,yearVal) {var ct = nextDate(yearVal + getmmdd(monthVal+1,dayVal));if (ct == '') ct = nextDate('0000' + getmmdd(monthVal+1,dayVal));
//if (ct == '') ct = noMessage;document.getElementById('calDate').innerHTML = selDate + ':<br \/>' +ct; return false;}
if (ct == '') ct = noMessage;document.getElementById('calDate').innerHTML = ct   ; return false;}


function nextDate(yymmdd) {var x = dA.length;for (var i = 0; i < x; i++) {if (dA[i].substr(0,8) == yymmdd) return dA[i].substr(8);}return '';}

function getmmdd(mm,dd) {return (mm > 9 ? '' + mm : '0' + mm) + (dd > 9 ? dd : '0' + dd);}

function ev() {var ct = nextDate(selDate);var ct = nextDate(selDate);if (ct == '') ct = nextDate('0000' + selDate.substr(4));if (ct == '') ct = noMessage; 
//document.getElementById('calDate').innerHTML = selDate + ':<br \/> ' +ct;}
document.getElementById('calDate').innerHTML = ct;}