/*********************************************************************************************************************

                              Date picker written by Mark Wilton-Jones 5-8/10/2002

Please see http://www.howtocreate.co.uk/jslibs/ for details and a demo of this script
Please see http://www.howtocreate.co.uk/jslibs/termsOfUse.html for terms of use

To use:

	Put this in between the <head> tags:

<script src="calendarpopup.js" type="text/javascript" language="javascript1.2"></script>

You can now run the calendar using:

<script type="text/javascript" language="javascript1.2"><!--

openCalendar(); //opens or redraws the calendar window

resetDate();    //does NOT open/redraw the calendar window, just resets it to this year, this month

//you can also change the current date using:

curDate.setYear(yearIn4DigitFormat);
curDate.setMonth(monthFrom0To11);

//that does NOT open/redraw the calendar window, just resets it to the relevant year/month

//Note that with Escape, there is a bug that may require users to close then open the popup window
//for the calendar to refresh after they change month/year. Resetting the date every time the calendar
//is opened will make it impossible to use.

function datePickerReturn( oDay, oMonth, oYear ) {
	//this function will be called when the user finishes picking a date
	//you will want to do something with the day, month and year
	alert( 'The user chose ' + oDay + '/' + oMonth + '/' + oYear );
}

//--></script>

If you use inline events, this script can position the popup as close to the mouse as possible:

<a href="#" onclick="return false;" onmouseup="openCalendar(arguments[0]);return false;">Choose date</a>

*********************************************************************************************************************/

var mnthsLong = new Array('January','February','March','April','May','June','July','August','September','October','November','December');
var mnthsShort= new Array('','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
var curDate = new Date(); curDate.setDate(1); curDate.getTheYear = curDate.getFullYear ? curDate.getFullYear : curDate.getYear;
//Opera 7, Opera 6 Mac/Linux, Konqueror and Safari's security means that you cannot write to about:blank as it is counted as a different domain
//Escape does not recognise about:blank (it uses its own, but it occasionally makes the popup go blank) but it does understand ''
var opOrEscape = window.opera || ( document.layers && !navigator.mimeTypes['*'] ) || navigator.vendor == 'KDE' || ( document.childNodes && !document.all && !navigator.taintEnabled ) || ( window.ScriptEngine && ScriptEngine() == 'JScript' && navigator.platform == 'Win32' && window.ActiveXObject && !navigator.__ice_version );

function ConvDate(input,disp,hidden) {
	//accept a manually entered date in any format, and convert it to standard date format for both the display and hidden fields.
	var indate=parseDate(input,true);
	if(disp) {disp.value=indate?formatDate(indate,'dd-NNN-yyyy'):"";}
	if(hidden) {hidden.value=indate?formatDate(indate,'yyyy-MM-dd'):"";}
}

function datePickerReturn(Day,Month,Year) {
	//this function receives the picked date, and updates the visible and hidden fields to reflect it..
	var dMonth=((Month<10)?'0':'')+Month;	//leading zeros on the day and month if necessary.
	var dDay=((Day<10)?'0':'')+Day;
	window.pickeddatevalue.value = Day+'-'+mnthsShort[Month]+'-'+Year;	//visible field, shown in dd-MMM-yyyy format.
	window.pickeddatehidden.value = Year+'-'+dMonth+'-'+dDay;	//hidden field, stored in MySQL date format.
}

function openCalendar(e) {
	var sX = 0, sY = 0; if( !e ) { e = window.event; }
	if( e && ( e.screenX || e.screenY ) && screen.availWidth ) { sX = e.screenX; sY = e.screenY; }
	if( sX > screen.availWidth - 271 ) { sX = screen.availWidth - 271; }
	if( sY > screen.availHeight - 308 ) { sY = screen.availHeight - 308; }
	doReDraw(sX,sY);
}

function MWJ_dropYear() { curDate.setYear( curDate.getTheYear() - 1 ); doReDraw(); }
function MWJ_raiseYear() { curDate.setYear( curDate.getTheYear() + 1 ); doReDraw(); }
function MWJ_dropMonth() { if( curDate.getMonth() ) { curDate.setMonth( curDate.getMonth() - 1 ); } else { curDate.setMonth(11); curDate.setYear( curDate.getTheYear() - 1 ); } doReDraw(); }
function MWJ_raiseMonth() { if( curDate.getMonth() < 11 ) { curDate.setMonth( curDate.getMonth() + 1 ); } else { curDate.setMonth(0); curDate.setYear( curDate.getTheYear() + 1 ); } doReDraw(); }
function resetDate() { curDate.setTime((new Date()).getTime()); doReDraw(); }

function doReDraw(sX,sY) {

	var theContent = 
		'<html><head><title>Date picker</title><style type="text/css"><!--\n'+
		'td, th { font-family: verdana,arial,tahoma,helvetica; font-size:10px; }\n'+
		'a { text-decoration: none; padding:1px; display: block; width: 100%; font-weight: bold; }\n'+
		'a:hover { padding:0px; border:solid black 1px; background-color: #99ff99; }'+
		'.yearbutton {text-align:center; cursor:hand; cursor:pointer; margin:1px; width:35px; border:outset black 1px; background-color:#BBBBBB;}\n'+
		'.gonow {cursor:hand; cursor:pointer; color:#FFFFFF;}\n'+
		'.hdr {width:100%;}\n.hdr td {background-color:#323c76;}\n'+
		'.wkdy th {background-color:#6ab49f;}\n.calday td {text-align:center;}--></style>\n'+
		'<script>var CommsErr="Error:\\nCould not communicate with parent window.";\nfunction cfn(fn){if(window.opener && window.opener[fn]){window.opener[fn]();}else{window.alert(CommsErr);}}</script></head>'+
		'<body bgcolor="#bfbfbf" text="#ffffff" link="#00007f" alink="#00007f" vlink="#00007f">'+
		'<form onsubmit="return false;"><table style="border:solid black 1px;" cellpadding="1" cellspacing="1" width="233">'+
		'<tr><td bgcolor="#ffffff" colspan="7"><table class="hdr" cellpadding="1" cellspacing="1">'+
		'<tr><td style="width:39px;"><div onclick="cfn(\'MWJ_dropYear\');" class="yearbutton">&lt;&lt;</div></td><td bgcolor="#323c76" align="center"><b>'+curDate.getTheYear()+'</b></td>'+
		    '<td style="width:39px;" align="right"><div class="yearbutton" onclick="cfn(\'MWJ_raiseYear\');">&gt;&gt;</div></td></tr>'+
		'<tr><td style="width:39px;"><div onclick="cfn(\'MWJ_dropMonth\');" class="yearbutton">&lt;&lt;</div></td><td bgcolor="#323c76" align="center"><b>'+mnthsLong[curDate.getMonth()]+'</b> '+
		    '<font size="-2">[<span onclick="cfn(\'resetDate\');" class="gonow">Go to now</span>]</font></td>'+
		    '<td style="width:39px;" align="right"><div class="yearbutton" onclick="cfn(\'MWJ_raiseMonth\');">&gt;&gt;</div></td></tr>'+
		'</table></td></tr>'+
		'<tr class="wkdy"><th>Sun</th><th>Mon</th><th>Tue</th><th>Wed</th><th>Thu</th><th>Fri</th><th>Sat</th></tr>'
	;
	for( var x = 1; x <= [31,((!( curDate.getTheYear() % 4 ) && ( ( curDate.getTheYear() % 100 ) || !( curDate.getTheYear() % 400 ) ))?29:28),31,30,31,30,31,31,30,31,30,31][curDate.getMonth()]; x++ ) {
		curDate.setDate(x);
		if( x == 1 && curDate.getDay() ) { theContent += '<tr><td colspan="'+curDate.getDay()+'"></td>'; }
		theContent += ( ( !curDate.getDay() ) ? '<tr class="calday">' : '' ) + '<td bgcolor="#'+((curDate.getMonth()==(new Date()).getMonth()&&curDate.getYear()==(new Date()).getYear()&&x==(new Date()).getDate())?'ffbbdd':((!curDate.getDay()||curDate.getDay()==6)?'ffffbb':'ffffff'))+'"><a href="javascript:if( window.opener && window.opener.datePickerReturn ) { void(window.opener.setTimeout(\'datePickerReturn('+x+','+(curDate.getMonth()+1)+','+curDate.getTheYear()+');\',1)); window.close(); } else { window.alert(CommsErr); }">'+x+'</a></td>';
	} curDate.setDate(1);
	theContent += '</table></form></body></html>';
	var oDoc = window.open( ( opOrEscape ? '' : 'about:blank' ), 'MWJ_TOFR', 'width=259,height=277'+(sY?(',top='+sY):'')+(sX?(',left='+sX):'')+',resizable=1,location=0,menubar=0,scrollbars=0,status=0,toolbar=0' );
	oDoc.document.open(); oDoc.document.write(theContent); oDoc.document.close(); window.MWJwinStore = oDoc;
	//these must be done after open-write-close or the window cannot be written to in IE4 Mac
	if( oDoc.focus ) { oDoc.focus(); } if( ( sX || sY ) && oDoc.moveTo ) { oDoc.moveTo(sX,sY); }
}

if( !window.onunload ) { window.onunload = function () { if( window.MWJwinStore && !window.MWJwinStore.closed ) { window.MWJwinStore.close(); } }; }

// ---------------------------------------------------------------

//a bunch of functions from http://www.mattkruse.com/javascript/date/
var MONTH_NAMES=new Array('January','February','March','April','May','June','July','August','September','October','November','December','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
var DAY_NAMES=new Array('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sun','Mon','Tue','Wed','Thu','Fri','Sat');

function parseDate(val) {
	val=val.replace(/^ +/,"");
	val=val.replace(/ +$/,"");
	val=val.replace(/ /g,"-");
        var preferEuro=(arguments.length==2)?arguments[1]:false;
        generalFormats=new Array('yyyy-M-d','MMM d, y','MMM d,y','y-MMM-d','d-MMM-y','MMM d');
        monthFirst=new Array('M/d/y','M-d-y','M.d.y','MMM-d','M/d','M-d');
        dateFirst =new Array('d/M/y','d-M-y','d.M.y','d-MMM','d/M','d-M');
        var checkList=new Array('generalFormats',preferEuro?'dateFirst':'monthFirst',preferEuro?'monthFirst':'dateFirst');
        var d=null;
        for (var i=0; i<checkList.length; i++) {
                var l=window[checkList[i]];
                for (var j=0; j<l.length; j++) {
                        d=getDateFromFormat(val,l[j]);
                        if (d!=0) { return new Date(d); }
                        }
                }
        return null;
}

function LZ(x) {return(x<0||x>9?"":"0")+x}

function isDate(val,format) {
        var date=getDateFromFormat(val,format);
        if (date==0) { return false; }
        return true;
}

function compareDates(date1,dateformat1,date2,dateformat2) {
        var d1=getDateFromFormat(date1,dateformat1);
        var d2=getDateFromFormat(date2,dateformat2);
        if (d1==0 || d2==0) {
                return -1;
                }
        else if (d1 > d2) {
                return 1;
                }
        return 0;
}

function formatDate(date,format) {
        format=format+"";
        var result="";
        var i_format=0;
        var c="";
        var token="";
        var y=date.getYear()+"";
        var M=date.getMonth()+1;
        var d=date.getDate();
        var E=date.getDay();
        var H=date.getHours();
        var m=date.getMinutes();
        var s=date.getSeconds();
        var yyyy,yy,MMM,MM,dd,hh,h,mm,ss,ampm,HH,H,KK,K,kk,k;
        // Convert real date parts into formatted versions
        var value=new Object();
        if (y.length < 4) {y=""+(y-0+1900);}
        value["y"]=""+y;
        value["yyyy"]=y;
        value["yy"]=y.substring(2,4);
        value["M"]=M;
        value["MM"]=LZ(M);
        value["MMM"]=MONTH_NAMES[M-1];
        value["NNN"]=MONTH_NAMES[M+11];
        value["d"]=d;
        value["dd"]=LZ(d);
        value["E"]=DAY_NAMES[E+7];
        value["EE"]=DAY_NAMES[E];
        value["H"]=H;
        value["HH"]=LZ(H);
        if (H==0){value["h"]=12;}
        else if (H>12){value["h"]=H-12;}
        else {value["h"]=H;}
        value["hh"]=LZ(value["h"]);
        if (H>11){value["K"]=H-12;} else {value["K"]=H;}
        value["k"]=H+1;
        value["KK"]=LZ(value["K"]);
        value["kk"]=LZ(value["k"]);
        if (H > 11) { value["a"]="PM"; }
        else { value["a"]="AM"; }
        value["m"]=m;
        value["mm"]=LZ(m);
        value["s"]=s;
        value["ss"]=LZ(s);
        while (i_format < format.length) {
                c=format.charAt(i_format);
                token="";
                while ((format.charAt(i_format)==c) && (i_format < format.length)) {
                        token += format.charAt(i_format++);
                        }
                if (value[token] != null) { result=result + value[token]; }
                else { result=result + token; }
                }
        return result;
}

function _isInteger(val) {
        var digits="1234567890";
        for (var i=0; i < val.length; i++) {
                if (digits.indexOf(val.charAt(i))==-1) { return false; }
                }
        return true;
}
function _getInt(str,i,minlength,maxlength) {
        for (var x=maxlength; x>=minlength; x--) {
                var token=str.substring(i,i+x);
                if (token.length < minlength) { return null; }
                if (_isInteger(token)) { return token; }
                }
        return null;
}

function getDateFromFormat(val,format) {
        val=val+"";
        format=format+"";
        var i_val=0;
        var i_format=0;
        var c="";
        var token="";
        var token2="";
        var x,y;
        var now=new Date();
        var year=now.getYear();
        var month=now.getMonth()+1;
        var date=1;
        var hh=now.getHours();
        var mm=now.getMinutes();
        var ss=now.getSeconds();
        var ampm="";
        
        while (i_format < format.length) {
                // Get next token from format string
                c=format.charAt(i_format);
                token="";
                while ((format.charAt(i_format)==c) && (i_format < format.length)) {
                        token += format.charAt(i_format++);
                        }
                // Extract contents of value based on format token
                if (token=="yyyy" || token=="yy" || token=="y") {
                        if (token=="yyyy") { x=4;y=4; }
                        if (token=="yy")   { x=2;y=2; }
                        if (token=="y")    { x=2;y=4; }
                        year=_getInt(val,i_val,x,y);
                        if (year==null) { return 0; }
                        i_val += year.length;
                        if (year.length==2) {
                                if (year > 70) { year=1900+(year-0); }
                                else { year=2000+(year-0); }
                                }
                        }
                else if (token=="MMM"||token=="NNN"){
                        month=0;
                        for (var i=0; i<MONTH_NAMES.length; i++) {
                                var month_name=MONTH_NAMES[i];
                                if (val.substring(i_val,i_val+month_name.length).toLowerCase()==month_name.toLowerCase()) {
                                        if (token=="MMM"||(token=="NNN"&&i>11)) {
                                                month=i+1;
                                                if (month>12) { month -= 12; }
                                                i_val += month_name.length;
                                                break;
                                                }
                                        }
                                }
                        if ((month < 1)||(month>12)){return 0;}
                        }
                else if (token=="EE"||token=="E"){
                        for (var i=0; i<DAY_NAMES.length; i++) {
                                var day_name=DAY_NAMES[i];
                                if (val.substring(i_val,i_val+day_name.length).toLowerCase()==day_name.toLowerCase()) {
                                        i_val += day_name.length;
                                        break;
                                        }
                                }
                        }
                else if (token=="MM"||token=="M") {
                        month=_getInt(val,i_val,token.length,2);
                        if(month==null||(month<1)||(month>12)){return 0;}
                        i_val+=month.length;}
                else if (token=="dd"||token=="d") {
                        date=_getInt(val,i_val,token.length,2);
                        if(date==null||(date<1)||(date>31)){return 0;}
                        i_val+=date.length;}
                else if (token=="hh"||token=="h") {
                        hh=_getInt(val,i_val,token.length,2);
                        if(hh==null||(hh<1)||(hh>12)){return 0;}
                        i_val+=hh.length;}
                else if (token=="HH"||token=="H") {
                        hh=_getInt(val,i_val,token.length,2);
                        if(hh==null||(hh<0)||(hh>23)){return 0;}
                        i_val+=hh.length;}
                else if (token=="KK"||token=="K") {
                        hh=_getInt(val,i_val,token.length,2);
                        if(hh==null||(hh<0)||(hh>11)){return 0;}
                        i_val+=hh.length;}
                else if (token=="kk"||token=="k") {
                        hh=_getInt(val,i_val,token.length,2);
                        if(hh==null||(hh<1)||(hh>24)){return 0;}
                        i_val+=hh.length;hh--;}
                else if (token=="mm"||token=="m") {
                        mm=_getInt(val,i_val,token.length,2);
                        if(mm==null||(mm<0)||(mm>59)){return 0;}
                        i_val+=mm.length;}
                else if (token=="ss"||token=="s") {
                        ss=_getInt(val,i_val,token.length,2);
                        if(ss==null||(ss<0)||(ss>59)){return 0;}
                        i_val+=ss.length;}
                else if (token=="a") {
                        if (val.substring(i_val,i_val+2).toLowerCase()=="am") {ampm="AM";}
                        else if (val.substring(i_val,i_val+2).toLowerCase()=="pm") {ampm="PM";}
                        else {return 0;}
                        i_val+=2;}
                else {
                        if (val.substring(i_val,i_val+token.length)!=token) {return 0;}
                        else {i_val+=token.length;}
                        }
                }
        // If there are any trailing characters left in the value, it doesn't match
        if (i_val != val.length) { return 0; }
        // Is date valid for month?
        if (month==2) {
                // Check for leap year
                if ( ( (year%4==0)&&(year%100 != 0) ) || (year%400==0) ) { // leap year
                        if (date > 29){ return 0; }
                        }
                else { if (date > 28) { return 0; } }
                }
        if ((month==4)||(month==6)||(month==9)||(month==11)) {
                if (date > 30) { return 0; }
                }
        // Correct hours value
        if (hh<12 && ampm=="PM") { hh=hh-0+12; }
        else if (hh>11 && ampm=="AM") { hh-=12; }
        var newdate=new Date(year,month-1,date,hh,mm,ss);
        return newdate.getTime();
}
//end of functions from http://www.mattkruse.com/javascript/date/
