//Funnet på nettet og modifisert,
//kan sette input-felt med angitt dato slik:
//<INPUT id="testdato" name="testdato" size=12 maxlength=12">
//
//<a href="javascript:NewCal('testdato','yyyymmdd')">
//<img src="js\cal.gif" border="0" alt="Kalender"></a>
//
//når du klikker på dato i kalender, legger denne seg i inputfelt og lukker kalender
//og kan dermed brukes mot databaser osv. som alternativ til å skrive inn dato
//det bør da legges inn en rutine som varsler dersom feil verdi eller format legges inn
//Standard nå: Iso-format YYYYMMDD, andre formater kan settes nedenfor.
//Reidar Kaarbø, tips@hvamenerpartiene.com
//sist rev. 25. okt 2009: workaround på bug som ga feil ukenummer bare i oktober


//Global variables
var winCal;
var dtToday=new Date();
var Cal;
var docCal;
var MonthName=["Januar", "Februar", "Mars", "April", "Mai", "Juni","Juli", 
	"August", "September", "Oktober", "November", "Desember&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"];
var WeekDayName=["Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag","Søndag"];	
var exDateTime;//Existing Date and Time

//Configurable parameters
var cnTop="200";//top coordinate of calendar window.
var cnLeft="500";//left coordinate of calendar window
var WindowTitle ="Velg ønsket dato : &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";//Date Time Picker title.
var WeekChar=3;//number of character for week day. if 2 then Mo,Tu,We. if 3 then Mon,Tue,Wed.
var CellWidth=40;//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 //not in use now

var ShowLongMonth=true;//Show long month name in Calendar header. example: "January".
var ShowMonthYear=true;//Show Month and Year in Calendar header.
var MonthYearColor="#cc0033";//Font Color of Month and Year in Calendar header.
var WeekHeadColor="#e6e6fa";//Background Color in Week header.
var SundayColor="#ff0000";//Background color of Sunday.
var SaturdayColor="#ffa500";//Background color of Saturday.
var WeekDayColor="white";//Background color of weekdays.
var FontColor="blue";//color of font in Calendar day cell.
var TodayColor="#FFFF00";//Background color of today.
var SelDateColor="#ffff00";//Backgrond color of selected date in textbox.
var YrSelColor="#cc0033";//color of font of Year selector.
var ThemeBg="";//Background image of Calendar window.


function FinnUkeNummer(aDate) 
{
	if (aDate == "") {
		var today = new Date();
	} else {
		var today = new Date(aDate);
	}
	
	// Get first day of year (January = 0)
	var jan1 = new Date(today.getFullYear(), 0, 1);

	// Calculate the number of weeks
	count = Math.floor((today.getTime()-jan1.getTime())/1000);
	Weeks = Math.floor(count/(60*60*24*7));

	// Adjust according to weekday
	if ((jan1.getDay() < 5) && (jan1.getDay() != 0)) {
		Weeks = Weeks + 1;
	}

	if ( ( today.getDay() < jan1.getDay() ) && (today.getDay() != 0) ) {
		Weeks = Weeks + 1;
	}

	if (today.getMonth() == 9) {   	//fucking bug somwhere give wrong week in oct.
		Weeks = Weeks + 1;	//so we add 1 week in october - and it works !!
	}
	

	return Weeks;
}


function NewCal(pCtrl,pFormat)
{
	Cal=new Calendar(dtToday);
	
	if (pCtrl!=null)
		Cal.Ctrl=pCtrl;

	if (pFormat!=null)
		Cal.Format=pFormat.toUpperCase();

	exDateTime=document.getElementById(pCtrl).value;
	exDateTime=""						// kalender affiseres ikke av valgt dato !!!
	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;
		//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);
		}
		else if ((Cal.Format.toUpperCase()=="MMDDYYYY") || (Cal.Format.toUpperCase()=="MMMDDYYYY"))
		{
			strMonth=exDateTime.substring(0,Sp1);
			strDate=exDateTime.substring(Sp1+1,Sp2);
		}

		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
		strYear=exDateTime.substring(Sp2+1,Sp2+5);
		//YearPattern=/^\d{4}$/;
		//if (YearPattern.test(strYear))
		//	Cal.Year=parseInt(strYear,10);
		//end parse year
		//parse time			
	}
	//winCal=window.open("","DateTimePicker","toolbar=0,status=0,menubar=0,location=0,titlebar=0,fullscreen=no,width=750,height=700,resizable=1,top="+cnTop+",left="+cnLeft);
	//winCal=window.open("","DateTimePicker","sFeatures,width=350,height=300,resizable=0,top="+cnTop+",left="+cnLeft);
	winCal=window.open("","DateTimePicker","sFeatures,width=350,height=300,resizable=1,top="+cnTop+",left="+cnLeft);
	winCal.focus();
	docCal=winCal.document;
	RenderCal();
}

function RenderCal()
{
	var vCalHeader;
	var vCalData;
	var vCalTime;
	var i;
	var j;
	var SelectStr;
	var vDayCount=0;
	var vFirstDay;

	docCal.open();
	docCal.write("<html><head><title>"+WindowTitle+"</title>");
	docCal.write("<script>var winMain=window.opener;</script>");
	docCal.write("</head><body background='"+ThemeBg+"' link="+FontColor+" vlink="+FontColor+"><form name='Calendar'>");
	docCal.write("<img src=\"js\\hmp.gif\">");
	vCalHeader="<table border=1 cellpadding=1 cellspacing=1 width='100%' align=\"center\" valign=\"top\">\n";
	
	//Month Selector
	vCalHeader+="<tr>\n<td colspan='8'><table border=0 width='100%' cellpadding=0 cellspacing=0><tr><td align='left'>\n";
	vCalHeader+="<select name=\"MonthSelector\" onChange=\"javascript:winMain.Cal.SwitchMth(this.selectedIndex);winMain.RenderCal();\">\n";
	for (i=0;i<12;i++)
	{
		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()\" style=\"text-decoration:none\"><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()\" style=\"text-decoration:none\"><b><font color=\""+YrSelColor+"\">></font></b></a></td></tr></table></td>\n";	
	vCalHeader+="</tr>";

	//Week day header
	vCalHeader+="<tr bgcolor="+WeekHeadColor+"><td width='40' align='center'><font face='Verdana' size='2'> Uke </TR>";


	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);
	

// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

	// KALENDER DETALJ:  HUSK SØNDAG ER 0, MANDAG ER 1 OSV.
	// ---------------------------------------------------

	CalDate=new Date(Cal.Year,Cal.Month);
	CalDate.setDate(1);
	
	vFirstDay=CalDate.getDay();
	ukenummer=FinnUkeNummer(CalDate)
	uketekst = ukenummer 

	if (uketekst  < 10) { uketekst = '0' + uketekst ; }
	if (uketekst  == '00') { uketekst = '  ' ; }

	if (vFirstDay==0)  // hvis søndag, gis denne 7
		vFirstDay=7;

	vCalData="<tr><TD align='center'><font face='Verdana' size='2'>"+uketekst+"</FONT></TD>";

	for (i=1;i<vFirstDay;i++)	
	{
		vCalData=vCalData+GenCell();
		vDayCount=vDayCount+1;			//var vDayCount=0 når funksjon begynner
	}
	for (j=1;j<=Cal.GetMonDays();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
		{
				if (vDayCount%7==6)
					strCell=GenCell(j,false,SaturdayColor);
				else if (vDayCount%7==0)
					strCell=GenCell(j,false,SundayColor);
				else
					strCell=GenCell(j,null,WeekDayColor);
		}						
		vCalData=vCalData+strCell;

		if((vDayCount%7==0)&&(j<Cal.GetMonDays()))
		{
			ukenummer = (ukenummer+1);
			uketekst = ukenummer 
			if (uketekst  < 10) { uketekst = '0' + uketekst ; }
			vCalData=vCalData+"</tr>\n<tr><TD align='center'><font face='Verdana' size='2'>"+uketekst+"</FONT></TD>";  //Denne kommer BARE hvis vi har en gyldig dato etter. Hvilken ?
		}
	}
	docCal.writeln(vCalData);	
	
	docCal.writeln("\n</table>");
	docCal.writeln("</form></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;
	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 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)
{

	if (this.Format.toUpperCase()=="DDMMYYYY")
		return (pDate+DateSeparator+(this.Month+1)+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 ((this.Month+1)+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")

		monthzero="";
		if ((this.Month+1) < 10)
			monthzero="0";

		datezero="";
		if ((pDate) < 10)
			datezero="0";

		return (this.Year+DateSeparator+monthzero+(this.Month+1)+DateSeparator+datezero+pDate);			
}
Calendar.prototype.FormatDate=FormatDate;	
