var mydate=new Date()
var theYear=mydate.getFullYear()
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
var year_mod = theYear%4; //returns the remainder of the  current year/4
var lastYear = theYear - 1; //returns last year
var lastyear_mod = lastYear%4; //returns the remainder of last years mod =lastyear/4
if (daym<10)
daym="0"+daym
var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
var montharray=new Array("January","February","March","April","May","June","July","August","September","October","November","December")

//document.write(dayarray[day]+" "+daym+"  "+montharray[month]+" "+theYear)
//document.writeln("&nbsp;&nbsp;&nbsp;" + dayarray[day]);
//document.writeln("<br>")
//document.writeln("<br>" + "&nbsp;&nbsp;&nbsp;" +daym + "  " + montharray[month] + " " +theYear);

/***********************************/
/* This part determines the equinox*/
/* and the seasonal poem           */
/***********************************/

/* this fuction is for December only*/

function winterpoem(num)
{
	//window.alert("Here for winter poem." + " " + num);
	//var year_mod = theYear%4;
	//alert(theYear +" " +num + "  " + year_mod);
	switch(num)
	{
		case 0 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem.htm","popUp","height=350,width=740");break;
		case 1 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem1.htm","popUp","height=450,width=680");break;
		case 2 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem2.htm","popUp","height=450,width=740");break;
		case 3 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem3.htm","popUp","height=350,width=740");break;
		default : alert("Invalid poem");
	}
	//window.open("http://nnpmrt.org.uk/Poems/winterpoem.htm","popUp","height=350,width=740");
}
/*This function is the winter poem for January, February and up to 21 March*/
/*
function winterpoemJanFebMar()
{
	theYear = theYear - 1;
	year_mod = theYear%4;
	
	switch(year_mod)
	{
		case 0 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem.htm","popUp","height=350,width=740");break;
		case 1 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem1.htm","popUp","height=450,width=680");break;
		case 2 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem2.htm","popUp","height=350,width=740");break;
		case 3 : window.open("http://www.nnpmrt.org.uk/Poems/winterpoem3.htm","popUp","height=350,width=740");break;
		default : alert("Invalid poem");
	}
}
*/
function springpoem()
{
	//var year_mod = theYear%4; //returns the remainder of the year/4
	switch(year_mod)
	{
		case 0 : window.open("http://www.nnpmrt.org.uk/Poems/springpoem.htm","popUp","height=350,width=740");break;
		case 1 : window.open("http://www.nnpmrt.org.uk/Poems/springpoem1.htm","popUp","height=350,width=740");break;
		case 2 : window.open("http://www.nnpmrt.org.uk/Poems/springpoem2.htm","popUp","height=410,width=740");break;
		case 3 : window.open("http://www.nnpmrt.org.uk/Poems/springpoem3.htm","popUp","height=350,width=740");break;
		default : alert("Invalid poem");
	}
	
	//window.open("http://nnpmrt.org.uk/Poems/springpoem.htm","popUp","height=500,width=700");
}

function summerpoem()
{
	window.open("http://nnpmrt.org.uk/Poems/summerpoem.htm","popUp","height=600,width=600");
}

function autumnpoem()
{
	window.open("http://nnpmrt.org.uk/Poems/autumnpoem.htm","popUp","height=500,width=750");
}


//Winter Equinox and or Season

// This bit for the Winter Equinox

if( ( daym==21 || daym==22 ) && montharray[month]=="December")
{
	//document.write("&nbsp;&nbsp;&nbsp;" + "Winter Soltice.");
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href = http://en.wikipedia.org/wiki/Solstice target=_blank>" + "Winter Solstice"  +"</a>");
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href=javascript:winterpoem(year_mod);>" + "Winter poem" + "</a>")
}

//This part deterimes the Winter Poem for December only. ie No Solitice notice

if( ( daym>22 && daym<32 && montharray[month]=="December") ) /*|| ( daym>0 && daym<32 && montharray[month]=="January") ||
    ( daym>0 && daym<30 && montharray[month]=="February" ) || ( daym>0 && daym<21 && montharray[month]=="March" )  )*/
{
	//var year_mod = theYear%4;
	document.write("&nbsp;&nbsp;&nbsp" + "<a href=javascript:winterpoem(year_mod);>" +"Winter Poem" +"</a>");
}

//This part deterimes the Winter Poem for January, February up to 21 March.  It maintainns the same poem as for December.

if( ( daym>0 && daym<32 && montharray[month]=="January") || 
	( daym>0 && daym<30 && montharray[month] =="February") || 
	( daym>0 && daym<21 && montharray[month]=="March" )  )
{
	//alert("This year is " + "" + theYear);
	//var lastYear = theYear - 1;
	//alert("Last year is " + lastYear);
	//var lastyear_mod = lastYear%4;
	//alert(year_mod);
	//var lastyear_mod = year_mod - 1;
	//alert("Last year_mod " + lastyear_mod);
	document.write("&nbsp;&nbsp;&nbsp" + "<a href=javascript:winterpoem(lastyear_mod);>" +"Winter Poem" +"</a>");
	//document.write("&nbsp;&nbsp;&nbsp" + "<a href=javascript:winterpoemJanFebMar();>" +"Winter Poem" +"</a>");
	
}

//Spring Equinox and Spring Poem

//This part for the Spring Equinox

if( ( daym==20 || daym==21 ) && montharray[month]=="March")
{
	//document.write("&nbsp;&nbsp;&nbsp;" + "Spring Equinox.");
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href = http://en.wikipedia.org/wiki/Equinox target=_blank>" + "Spring Equinox" +"</a>");
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href=javascript:springpoem();>" + "Spring poem" + "</a>")
}


// This part determines the Spring Poem only.  No Spring solitice

if( ( daym>21 && daym<32 && montharray[month]=="March") || ( daym>0 && daym<32 && montharray[month]=="April") ||
    ( daym>0 && daym<32 && montharray[month]=="May" ) || ( daym>0 && daym<21 && montharray[month]=="June" )  )
{

	document.write("&nbsp;&nbsp;&nbsp" + "<a href=javascript:springpoem();>" +"Spring Poem" +"</a>");
}

//Summer Equinox and Summer Poem

//This part determine the Summer Solstice

if( ( daym==20 || daym==21 ) && montharray[month]=="June")
{
	//document.write("&nbsp;&nbsp;&nbsp;" + "Summer Equinox - " + "<a href=javascript:summerpoem();>" + "poem" +"</a>")
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href = http://en.wikipedia.org/wiki/Solstice target=_blank>" + "Summer Solstice"  +"</a>");
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href=javascript:summerpoem();>" + "Summer poem" + "</a>")
}

// This part determines the Summer Poem

if( ( daym>21 && daym<32 && montharray[month]=="June") || ( daym>0 && daym<32 && montharray[month]=="July") ||
    ( daym>0 && daym<32 && montharray[month]=="August" ) || ( daym>0 && daym<22 && montharray[month]=="September" )  )
{

	document.write("&nbsp;&nbsp;&nbsp" + "<a href=javascript:summerpoem();>" +"Summer Poem" +"</a>");
}

//Autumn Equinox and Autumn Poem

//This part determine the Autumn Equinox

if( ( daym==21 || daym==22 ) && montharray[month]=="September")
{
	//document.write("&nbsp;&nbsp;&nbsp;" + "Autumn Equinox.")
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href = http://en.wikipedia.org/wiki/Equinox target=_blank>" + "Autumn Equinox" +"</a>");
	document.writeln("&nbsp;&nbsp;&nbsp;" + "<a href=javascript:autumnpoem();>" + "Autumn poem" + "</a>")
}

// This part determines the Autumn Poem

if( ( daym>22 && daym<32 && montharray[month]=="September") || ( daym>0 && daym<32 && montharray[month]=="October") ||
    ( daym>0 && daym<32 && montharray[month]=="November" ) || ( daym>0 && daym<21 && montharray[month]=="December" )  )
{

	document.write("&nbsp;&nbsp;&nbsp" + "<a href=javascript:autumnpoem();>" +"Autumn Poem" +"</a>");
}