// Event Calendar
// copyright Stephen Chapman, 10th June 2006, 30th October 2006
var tb = 't'; // top or bottom (t or b)
var headbg = '#F85F00'; // table heading background colour
var todaybg = '#F85F00'; // current selected date background colour
var textclr = '#FFFFFF'; // text colour
var linkclr = '#FFFFFF'; // link text colour
var noMessage = 'No event messages to display for today'; // message to display when no entry in array
var qs = new Querystring();
var fechaactual = new Date();
var fechaseleccionado = qs.get("fecha");
if (typeof(messeleccionado) == "undefined" || typeof(anoseleccionado) == "undefined")
{
if (fechaseleccionado != null)
{
messeleccionado=parseInt(fechaseleccionado.substring(2,4),10)-1;
anoseleccionado=fechaseleccionado.substring(4,8);
if (messeleccionado == -1)
{
messeleccionado = 0;
}
}
else
{
messeleccionado=fechaactual.getMonth();
anoseleccionado=fechaactual.getFullYear();
}
}
//var arrFechas = new Array(); var x = 0;
// first 8 characters in ccyymmdd format for single date events
// first 8 characters in 0000mmdd format for every year events
//arrFechas[x++] = "20070315 Evento";
// permission is granted to use this javascript provided that the below code is not altered
var pageLoaded = 0; window.onload = function() {pageLoaded = 1;}
function loaded(i,f) {if (document.getElementById && document.getElementById(i) != null) f(); else if (!pageLoaded) setTimeout('loaded(\''+i+'\','+f+')',100);
}
function monthlength(month,year) {var dd = new Date(year, month, 0);return dd.getDate();}
var moy = ['Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre'];var today = new Date(anoseleccionado,messeleccionado,1);var selDate = today.getFullYear()+getmmdd(today.getMonth()+1,today.getDate());
function dispCal(yy,mm) { if (mm < 0 || mm > 12) {alert('El mes debe estar entre el 1 y el 12'); return false;} if (yy != 0 && (yy < 1901 || yy > 2100)) {alert('El año debe estar entre el 1900 y el 2101'); return false;} var dow = ['L','M','X','J','V','S','D']; var calendar = new Date(anoseleccionado,messeleccionado,1); var today = calendar.getDate(); calendar.setDate(1); if (yy > 1900) calendar.setFullYear(yy); if (mm > 0) calendar.setMonth(mm - 1); var yy = year = calendar.getFullYear(); var month = calendar.getMonth(); calendar.setDate(today); var weekday = calendar.getDay()-1; var daysInMonth = monthlength(month+1,year); var hilite_start = '| '; var td_start = ' | '; var cal = ''; for(dex=0; dex < 7; dex++) {cal += td_start + '' + dow[dex] + '<\/span><\/td>';} cal += '<\/tr>'; var day2 = today; for (dex = today; dex > 6; dex -=7) day2 = dex; weekday -= day2 - 1; while (weekday < 0) weekday += 7; for(dex=0; dex < weekday; dex++) cal += td_start + '| <\/td><\/tr><\/table><\/td>'; for(dex=1; dex <= daysInMonth; dex++) {if(weekday == 7) {cal += ' | '; weekday = 0;} /*if(selDate==year+getmmdd(month+1,dex)) cal += hilite_start +''+ dex + '<\/span><\/b><\/td>'; else*/ cal += td_start + '' + dex + '<\/td><\/tr><\/table><\/td>'; weekday += 1;} for(dex=weekday; dex < 7; dex++) cal += td_start + '| <\/td><\/tr><\/table><\/td>'; cal += '<\/tr><\/table><\/td><\/tr><\/table><\/div>';} else {cal += ' ';} cal += ''; return cal;}
function start() {var x = ''; var y = ''; if (tb == 't') y = x + dispCal(0,0); else y = dispCal(0,0) + x; document.getElementById('calendar').innerHTML = y; ev();}
//loaded('calendar',start);
function clickDate(day, month, year) {var ct = nextDate(year + getmmdd(month+1,day));if (ct == '') ct = nextDate('0000' + getmmdd(month+1,day));if (ct == '') return 'style="color:'+textclr+';background-color: #b9b9b9;text-align:center;"'; else return 'style="cursor:pointer;color:'+linkclr+';background-color: #3d71a3;border-color: #3d71a3;border-width: 1px;border-collapse: collapse;border-style: solid;text-align:center;" title="Mostrar todas las noticias del ' + day + ' de ' + moy[month] + ' de ' + year + '" onclick="location.href=\'agenda.aspx?fecha=' + Right(day+100,2) + Right(month+101,2) + year + '\'";return false;"';}function isDate(dayVal,monthVal,yearVal) {var ct = nextDate(yearVal + getmmdd(monthVal+1,dayVal));if (ct == '') ct = nextDate('0000' + getmmdd(monthVal+1,dayVal));if (ct == '') ct = ''; return false;}function nextDate(yymmdd) {var x = arrFechas.length;for (var i = 0; i < x; i++) {if (arrFechas[i].substr(0,8) == yymmdd) return arrFechas[i].substr(8);}return '';}function getmmdd(mm,dd) {return (mm > 9 ? '' + mm : '0' + mm) + (dd > 9 ? dd : '0' + dd);}
function ev() {var ct = nextDate(selDate);var ct = nextDate(selDate);if (ct == '') ct = nextDate('0000' + selDate.substr(4));if (ct == '') ct = noMessage;}
function Left(str, n){
if (n <= 0)
return "";
else if (n > String(str).length)
return str;
else
return String(str).substring(0,n);
}
function Right(str, n){
if (n <= 0)
return "";
else if (n > String(str).length)
return str;
else {
var iLen = String(str).length;
return String(str).substring(iLen, iLen - n);
}
}
|
|
|
| 
';}else{cal += '