// JavaScript Document

function ZoekenSubmit(){
	Stap2Ajax(document.Formulier.Zoeken.value);
	return false;
}
function ActieControle(){
	var Foutmelding = '';
	submitOK='True';

	if (document.ActieFormulier.Actiecode.value.length==0){
		Foutmelding = 'U moet een actiecode invullen.';
		submitOK='False';
	}
	else{
		if (document.ActieFormulier.Actiecode.value!="song335tekst"){
			Foutmelding = 'De door u ingevulde actiecode is niet correcct.';	
			submitOK='False';	
		}
	}

	if (submitOK=='False'){
		alert(Foutmelding);
		return false;
	}
}
function InlogControle(){
	var Foutmelding = '';
	submitOK='True';

	if (document.InlogFormulier.Inlognaam.value.length==0){
		Foutmelding = Foutmelding + '- Login name.\n';
		document.InlogFormulier.Inlognaam.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.InlogFormulier.Inlognaam.style.border = '1px solid #000000';
	}
	if (document.InlogFormulier.Wachtwoord.value.length==0){
		Foutmelding = Foutmelding + '- Password.\n';
		document.InlogFormulier.Wachtwoord.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.InlogFormulier.Wachtwoord.style.border = '1px solid #000000';
	}

	if (submitOK=='False'){
		alert('De volgende velden zijn verplicht:\n' + Foutmelding);
		return false;
	}
}


function InlogControle_NL(){
	var Foutmelding = '';
	submitOK='True';

	if (document.InlogFormulier.Inlognaam.value.length==0){
		Foutmelding = Foutmelding + '- Inlognaam.\n';
		document.InlogFormulier.Inlognaam.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.InlogFormulier.Inlognaam.style.border = '1px solid #000000';
	}
	if (document.InlogFormulier.Wachtwoord.value.length==0){
		Foutmelding = Foutmelding + '- Wachtwoord.\n';
		document.InlogFormulier.Wachtwoord.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.InlogFormulier.Wachtwoord.style.border = '1px solid #000000';
	}

	if (submitOK=='False'){
		alert('De volgende velden zijn verplicht:\n' + Foutmelding);
		return false;
	}
}

function Controle(){
	var Foutmelding = '';
	submitOK='True';

	if (document.Formulier.Voornaam.value.length==0){
		Foutmelding = Foutmelding + '- First Name.\n';
		document.Formulier.Voornaam.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Voornaam.style.border = '1px solid #ff7407';
	}	
	if (document.Formulier.Achternaam.value.length==0){
		Foutmelding = Foutmelding + '- Last Name.\n';
		document.Formulier.Achternaam.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Achternaam.style.border = '1px solid #ff7407';
	}	
	if (document.Formulier.Email.value.length==0){
		Foutmelding = Foutmelding + '- Email Address.\n';
		document.Formulier.Email.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Email.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Telefoon.value.length==0){
		Foutmelding = Foutmelding + '- Phone.\n';
		document.Formulier.Telefoon.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Telefoon.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Adres.value.length==0){
		Foutmelding = Foutmelding + '- Street Address.\n';
		document.Formulier.Adres.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Adres.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Plaats.value.length==0){
		Foutmelding = Foutmelding + '- City.\n';
		document.Formulier.Plaats.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Plaats.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Postcode.value.length==0){
		Foutmelding = Foutmelding + '- Zip/Postal Code.\n';
		document.Formulier.Postcode.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Postcode.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Land.value.length==0){
		Foutmelding = Foutmelding + '- Country.\n';
		document.Formulier.Land.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Land.style.border = '1px solid #ff7407';
	}
	if (!document.Formulier.Akkoord.checked){
		Foutmelding = Foutmelding + '- You must agree to use the Lyricsshirt service in accordance with the Privacy Policy and the Terms of Servic.\n';
		submitOK='False';
	}	
	if (submitOK=='False'){
		alert('U dient de volgende velden verplicht in te vullen:\n' + Foutmelding);
		return false;
	}
}


function Controle_NL(){
	var Foutmelding = '';
	submitOK='True';

	if (document.Formulier.Voornaam.value.length==0){
		Foutmelding = Foutmelding + '- Voornaam.\n';
		document.Formulier.Voornaam.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Voornaam.style.border = '1px solid #ff7407';
	}	
	if (document.Formulier.Achternaam.value.length==0){
		Foutmelding = Foutmelding + '- Achternaam.\n';
		document.Formulier.Achternaam.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Achternaam.style.border = '1px solid #ff7407';
	}	
	if (document.Formulier.Email.value.length==0){
		Foutmelding = Foutmelding + '- Emailadres.\n';
		document.Formulier.Email.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Email.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Telefoon.value.length==0){
		Foutmelding = Foutmelding + '- Telefoonnummer.\n';
		document.Formulier.Telefoon.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Telefoon.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Adres.value.length==0){
		Foutmelding = Foutmelding + '- Straat.\n';
		document.Formulier.Adres.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Adres.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Plaats.value.length==0){
		Foutmelding = Foutmelding + '- Plaats.\n';
		document.Formulier.Plaats.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Plaats.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Postcode.value.length==0){
		Foutmelding = Foutmelding + '- Postcode\n';
		document.Formulier.Postcode.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Postcode.style.border = '1px solid #ff7407';
	}
	if (document.Formulier.Land.value.length==0){
		Foutmelding = Foutmelding + '- Land\n';
		document.Formulier.Land.style.border = '1px solid #ff0000';
		submitOK='False';
	}
	else{
		document.Formulier.Land.style.border = '1px solid #ff7407';
	}
	if (!document.Formulier.Akkoord.checked){
		Foutmelding = Foutmelding + '- U dient akkoord te gaan met onze algemene voorwaarden\n';
		submitOK='False';
	}	
	if (submitOK=='False'){
		alert('U dient de volgende velden verplicht in te vullen:\n' + Foutmelding);
		return false;
	}
}

function AjaxAntwoord(Antwoord,Tracker,Teller){	
	if(Tracker == "ShirtsOphalen"){
		document.getElementById("Shirt").innerHTML = Antwoord;
	}
	if(Tracker == "ResultaatOphalen"){
		document.getElementById("resultaat").innerHTML = Antwoord;
	}		
	if(Tracker == "Stap3Ophalen"){
		document.getElementById("Previeuw").innerHTML = Antwoord;
		Stap2Ajax(document.Formulier.Zoeken.value);
	}
	if(Tracker == "Stap4Ophalen"){
		document.getElementById("Order").innerHTML = Antwoord;
		Stap3Ajax(0,0,0,0,0,0);
	}
	if(Tracker == "Verwijderen"){
		document.getElementById("Order").innerHTML = Antwoord;
	}		
}
function AjaxStarten(TypeId, AnderePagina){
	var TypeId = TypeId;
	var AnderePagina = AnderePagina;
	var Teller = "";
	document.getElementById("Shirt").innerHTML = "Een ogenblik geduld a.u.b.";
	AjaxContact('http://www.lyricsshirt.com/aj_shirts.php?TypeId='+TypeId+'&AnderePagina='+AnderePagina,'get','ShirtsOphalen', Teller);
}
function Stap3Ajax(ShirtId, TypeId, LyricId, MaatId, KleurId, ZijdeId){
	var ShirtId = ShirtId;
	var TypeId = TypeId;
	var LyricId = LyricId;
	var MaatId = MaatId;
	var KleurId = KleurId;
	var ZijdeId = ZijdeId;
	var Teller = "";
	document.getElementById("Previeuw").innerHTML = "Een ogenblik geduld a.u.b.";
	AjaxContact('http://www.lyricsshirt.com/aj_stap3.php?TypeId='+TypeId+'&ShirtId='+ShirtId+'&LyricId='+LyricId+'&MaatId='+MaatId+'&KleurId='+KleurId+'&ZijdeId='+ZijdeId,'get','Stap3Ophalen', Teller);			
}
function Stap2Ajax(Zoekwoord){
	var Zoekwoord = Zoekwoord;
	var Teller = "";
	document.getElementById("resultaat").innerHTML = "Een ogenblik geduld a.u.b.";
	AjaxContact('http://www.lyricsshirt.com/aj_resultaat.php?Zoekwoord='+Zoekwoord+'&ShirtId='+document.getElementById('GekozenShirtId').value,'get','ResultaatOphalen', Teller);
}

function Stap4Ajax(ShirtId, TypeId, LyricId, MaatId, KleurId, ZijdeId){
	var ShirtId = ShirtId;
	var TypeId = TypeId;
	var LyricId = LyricId;
	var MaatId = MaatId;
	var KleurId = KleurId;
	var ZijdeId = ZijdeId;
	var Teller = "";
	document.getElementById("Order").innerHTML = "Een ogenblik geduld a.u.b.";
	AjaxContact('http://www.lyricsshirt.com/aj_stap4.php?TypeId='+TypeId+'&ShirtId='+ShirtId+'&LyricId='+LyricId+'&MaatId='+MaatId+'&KleurId='+KleurId+'&ZijdeId='+ZijdeId,'get','Stap4Ophalen', Teller);	
}

function VerwijderItem(DetailsId){
	var DetailsId = DetailsId;
	var Teller = "";
	if(confirm('Weet u zeker dat u dit item wilt verwijderen?')){
		document.getElementById("Order").innerHTML = "Een ogenblik geduld a.u.b.";
		AjaxContact('aj_verwijder.php?DetailsId='+DetailsId,'get','Verwijderen', Teller);			
	}
}

function shirt_preview(ShirtAfbeelding, LyricAfbeelding, TypeOmschrijving, ShirtOmschrijving, PrijsOmschrijving, MaatOmschrijving, LyricOmschrijving){
	var ShirtAfbeelding = ShirtAfbeelding;
	var LyricAfbeelding = LyricAfbeelding;
	var TypeOmschrijving = TypeOmschrijving;
	var ShirtOmschrijving = ShirtOmschrijving;
	var PrijsOmschrijving = PrijsOmschrijving;
	var MaatOmschrijving = MaatOmschrijving;
	var KleurOmschrijving = KleurOmschrijving;
	var ZijdeOmschrijving = ZijdeOmschrijving;
	var Maxhoogte = screen.height - 100;
	Nieuwscherm =window.open("http://www.lyricsshirt.com/Pages/shirt_preview.php?ShirtAfbeelding="+ShirtAfbeelding+"&LyricAfbeelding="+LyricAfbeelding+"&TypeOmschrijving="+TypeOmschrijving+"&ShirtOmschrijving="+ShirtOmschrijving+"&PrijsOmschrijving="+PrijsOmschrijving+"&MaatOmschrijving="+MaatOmschrijving+"&LyricOmschrijving="+LyricOmschrijving,"shirt_preview","toolbar=no,location=no,scrollbars=yes,status=no,menubar=no,resizable=no,width=950px,height="+Maxhoogte+"px");
	Nieuwscherm.focus();
	}
	
	
	
function viewFoto(URL){
	var URL = URL;
	var Maxbreedte = screen.width - 50;
	var Maxhoogte = screen.height - 100;
	Nieuwscherm =window.open("http://www.lyricsshirt.com/Pages/Foto_popup.php?Foto="+URL,"foto_up","toolbar=no,location=no,scrollbars=no,status=no,menubar=no,resizable=no,width="+Maxbreedte+"px,height="+Maxhoogte+"px");
	Nieuwscherm.focus();
}
function SizeFoto(){
	var VerhoudingOrigineel = eval(pic).width / eval(pic).height;
	var Maxbreedte = screen.width - 20;
	var Maxhoogte = screen.height - 20;

	if(Maxbreedte<eval(pic).width){
		eval(pic).width = Maxbreedte;
	}
	if(Maxhoogte<eval(pic).height){
		eval(pic).height = Maxhoogte;
		eval(pic).width = (Maxhoogte*VerhoudingOrigineel);
	}

	var PositieLinks = (screen.width-eval(pic).width+28)/2;
	var PositieBoven = (screen.height-eval(pic).height+50)/2;

	window.moveTo(PositieLinks, PositieBoven);
	window.resizeTo(eval(pic).width+28, eval(pic).height+88);
	window.moveTo(PositieLinks, PositieBoven);

}


function CheckDatumVeld(Veld){
	var Veld = Veld;
	if(!isDate(Veld.value,"dd-mm-yyyy")){
		alert("U dient een geldige datum in te voeren.");
		Veld.value = "";
		Veld.focus();
		return false;
	}
	else{
		return true;
	}
}

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 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();
}

function parseDate(val) {
	var preferEuro=(arguments.length==2)?arguments[1]:false;
	generalFormats=new Array('y-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;
}
// Title: Tigra Calendar
// URL: http://www.softcomplex.com/products/tigra_calendar/
// Version: 3.3 (European date format)
// Date: 09/01/2005 (mm/dd/yyyy)
// Note: Permission given to use this script in ANY kind of applications if
//    header lines are left unchanged.
// Note: Script consists of two files: calendar?.js and calendar.html

// if two digit year input dates after this year considered 20 century.
var NUM_CENTYEAR = 30;
// is time input control required by default
var BUL_TIMECOMPONENT = false;
// are year scrolling buttons required by default
var BUL_YEARSCROLL = true;

var calendars = [];
var RE_NUM = /^\-?\d+$/;

function calendar1(obj_target) {

	// assigning methods
	this.gen_date = cal_gen_date1;
	this.gen_time = cal_gen_time1;
	this.gen_tsmp = cal_gen_tsmp1;
	this.prs_date = cal_prs_date1;
	this.prs_time = cal_prs_time1;
	this.prs_tsmp = cal_prs_tsmp1;
	this.popup    = cal_popup1;

	// validate input parameters
	if (!obj_target)
		return cal_error("Error calling the calendar: no target control specified");
	if (obj_target.value == null)
		return cal_error("Error calling the calendar: parameter specified is not valid target control");
	this.target = obj_target;
	this.time_comp = BUL_TIMECOMPONENT;
	this.year_scroll = BUL_YEARSCROLL;
	
	// register in global collections
	this.id = calendars.length;
	calendars[this.id] = this;
}

function cal_popup1 (str_datetime) {
	if (str_datetime) {
		this.dt_current = this.prs_tsmp(str_datetime);
	}
	else {
		this.dt_current = this.prs_tsmp(this.target.value);
		this.dt_selected = this.dt_current;
	}
	if (!this.dt_current) return;

	var obj_calwindow = window.open(
		'http://www.lyricsshirt.com/Publisher/Kalender/calendar.html?datetime=' + this.dt_current.valueOf()+ '&id=' + this.id,
		'Calendar', 'width=200,height='+(this.time_comp ? 215 : 190)+
		',status=no,resizable=no,top=200,left=200,dependent=yes,alwaysRaised=yes'
	);
	obj_calwindow.opener = window;
	obj_calwindow.focus();
}

// timestamp generating function
function cal_gen_tsmp1 (dt_datetime) {
	return(this.gen_date(dt_datetime) + ' ' + this.gen_time(dt_datetime));
}

// date generating function
function cal_gen_date1 (dt_datetime) {
	return (
		(dt_datetime.getDate() < 10 ? '0' : '') + dt_datetime.getDate() + "-"
		+ (dt_datetime.getMonth() < 9 ? '0' : '') + (dt_datetime.getMonth() + 1) + "-"
		+ dt_datetime.getFullYear()
	);
}
// time generating function
function cal_gen_time1 (dt_datetime) {
	return (
		(dt_datetime.getHours() < 10 ? '0' : '') + dt_datetime.getHours() + ":"
		+ (dt_datetime.getMinutes() < 10 ? '0' : '') + (dt_datetime.getMinutes()) + ":"
		+ (dt_datetime.getSeconds() < 10 ? '0' : '') + (dt_datetime.getSeconds())
	);
}

// timestamp parsing function
function cal_prs_tsmp1 (str_datetime) {
	// if no parameter specified return current timestamp
	if (!str_datetime)
		return (new Date());

	// if positive integer treat as milliseconds from epoch
	if (RE_NUM.exec(str_datetime))
		return new Date(str_datetime);
		
	// else treat as date in string format
	var arr_datetime = str_datetime.split(' ');
	return this.prs_time(arr_datetime[1], this.prs_date(arr_datetime[0]));
}

// date parsing function
function cal_prs_date1 (str_date) {

	var arr_date = str_date.split('-');

	if (arr_date.length != 3) return cal_error ("Invalid date format: '" + str_date + "'.\nFormat accepted is dd-mm-yyyy.");
	if (!arr_date[0]) return cal_error ("Invalid date format: '" + str_date + "'.\nNo day of month value can be found.");
	if (!RE_NUM.exec(arr_date[0])) return cal_error ("Invalid day of month value: '" + arr_date[0] + "'.\nAllowed values are unsigned integers.");
	if (!arr_date[1]) return cal_error ("Invalid date format: '" + str_date + "'.\nNo month value can be found.");
	if (!RE_NUM.exec(arr_date[1])) return cal_error ("Invalid month value: '" + arr_date[1] + "'.\nAllowed values are unsigned integers.");
	if (!arr_date[2]) return cal_error ("Invalid date format: '" + str_date + "'.\nNo year value can be found.");
	if (!RE_NUM.exec(arr_date[2])) return cal_error ("Invalid year value: '" + arr_date[2] + "'.\nAllowed values are unsigned integers.");

	var dt_date = new Date();
	dt_date.setDate(1);

	if (arr_date[1] < 1 || arr_date[1] > 12) return cal_error ("Invalid month value: '" + arr_date[1] + "'.\nAllowed range is 01-12.");
	dt_date.setMonth(arr_date[1]-1);
	 
	if (arr_date[2] < 100) arr_date[2] = Number(arr_date[2]) + (arr_date[2] < NUM_CENTYEAR ? 2000 : 1900);
	dt_date.setFullYear(arr_date[2]);

	var dt_numdays = new Date(arr_date[2], arr_date[1], 0);
	dt_date.setDate(arr_date[0]);
	if (dt_date.getMonth() != (arr_date[1]-1)) return cal_error ("Invalid day of month value: '" + arr_date[0] + "'.\nAllowed range is 01-"+dt_numdays.getDate()+".");

	return (dt_date)
}

// time parsing function
function cal_prs_time1 (str_time, dt_date) {

	if (!dt_date) return null;
	var arr_time = String(str_time ? str_time : '').split(':');

	if (!arr_time[0]) dt_date.setHours(0);
	else if (RE_NUM.exec(arr_time[0]))
		if (arr_time[0] < 24) dt_date.setHours(arr_time[0]);
		else return cal_error ("Invalid hours value: '" + arr_time[0] + "'.\nAllowed range is 00-23.");
	else return cal_error ("Invalid hours value: '" + arr_time[0] + "'.\nAllowed values are unsigned integers.");
	
	if (!arr_time[1]) dt_date.setMinutes(0);
	else if (RE_NUM.exec(arr_time[1]))
		if (arr_time[1] < 60) dt_date.setMinutes(arr_time[1]);
		else return cal_error ("Invalid minutes value: '" + arr_time[1] + "'.\nAllowed range is 00-59.");
	else return cal_error ("Invalid minutes value: '" + arr_time[1] + "'.\nAllowed values are unsigned integers.");

	if (!arr_time[2]) dt_date.setSeconds(0);
	else if (RE_NUM.exec(arr_time[2]))
		if (arr_time[2] < 60) dt_date.setSeconds(arr_time[2]);
		else return cal_error ("Invalid seconds value: '" + arr_time[2] + "'.\nAllowed range is 00-59.");
	else return cal_error ("Invalid seconds value: '" + arr_time[2] + "'.\nAllowed values are unsigned integers.");

	dt_date.setMilliseconds(0);
	return dt_date;
}

function cal_error (str_message) {
	alert (str_message);
	return null;
}