var getCalendarioG = null;
var xmlCalendarioG = null;
var CualMesG=0;
var CualAnio=110; //2010

function CrearCalendarioGrande(QueMes){
	
	if (window.XMLHttpRequest){
		getCalendarioG=new XMLHttpRequest()
	}else if (window.ActiveXObject){
		getCalendarioG=new ActiveXObject("Microsoft.XMLHTTP")
	}
	if (getCalendarioG){
		var url="calendariogrande.xml";
		getCalendarioG.onreadystatechange=CambioDeEstadoG;
		getCalendarioG.open("GET",url,true);
		getCalendarioG.send(null);
		CualMesG=QueMes;
	}else{
		alert ("Tu explorador no soporta XMLHttpRequest");
	}
}

/**** Inicio Merce: para seleccionar el mes y el aņo sin depender del actual ***/
function CrearCalendarioGrande(QueMes,QueAnio){
	
	if (window.XMLHttpRequest){
		getCalendarioG=new XMLHttpRequest()
	}else if (window.ActiveXObject){
		getCalendarioG=new ActiveXObject("Microsoft.XMLHTTP")
	}
	if (getCalendarioG){
		var url="calendariogrande.xml";
		getCalendarioG.onreadystatechange=CambioDeEstadoG;
		getCalendarioG.open("GET",url,true);
		getCalendarioG.send(null);
		CualMesG=QueMes;
		CualAnio=QueAnio;
	}else{
		alert ("Tu explorador no soporta XMLHttpRequest");
	}
}



/** Fin Merce **/



function CambioDeEstadoG(){
	if (getCalendarioG.readyState == 4){
		xmlCalendarioG = getCalendarioG.responseXML;
		xmlCalendarioG = xmlCalendarioG.getElementsByTagName('cita');
		//setCalG(CualMesG);
		setCalG(CualMesG,CualAnio); // modificado Merce
	} 
} 

function bisiestoG(Anio) {
	if (Anio % 4 == 0)
	return true
	return false
}

function diasPorMesG(mes, Anio) {
var meses = new Array(12)
meses[1] = 31; // Enero
meses[2] = (((Anio % 4 == 0) && (Anio % 100 != 0)) || (Anio % 400 == 0)) ? 29 : 28
meses[3] = 31 // Marzo
meses[4] = 30 // Abril
meses[5] = 31 // Mayo
meses[6] = 30 // Junio
meses[7] = 31 // Julio
meses[8] = 31 // Agosto
meses[9] = 30 // Septiembre
meses[10] = 31 // Octubre
meses[11] = 30 // Noviembre
meses[12] = 31 // Diciembre
return meses[mes]
}

function getNombreDelMesG(mes) {
var meses = new Array(12)
meses[1] = "Enero"
meses[2] = "Febrero"
meses[3] = "Marzo"
meses[4] = "Abril"
meses[5] = "Mayo"
meses[6] = "Junio"
meses[7] = "Julio"
meses[8] = "Agosto"
meses[9] = "Septiembre"
meses[10] = "Octubre"
meses[11] = "Noviembre"
meses[12] = "Diciembre"
return meses[mes]
}

function setCalG(QueMes) {
	var now = new Date()
	var anio = now.getYear()
	if (anio < 1000) {anio+=1900}
	var mes = now.getMonth()+QueMes
	if (now.getMonth()+QueMes > 11) {mes-=12;anio++}
	if (now.getMonth()+QueMes < 0) {mes+=12;anio--}
	var fecha = now.getDate()
	var primerDia = new Date(anio, mes, 1)
	var primerDia2 = primerDia.getDay()
	if (primerDia2 == 0) primerDia2 = 7    //pq falla los meses que comienzan en domingo
	primerDia = null
	var dias = diasPorMesG(mes+1, anio)
	drawCalG(primerDia2, dias, fecha, mes+1, anio)
}

/*** inicio Merce ****/

function setCalG(QueMes, QueAnio) {
	var now = new Date()
	var anio = QueAnio
	if (anio < 1000) {anio+=1900}
	
	var mes = QueMes
	if (QueMes > 11) {mes-=12;anio++}
	if (QueMes < 0) {mes+=12;anio--}
	var fecha = now.getDate()
	var primerDia = new Date(anio, mes, 1)
	var primerDia2 = primerDia.getDay()
	if (primerDia2 == 0) primerDia2 = 7    //pq falla los meses que comienzan en domingo
	primerDia = null
	var dias = diasPorMesG(mes+1, anio)
	drawCalG(primerDia2, dias, fecha, mes+1, anio)
}

/** fin merce **/


function drawCalG(firstDay, lastDate, date, Mes, Anio) {
var now = new Date()
var codigo = ""
codigo += '<table class="tabla">'
codigo += '<tr><td class="encabezado" colspan="7"><table width="100%"><tr><td class="encabezado"><a href="#" onclick="CrearCalendarioGrande(--MesSeleccionadoG, AnioSeleccionadoG)">&lt;</a></td><td width="70%" class="encabezado">'
codigo += getNombreDelMesG(Mes) + ' ' + Anio 
codigo += '</td><td class="encabezado"><a href="#" onclick="CrearCalendarioGrande(++MesSeleccionadoG, AnioSeleccionadoG)">&gt;</a></td></tr></table></td></tr>'

var diasSemanaG = new Array(7)

diasSemanaG[0] = "<acronym title=\"Lunes\">Lunes</acronym>"
diasSemanaG[1] = "<acronym title=\"Martes\">Martes</acronym>"
diasSemanaG[2] = "<acronym title=\"Mi&eacute;rcoles\">Miercoles</acronym>"
diasSemanaG[3] = "<acronym title=\"Jueves\">Jueves</acronym>"
diasSemanaG[4] = "<acronym title=\"Viernes\">Viernes</acronym>"
diasSemanaG[5] = "<acronym title=\"S&aacute;bado\">Sabado</acronym>"
diasSemanaG[6] = "<acronym title=\"Domingo\">Domingo</acronym>"

codigo += '<tr>'
for (var dayNum = 0; dayNum < 7; ++dayNum) {
codigo += '<td class="celdaDiaSemana">' + diasSemanaG[dayNum] + '</td>' 
}
codigo += '</tr>'

var cDia = 1
var curCell = 1

for (var row = 1; row <= Math.ceil((lastDate + firstDay - 1) / 7); ++row) {
codigo += '<tr>'
for (var col = 1; col <= 7; ++col) {
if (cDia > lastDate)
break
if (curCell < firstDay) {
codigo += '<td></td>';
curCell++
} else {
var textoCelda = '<table width="100%"><tr style="background-color:#ddeeff; text-align:center; font-size:9px;"><td>'+cDia+'</td></tr><tr><td></td></tr></table>';

if (cDia == date && Mes == now.getMonth()+1) {
	var textoCelda = '<table width="100%"><tr style="background-color:#0066cc; color:#ffffff; text-align:center; font-size:9px;"><td>'+cDia+'</td></tr><tr><td></td></tr></table>';

}
var textoTd = '<td class="celda" valign="top">'

for (i=0;i<xmlCalendarioG.length;i++){
	var eventos = xmlCalendarioG[i].getElementsByTagName('evento');

	var fecha = xmlCalendarioG[i].getAttribute('fecha');
	
	var fecha2 = cDia+"-"+Mes+"-"+Anio;
	var contenidoCelda = "";

	
	if (fecha2 == fecha){
	
		var nombres="";
	
		for(j=0;j<eventos.length;j++)
		{
			var urlevento = eventos[j].getAttribute('urlevento');
			var tipo = eventos[j].getAttribute('tipo');
			var eventonombre = eventos[j].getAttribute('nombre');
			nombres += '<a href="http://www.ciccp.es/imgweb/caminos_clm/default.asp?indice2='+urlevento+'&dem=21" title="'+eventonombre+'"><img src="images/'+tipo+'.jpg" border="0" vspace="2" hspace="2" width="15px" height="15px"></a>';
			
		}

		var titulo = xmlCalendarioG[i].getAttribute('titulo');

		var url = xmlCalendarioG[i].getAttribute('url');
		textoCelda = '<table width="100%"><tr style="background-color:#FF9933; text-align:center; font-size:9px;"><td><a href="http://www.ciccp.es/imgweb/caminos_clm/default.asp?indice2='+url+'&dem=21" class="diacita" title="'+titulo+'">' + cDia + '</a></td></tr><tr><td>'+nombres+'<br></td></tr></table>'
		textoTd = '<td class="celdacita" valign="top">'
		
	}
	
	
}

var now = new Date();
if (cDia == date && Mes == now.getMonth()+1) {
textoTd = '<td class="hoy" valign="top">'
}

codigo += textoTd + textoCelda + contenidoCelda +'</td>'
cDia++
}
}
codigo += '</tr>'
}

codigo += '</table>'
document.getElementById("boxcalendariogrande").innerHTML=codigo;
}