/*Javascript name: My Date Time Picker
Date created: 16-Nov-2003 23:19
Scripter: TengYong Ng
//Website: http://www.rainforestnet.com
//Copyright (c) 2003 TengYong Ng
//FileName: DateTimePicker.js
//Version: 1.5
//Contact: contact@rainforestnet.com
// Note: Permission given to use this script in ANY kind of applications if
//       header lines are left unchanged.

//Global variables*/
var winCal;
var dtToday=new Date();
var Cal;
var docCal;
var MonthName=["Janvier", "Février", "Mars", "Avril", "Mai", "Juin","Juillet","Août", "Septembre", "Octobre", "Novembre", "Décembre"];
var WeekDayName=["Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi"];	
var exDateTime;/*//Existing Date and Time

//Configurable parameters*/
var cnTop="315";//top coordinate of calendar window.
var cnLeft="560";//left coordinate of calendar window
var WindowTitle ="Naturotel";//Date Time Picker title.
var WeekChar=2;//number of character for week day. if 2 then Mo,Tu,We. if 3 then Mon,Tue,Wed.
var CellWidth=25;//Width of day cell.
var DateSeparator="/";//Date Separator, you can change it to "/" if you want.
var TimeMode=24;//default TimeMode value. 12 or 24
//////Couleur saison ///////
var HauteSaisonColor="#E39000";//Background color of HauteSaison.
var MoyenneSaisonColor="#FFDC2F";//Background color of MoyenneSaison.
var BasseSaisonColor="#FFF784";//Background color of BasseSaison.
///////////////////////////
var ShowLongMonth=true;//Show long month name in Calendar header. example: "January".
var ShowMonthYear=true;//Show Month and Year in Calendar header.
var MonthYearColor="#ffffcc";//Font Color of Month and Year in Calendar header.
var WeekHeadColor="#0099CC";//Background Color in Week header.
var SundayColor="white";//Background color of Sunday.
var SaturdayColor="white";//Background color of Saturday.
var WeekDayColor="white";//Background color of weekdays.
var FontColor="black";//color of font in Calendar day cell.
var TodayColor="#FFBD88";//Background color of today.
var SelDateColor="#FFFF99";//Backgrond color of selected date in textbox.
var YrSelColor="#ffffcc";//color of font of Year selector.
var MthSelColor="#cc0033";//color of font of Month selector if "MonthSelector" is "arrow"
var MonthSelector="dropdown";//Month selector can be "arrow" or "dropdown", case insensitive
var ThemeBg="/images/fondcal.jpg";//Background image of Calendar window.
var PrecedeZero=true;//Preceding zero of Date or Month. [true|false]
var a;
//end Configurable parameters
//end Global variable
function main(pCtrl,pFormat,pShowTime,pTimeMode,pScroller){
	winCal=window.open("","DateTimePicker","toolbar=0,status=0,menubar=0,fullscreen=no,scrollbars=1,width=200,height=275,resizable=1,top="+cnTop+",left="+cnLeft);
	docCal=winCal.document;
	winCal.focus();
//Lecture du fichier XML
			//Chargement du fichier XML(xml/calendrier.xml)
	var xhr;
	if (window.XMLHttpRequest)
	  {// code for IE7+, Firefox, Chrome, Opera, Safari
		xhr=new XMLHttpRequest();
	  }
	else
	  {// code for IE6, IE5
		xhr=new ActiveXObject("Microsoft.XMLHTTP");
	  }
	//var xhr = new XMLHttpRequest();
	xhr.onreadystatechange = function() {
	if (xhr.readyState == 4 && (xhr.status == 200 || xhr.status == 0)) {
	
	//alert("Fichier XML chargé");
	a = xhr.responseXML.documentElement;
	NewCal(pCtrl,pFormat,pShowTime,pTimeMode,pScroller);


	RenderCal();
	}
	};
	
	xhr.open('GET', './xml/calendrier.xml', true);
	xhr.send(null);
	//NewCal(pCtrl,pFormat,pShowTime,pTimeMode,pScroller)
}

function NewCal(pCtrl,pFormat,pShowTime,pTimeMode,pScroller)
{
//alert("fonction newcal");
	Cal=new Calendar(dtToday);
	if ((pShowTime!=null) && (pShowTime))
	{
		Cal.ShowTime=false;
		if ((pTimeMode!=null) &&((pTimeMode=='12')||(pTimeMode=='24')))
		{
			TimeMode=pTimeMode;
		}		
		}	
	if (pCtrl!=null)
		Cal.Ctrl=pCtrl;
	if (pFormat!=null)
		Cal.Format=pFormat.toUpperCase();
	if (pScroller!=null)
	{
		if (pScroller.toUpperCase()=="ARROW")
		{
			Cal.Scroller="ARROW";
		}
    }		
	
	exDateTime=document.getElementById(pCtrl).value;
	if (exDateTime!="")//Parse Date String
	{
		var Sp1;//Index of Date Separator 1
		var Sp2;//Index of Date Separator 2 
		var tSp1;//Index of Time Separator 1
		var tSp1;//Index of Time Separator 2
		var strMonth;
		var strDate;
		var strYear;
		var intMonth;
		var YearPattern;
		var strHour;
		var strMinute;
		var strSecond;
		var winHeight;
		//parse month
		Sp1=exDateTime.indexOf(DateSeparator,0)
		Sp2=exDateTime.indexOf(DateSeparator,(parseInt(Sp1)+1));
		
		if ((Cal.Format.toUpperCase()=="DDMMYYYY") || (Cal.Format.toUpperCase()=="DDMMMYYYY"))
		{
			strMonth=exDateTime.substring(Sp1+1,Sp2);
			strDate=exDateTime.substring(0,Sp1);
			strYear=exDateTime.substring(Sp2+1,Sp2+5);
		}
		else if ((Cal.Format.toUpperCase()=="MMDDYYYY") || (Cal.Format.toUpperCase()=="MMMDDYYYY"))
		{
			strMonth=exDateTime.substring(0,Sp1);
			strDate=exDateTime.substring(Sp1+1,Sp2);
			strYear=exDateTime.substring(Sp2+1,Sp2+5);

		}
		else if ((Cal.Format.toUpperCase()=="YYYYMMDD") || (Cal.Format.toUpperCase()=="YYYYMMMDD"))
		{
			strMonth=exDateTime.substring(Sp1+1,Sp2);
			strDate=exDateTime.substring(Sp2+1,Sp2+3);
			strYear=exDateTime.substring(0,Sp1);
		}

		if (isNaN(strMonth))
			intMonth=Cal.GetMonthIndex(strMonth);
		else
			intMonth=parseInt(strMonth,10)-1;	
		if ((parseInt(intMonth,10)>=0) && (parseInt(intMonth,10)<12))
			Cal.Month=intMonth;
		//end parse month
		//parse Date
		if ((parseInt(strDate,10)<=Cal.GetMonDays()) && (parseInt(strDate,10)>=1))
			Cal.Date=strDate;
		//end parse Date
		//parse year
		YearPattern=/^\d{4}$/;
		if (YearPattern.test(strYear))
			Cal.Year=parseInt(strYear,10);
		//end parse year
		//parse time
		
	}
	
}

function RenderCal()
{
	var vCalHeader;
	var vCalData;
	var vCalTime;
	var i;
	var j;
	var SelectStr;
	var vDayCount=0;
	var vFirstDay;
		
	docCal.open();
	docCal.writeln("<head><title>"+WindowTitle+"</title>");
	docCal.writeln("<script>var winMain=window.opener;</script>");//winMain is window that open calendar window.
	docCal.writeln("</head><body ")
	docCal.writeln("background='"+ThemeBg+"' link="+FontColor+" vlink="+FontColor+"><center><table border=0 ><tr><td height=100px valign='top' bgcolor='#8FA3AD'>");
	//docCal.writeln("<form name='Calendar'>");

	vCalHeader="<table  border=0 cellpadding=1 cellspacing=1 width='100%' bgcolor='#8FA3AD'align=\"center\" valign=center>\n";
	//Table for Month & Year Selector modifié ici vert
	vCalHeader+="<tr>\n<td colspan='7'><table border=0 width='100%' cellpadding=0 cellspacing=0 bgcolor='#8FA3AD'><tr>\n";

	//******************Month selector in dropdown list border=1 ***********************
	if (Cal.Scroller=="DROPDOWN") 
	{
		vCalHeader+="<td align='center'><select name=\"MonthSelector\" style=background-color:#8FA3AD;color:ffffcc;font-weight:bold onChange=\"javascript:winMain.Cal.SwitchMth(this.selectedIndex);winMain.RenderCal();\">\n";
		for (i=0;i<12;i++)   // Parcourir les mois un par un
		{
			if (i==Cal.Month)
				SelectStr="Selected";
			else
				SelectStr="";	
			vCalHeader+="<option "+SelectStr+" value >"+MonthName[i]+"\n";
		}
		vCalHeader+="</select></td>";
		//Year selector
		vCalHeader+="\n<td align='right'><a href=\"javascript:winMain.Cal.DecYear();winMain.RenderCal()\"><b><font color=\""+YrSelColor+"\"><</font></b></a><font face=\"Verdana\" color=\""+YrSelColor+"\" size=2><b> "+Cal.Year+" </b></font><a href=\"javascript:winMain.Cal.IncYear();winMain.RenderCal()\"><b><font color=\""+YrSelColor+"\">></font></b></a></font></td></tr></table></td>\n";	
		vCalHeader+="</tr>";
	}
	//******************End Month selector in dropdown list*********************
	//******************Month selector in arrow*********************************
	else if (Cal.Scroller=="ARROW")
	{
		vCalHeader+="<td align='center'><a href='javascript:winMain.Cal.DecYear();winMain.RenderCal();'>- </a></td>";//Year scroller (decrease 1 year)
		vCalHeader+="<td align='center'><a href='javascript:winMain.Cal.DecMonth();winMain.RenderCal();'>&lt;</a></td>";//Month scroller (decrease 1 month)
		vCalHeader+="<td align='center' width='70%'><font face='Verdana' size='2' color='"+YrSelColor+"'><b>"+Cal.GetMonthName(ShowLongMonth)+" "+Cal.Year+"</b></font></td>"//Month and Year
		vCalHeader+="<td align='center'><a href='javascript:winMain.Cal.IncMonth();winMain.RenderCal();'>&gt;</a></td>";//Month scroller (increase 1 month)
		vCalHeader+="<td align='center'><a href='javascript:winMain.Cal.IncYear();winMain.RenderCal();'>+</a></td>";//Year scroller (increase 1 year)
		vCalHeader+="</tr></table></td></tr>"
	}
    //******************End Month selector in arrow******************************
	//Calendar header shows Month and Year modifié (ici vert)
	if ((ShowMonthYear)&&(Cal.Scroller=="DROPDOWN"))
		vCalHeader+="<tr><td align='center' bgcolor='#8FA3AD' colspan='7'><font face='Verdana' size='2'  color='"+MonthYearColor+"'><b>"+Cal.GetMonthName(ShowLongMonth)+" "+Cal.Year+"</b></font></td></tr>\n";
	//Week day header
	vCalHeader+="<tr bgcolor="+WeekHeadColor+">";
	for (i=0;i<7;i++)
	{
		vCalHeader+="<td align='center'><font face='Verdana' size='2'>"+WeekDayName[i].substr(0,WeekChar)+"</font></td>";
	}
	vCalHeader+="</tr>";	
	docCal.write(vCalHeader);
	
	//Calendar detail
	CalDate=new Date(Cal.Year,Cal.Month);
	CalDate.setDate(1);
	vFirstDay=CalDate.getDay();
	vCalData="<tr>";
	for (i=0;i<vFirstDay;i++)
	{
		vCalData=vCalData+GenCell();
		vDayCount=vDayCount+1;
	}
	
	for (j=1;j<=Cal.GetMonDays();j++)
	//for (j=1;j<=20;j++)
			{
				var strCell;
				vDayCount=vDayCount+1;
				if ((j==dtToday.getDate())&&(Cal.Month==dtToday.getMonth())&&(Cal.Year==dtToday.getFullYear()))
					strCell=GenCell(j,true,TodayColor);//Highlight today's date
				else
				{
					var annee=a.getElementsByTagName("annee"+Cal.Year);
					if(annee.length==1){
						annee=annee[0];
						var tmp;
						switch ((Cal.Month)) {
							case 0: //Janvier
							tmp = annee.getElementsByTagName("janvier");
							break;
							case 1: //Fevrier
							var tmp = annee.getElementsByTagName("fevrier");
							break;
							case 2: //Mars
							var tmp = annee.getElementsByTagName("mars");
							break;
							case 3: //Avril
							var tmp = annee.getElementsByTagName("avril");
							break;
							case 4: //Mai
							var tmp = annee.getElementsByTagName("mai");
							break;
							case 5: //juin
							var tmp = annee.getElementsByTagName("juin");
							break;
							case 6: //juillet
							var tmp = annee.getElementsByTagName("juillet");
							break;
							case 7: //Aout
							var tmp = annee.getElementsByTagName("aout");
							break;
							case 8: //Septembre
							var tmp = annee.getElementsByTagName("septembre");
							break;
							case 9: //Octobre
							var tmp = annee.getElementsByTagName("octobre");
							break;
							case 10: //Novembre
							var tmp = annee.getElementsByTagName("novembre");
							break;
							case 11: //Decembre
							var tmp = annee.getElementsByTagName("decembre");
							break;
							default:
							break;
						}
					//alert("Taille tmp = "+tmp.length+"et j = "+j);
					tmp=tmp[0];
					if (navigator.appName=='Microsoft Internet Explorer'){
					//Pour ie	
						var compteur=0;
					}
					else{
						var compteur=1;
					}
					
					var tmp1=tmp.childNodes[compteur].attributes[0].value;
					var tmp2=tmp.childNodes[compteur].attributes[1].value;
					
					var trouve = 0;
					
					while(trouve==0){
						//Si erreur
						if(tmp.childNodes[compteur].attributes[0].value>j){
							trouve=1;
							saison="NA";
						}
						
						if((tmp.childNodes[compteur].attributes[0].value<=j&&tmp.childNodes[compteur].attributes[1].value>=j)){
							trouve=1;
						}
						else{
							if (navigator.appName=='Microsoft Internet Explorer'){
								//Pour ie	
								compteur++;
							}
							else{
								compteur=compteur+2;
							}
						}
					}
					
					if(!(saison=="NA")){
						var saison=tmp.childNodes[compteur].attributes[2].value;
					}
					
					if(saison=="basse"){
						strCell=GenCell(j,null,BasseSaisonColor);
					}
					else if(saison=="moyenne"){
						strCell=GenCell(j,null,MoyenneSaisonColor);
					}
					else if(saison=="haute"){
						strCell=GenCell(j,null,HauteSaisonColor);
					}
					else{
						strCell=GenCell(j,null,BasseSaisonColor);
					}
				}
				else{
					//Si saison n est pas entree dans XML
					strCell=GenCell(j,null,BasseSaisonColor);
				}
			}						
			vCalData=vCalData+strCell+"\n";
			if((vDayCount%7==0)&&(j<Cal.GetMonDays()))
				{
					vCalData=vCalData+"</tr>\n<tr>";
				}
			}
	
	
	

	docCal.writeln(vCalData);	
	docCal.writeln("<tr></tr>");
	docCal.writeln("<tr><td style='border-style:none;' align='center' bgcolor='#8FA3AD' colspan='5'><p style='font-family:Verdana;font-size:10px;color:#ffffcc;'>Haute saison</p></td><td colspan='1' border=\"1\" bgcolor=\""+HauteSaisonColor+"\"></td><td colspan='1' bgcolor='#8FA3AD'</td></tr>");
	docCal.writeln("<tr><td style='border-style:none;' align='center' bgcolor='#8FA3AD' colspan='5'><p style='font-family:Verdana;font-size:10px;color:#ffffcc;'>Moyenne saison</p></td><td colspan='1' border=\"1\" bgcolor=\""+MoyenneSaisonColor+"\"></td><td colspan='1' bgcolor='#8FA3AD'</td></tr>");
	docCal.writeln("<tr><td style='border-style:none;' align='center' bgcolor='#8FA3AD' colspan='5'><p style='font-family:Verdana;font-size:10px;color:#ffffcc;'>Basse saison</p><td colspan='1' border=\"1\" bgcolor=\""+BasseSaisonColor+"\"></td><td colspan='1' bgcolor='#8FA3AD'</td></tr>");
	docCal.writeln("</table></td></tr></table></center>");
	docCal.writeln("</body></html>");
	docCal.close();
	
}

function GenCell(pValue,pHighLight,pColor)//Generate table cell with value
{
	var PValue;
	var PCellStr;
	var vColor;
	var vHLstr1;//HighLight string
	var vHlstr2;
	var vTimeStr;
	
	if (pValue==null)
		PValue="";
	else
		PValue=pValue;
	
	if (pColor!=null)
		vColor="bgcolor=\""+pColor+"\"";
	else
		vColor="";	
	if ((pHighLight!=null)&&(pHighLight))
		{vHLstr1="color='red'><b>";vHLstr2="</b>";}
	else
		{vHLstr1=">";vHLstr2="";}	
	
	if (Cal.ShowTime)
	{
		vTimeStr="winMain.document.getElementById('"+Cal.Ctrl+"').value+=' '+"+"winMain.Cal.getShowHour()"+"+':'+"+"winMain.Cal.Minutes"+"+':'+"+"winMain.Cal.Seconds";
		if (TimeMode==12)
			vTimeStr+="+' '+winMain.Cal.AMorPM";
	}	
	else
		vTimeStr="";		
	PCellStr="<td "+vColor+" width="+CellWidth+" align='center'><font face='verdana' size='2'"+vHLstr1+"<a href=\"javascript:winMain.document.getElementById('"+Cal.Ctrl+"').value='"+Cal.FormatDate(PValue)+"';"+vTimeStr+";window.close();\">"+PValue+"</a>"+vHLstr2+"</font></td>";
	return PCellStr;
}

function Calendar(pDate,pCtrl)
{
	//Properties
	this.Date=pDate.getDate();//selected date
	this.Month=pDate.getMonth();//selected month number
	this.Year=pDate.getFullYear();//selected year in 4 digits
	this.Hours=pDate.getHours();	
	
	if (pDate.getMinutes()<10)
		this.Minutes="0"+pDate.getMinutes();
	else
		this.Minutes=pDate.getMinutes();
	
	if (pDate.getSeconds()<10)
		this.Seconds="0"+pDate.getSeconds();
	else		
		this.Seconds=pDate.getSeconds();
		
	this.MyWindow=winCal;
	this.Ctrl=pCtrl;
	this.Format="ddMMyyyy";
	this.Separator=DateSeparator;
	this.ShowTime=false;
	this.Scroller="DROPDOWN";
	if (pDate.getHours()<12)
		this.AMorPM="AM";
	else
		this.AMorPM="PM";	
}

function GetMonthIndex(shortMonthName)
{
	for (i=0;i<12;i++)
	{
		if (MonthName[i].substring(0,3).toUpperCase()==shortMonthName.toUpperCase())
		{	return i;}
	}
}
Calendar.prototype.GetMonthIndex=GetMonthIndex;

function IncYear()
{	Cal.Year++;}
Calendar.prototype.IncYear=IncYear;

function DecYear()
{	Cal.Year--;}
Calendar.prototype.DecYear=DecYear;

function IncMonth()
{	
	Cal.Month++;
	if (Cal.Month>=12)
	{
		Cal.Month=0;
		Cal.IncYear();
	}
}
Calendar.prototype.IncMonth=IncMonth;

function DecMonth()
{	
	Cal.Month--;
	if (Cal.Month<0)
	{
		Cal.Month=11;
		Cal.DecYear();
	}
}
Calendar.prototype.DecMonth=DecMonth;
	
function SwitchMth(intMth)
{	Cal.Month=intMth;}
Calendar.prototype.SwitchMth=SwitchMth;


function GetMonthName(IsLong)
{
	var Month=MonthName[this.Month];
	if (IsLong)
		return Month;
	else
		return Month.substr(0,3);
}
Calendar.prototype.GetMonthName=GetMonthName;

function GetMonDays()//Get number of days in a month
{
	var DaysInMonth=[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
	if (this.IsLeapYear())
	{
		DaysInMonth[1]=29;
	}	
	return DaysInMonth[this.Month];	
}
Calendar.prototype.GetMonDays=GetMonDays;

function IsLeapYear()
{
	if ((this.Year%4)==0)
	{
		if ((this.Year%100==0) && (this.Year%400)!=0)
		{
			return false;
		}
		else
		{
			return true;
		}
	}
	else
	{
		return false;
	}
}

Calendar.prototype.IsLeapYear=IsLeapYear;

function FormatDate(pDate)
{
	var MonthDigit=this.Month+1;
	if (PrecedeZero==true)
	{
		if (pDate<10)
			pDate="0"+pDate;
		if (MonthDigit<10)
			MonthDigit="0"+MonthDigit;
	}

	if (this.Format.toUpperCase()=="DDMMYYYY")
		return (pDate+DateSeparator+MonthDigit+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="DDMMMYYYY")
		return (pDate+DateSeparator+this.GetMonthName(false)+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="MMDDYYYY")
		return (MonthDigit+DateSeparator+pDate+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="MMMDDYYYY")
		return (this.GetMonthName(false)+DateSeparator+pDate+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="YYYYMMDD")
		return (this.Year+DateSeparator+MonthDigit+DateSeparator+pDate);
	else if (this.Format.toUpperCase()=="YYYYMMMDD")
		return (this.Year+DateSeparator+this.GetMonthName(false)+DateSeparator+pDate);	
	else					
		return (pDate+DateSeparator+(this.Month+1)+DateSeparator+this.Year);
}
Calendar.prototype.FormatDate=FormatDate;