//Primero personalizamos el objeto Date con los nombres de los meses y de los días de 
//la semana. Ademas se añade un método para obtener el nombre del día de la semana
Date.prototype.sMeses = new Array();
Date.prototype.sMeses[0] = 'Gener';
Date.prototype.sMeses[1] = 'Febrer';
Date.prototype.sMeses[2] = 'Març';
Date.prototype.sMeses[3] = 'Abril';
Date.prototype.sMeses[4] = 'Maig';
Date.prototype.sMeses[5] = 'Juny';
Date.prototype.sMeses[6] = 'Juliol';
Date.prototype.sMeses[7] = 'Agost';
Date.prototype.sMeses[8] = 'Setembre';
Date.prototype.sMeses[9] = 'Octubre';
Date.prototype.sMeses[10] = 'Novembre';
Date.prototype.sMeses[11] = 'Desembre';
Date.prototype.sDias = new Array('Dg','Dl','Dt', 'Dc', 'Dj', 'Dv', 'Ds');
Date.prototype.getsDia = getsDia;
festius = new Array();
pontd = new Array();
tenllac_act = "#";
var mesig;
var mesant;
var anyant;
var anyseg;
document.write('<map name="vmes"><area shape="rect" coords="0,0,8,13" alt="mes anterior" href="javascript:vermes(mesant,anyant)"><area shape="rect" coords="10,0,18,13" alt="mes següent" href="javascript:vermes(mesig,anyseg)" ></map>');

  
function getsDia()
{
var idia=this.getDay();
return this.sDias[idia];
}
/*======================================================================================
function:   festiu      retorna si el dia es festiu
Parametres: diaf: dia de l'any en format d/m/aaaa
return:     true en el cas de festiu
		    false en altre cas

=========================================================================================*/
function festiu(diaf) {
	for(c=0; c<festius.length; c++)
	{ 
		if (festius[c]== diaf) return true;
	}
	return false;
}

function pont(diaf) {
	for(c=0; c<pontd.length; c++)
	{ 
		if (pontd[c]== diaf) return true;
	}
	return false;
}
		
/*=====================================================================================
	FUNCTION:	dibujaTabla
	ARGS:		filas: filas de la tabla.
				cols: columnas de la tabla
				cab: título de la tabla.
				lugar: ID del bloque donde se escribirá la tabla
				idn: valor para el ID de la tabla 
	RETURN:		referencia al objeto tabla
	DESCRIP:	Crea y escribe un elemento TABLE en la página web
=====================================================================================*/
function dibujaTabla(filas,cols, cab, lugar, idn)
{
var cuerpo = document.getElementById(lugar);
var tabla, tituloTabla
var f, c, tFila, tCelda;
//Si esta tabla ya existe la elimina
tabla=document.getElementById(idn);
if (tabla) 
	cuerpo.removeChild(tabla);
tabla = document.createElement('TABLE');
tabla.id = idn;
tabla.border = 0;
tabla.align ="center";
var cuerpoTabla = document.createElement("TBODY");
if (cab+'' != '')
	{
		tabla.width = "100%";
		tabla.className = CSStitulo;
		tFila = document.createElement("TR");
		tCelda = document.createElement("TD");
      	textNode = document.createTextNode(cab);
      	tCelda.appendChild(textNode);
		tCelda.align="center";
		tFila.appendChild(tCelda);
		tCelda = document.createElement("TD");
		ia = document.createElement("IMG");
		ia.setAttribute("src","/pfw_files/tpl/imatges/derizq2.gif");
		ia.setAttribute("border","0");
		ia.setAttribute("useMap","#vmes");
		tCelda.appendChild(ia);
		tCelda.align="right";
		tFila.appendChild(tCelda);
		cuerpoTabla.appendChild(tFila);
	}
else
{	
for (f=0;f<filas;f++)
	{
	tFila = document.createElement("TR");
	for(c=0; c<cols; c++)
		{
		tCelda = document.createElement("TD");
		textVal='';
      	textNode = document.createTextNode(textVal);
      	tCelda.appendChild(textNode);
		tCelda.align="center";
		tFila.appendChild(tCelda);
		}
	cuerpoTabla.appendChild(tFila);
	}
}	
tabla.appendChild(cuerpoTabla)
cuerpo.appendChild(tabla);
return tabla;
}
/*=====================================================================================
	FUNCTION:	descrCelda
	ARGS:		tabla, indice de la celda, valor a escribir
				est, estil de la celda
				estdia, estil del dia
	RETURN:		nada
	DESCRIP:	Escribe valor en la celda ind de la tabla pasada como argumento
=====================================================================================*/
function escrCelda(tabla, ind, valor, est, enlac, titol, estdia)
{
var tCelda, textNode,tlink;
var Col = ind%7;
var	Fil = Math.floor(ind/7);
tCelda = tabla.rows[Fil].cells[Col];
tlink = document.createElement("a");
// aplicar l'estil al texte si es Netscape 
tlink.setAttribute('class',estdia);
textNode = document.createTextNode(valor);
//tCelda.appendChild(textNode);
tlink.appendChild(textNode);
tCelda.appendChild(tlink);
if (titol != null) tlink.setAttribute('title',titol);
if (enlac !=null && enlac !="") {
	tlink.setAttribute('href',enlac);
	// aplicar l'estil al texte si es Explorer
	tlink.setAttribute('className',estdia);}
if (est)
	tCelda.className = est;
}

/*=====================================================================================
	FUNCTION:	calendario
	ARGS:		ames: número del mes (1: Enero a 12 Diciembre)
				anio: número de año 
				ini: lógico:true escribe las dos primeras letras de los dias 
							false escribe los nombres completos
				lugar: ID del bloque en el que se escribirá la tabla
				tenlac: enllaç a la pàgina al clicà sobre el dia	
	RETURN:		nada
	DESCRIP:	Rellena la tabla con los días de semana y del mes.
=====================================================================================*/

function calendario(ames,anio, ini, lugar, idtabla, tenlac)
{
var d = new Date();
var dataactu = d.getDate()+"/"+(d.getMonth()+1)+"/"+d.getFullYear();
var fecha = new Date(ames+'/01/'+anio);
var diaSem = fecha.getDay();
var indDia, tCelda, textNode, mes, diasmes, numSem,labora,festi,tedies;
var mitabla;
var tndia, vnfes,tenllac, mesp, diap,estdia;
var inis = ini?2:''
mes = ames-1;
diasmes = 27;
//Calcula el número de días del mes
while (mes == fecha.getMonth())
	{
	diasmes++; 
	fecha = new Date((mes+1)+'/'+diasmes+'/'+anio);
	}
diasmes--;
//Determina el dia de la semana del primer día del mes.
if (diaSem == 0) diaSem = 7;
//Calcula el número de semanas o fracciones del mes
numSem = Math.ceil((diasmes+diaSem)/7+1);

//Dibuja la tabla con las filas adecuadas y el título.
tablatitol = dibujaTabla(1,2,fecha.sMeses[mes]+' '+anio,lugar,"tablatitol");
mitabla = dibujaTabla(numSem,7, "", lugar, idtabla);
labora = 0;
festi = 0;
tabla2 = dibujaTabla(1,1,"",lugar,"tabla2");
//Fila con los nombres de días de la semana
for (indDia=0; indDia < 7; indDia++)
	{
	if (indDia == 6)
		escrCelda(mitabla, indDia, fecha.sDias[0].substr(0,inis));
	else
		escrCelda(mitabla, indDia, fecha.sDias[indDia+1].substr(0,inis));
	}
mitabla.rows[0].className = CSSnombdias;
//Dias del mes
for (indDia = 0; indDia < diasmes; indDia++)
	{
	tndia = "";
	if (parseInt(mes) < 9 ) {mesp = '0'+(mes+1)} else mesp = mes+1;
	if (parseInt(indDia) < 9 ) {diap = '0' + (indDia+1)} else diap = indDia+1;
	vnfes = 'd'+diap+mesp;
	if (festiu(indDia+1+'/'+(mes+1)+'/'+anio)) {
		estdia = CSSfiesta;
		festi++;
		if (eval('typeof('+vnfes+') != "undefined"')) eval('tndia = '+vnfes);}
	else if ((indDia+diaSem) % 7 == 0) estdia = CSSfiesta
	else if ((indDia+diaSem) % 7 == 6) estdia = CSSdis
	else if (pont(indDia+1+'/'+(mes+1)+'/'+anio)) { estdia = CSSpont; labora++;}
	else {
	estdia = CSSnormal;
	labora++; }
	if (dataactu == ((indDia+1)+'/'+(mes+1)+'/'+anio)) 
		est = CSSdact; else est = estdia;
	vnfes = vnfes+anio;
	if (eval('typeof('+vnfes+') != "undefined"')) {
		if (tndia != "") tndia = tndia + "\n";
		eval('tndia = tndia+'+vnfes);}
	if (tenlac.indexOf('paramt')>=0) 
		tenllac = tenlac.replace('"paramt"','"'+ anio + mesp+diap+'"'); 
	else	
		tenllac = tenlac + anio + mesp + diap;
	escrCelda(mitabla, indDia+diaSem+6, indDia+1, est, tenllac, tndia, estdia);
	}
if (festi == 0 ) tedies = labora+" dies feiners."; 
else tedies = labora + " feiners"+" - "+festi+" festiu(s)";	
escrCelda(tabla2, 0,tedies,CSSnormal);
//if (festi > 0 ) escrCelda(tabla2, 0," - "+festi+" festiu(s)",CSSnormal);
}
/*==============================================================================
Aquesta funció crida a la funció calendario.
	parametres:
 		enlac - enllaç al clicà a sobre el dia en el format següent:
			nom de funció en la paginà que crida ó 
			vincle de pàgina   ha de contenir el caracter ? i la varible. \pagina\pag.htm?data
			
==============================================================================*/
function vermes(mes, anio, enlac)
{
if (enlac == null) enlac = tenllac_act;
else {
	if (enlac.indexOf('?')< 0) enlac = 'javascript:'+enlac+'("paramt")';
	tenllac_act = enlac;
}
anyant = anio;
anyseg = anio;
mesant = 12;
mesig = ((parseInt(mes)+12)%12)+1;
if (mes!=1) mesant = ((parseInt(mes)+11)%12);
if (mesant == 12) anyant = parseInt(anio)-1;
if (mesig == 1 ) anyseg = parseInt(anio)+1;
anio = parseInt(anio);
if (anio < 1980 || anio >2099) alert("límits excedits");
	else calendario(mes, anio, true, 'micalendario', 'tabla1', enlac);
}
//Algunas variables globales, para facilitar cambios
var CSSnombdias = "nombdias"
var CSSfiesta = "diafiesta"
var CSSnormal = "dianormal"
var CSStitulo = "caption"
var CSSdis = "dissabte"
var CSSpont = "dissabte"
var CSSdact = "diaactu"
/******************Nota:
Para que este código funcione correctamente deben existir disponibles una serie de estilos CSS, bien en la propia página o en un archivo linkado. Los estilos aquí usados son:
.diafiesta
	se usa para resaltar los domingos.
.dianormal
	para los días que no son domingos.
caption
	estilo del nombre del mnes en el calendario. 
.nombdias
	estilo del nombre de los días de semana
#micalendario
	estilo del bloque en el que se inserte el calendario. En el ejemplo es un bloque DIV 
	con posicionamiento absoluto. Este nombre corresponde al atributo ID de este elemento DIV

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