// Event Calendar
// copyright Stephen Chapman, 10th June 2006, 30th October 2006
var tb = 'b'; // top or bottom (t or b)
var todaybg = ' #ECEDED'; // current selected date background colour
var textclr = '#7B96A0'; // text colour
var linkclr = '#c04242'; // link text colour
var headbg= '#c04242';
var noMessage =  ''; // message to display when no entry in array
var nextEvent='Próximas actividades'
var dateFormat='1'
var dA = 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
//dA[x++] = "00000101 New Year";
//dA[x++] = "20080104 Torunn";
dA[x++] = "20080324 Aquasur", dA[x++] = "20080528 Shanghai International 2008 / 28 a 30 de Junio", dA[x++] = "20080601 XIII Symposium on Fish Nutrition & Feeding/ 1 a 5 de Junio", dA[x++] = "20080603 ACUI Galicia 2008/ 3 a 5 de Julio ", dA[x++] = "20080604 Seafood Rusia 2008 /4 a 6 de Junio", dA[x++] = "20080612 Vietfish 2008/ 12 a 14 de Junio", dA[x++] = "20080618 OWC- Conf. de Acuicultura Orgánica / 18 a 20 de Junio", dA[x++] = "20080627 PerúPesca del Pacífico / 27 a 28 de Junio", dA[x++] = "20080709 2008 Fish Health Section Meeting/ 9 a 12 de Julio ", dA[x++] = "20080803 Australasian Aquaculture 2008 / 3 a 6 de Agosto", dA[x++] = "20080804 32nd Annual Larval Fish Conf. /4 a 7 de Agosto", dA[x++] = "20080812 Nor Fishing 2008 /12 a 15 de Agosto", dA[x++] = "20080904 Seminario Internacional ISA / 4 a 5 de Septiembre", dA[x++] = "20080915 Aquaculture Europe/ 15 a 18 de Septiembre", dA[x++] = "20080925 Seminario Técnico de Skretting en XI Región (Pto Chacabuco)", dA[x++] = "20080929 AquaVision 2008/ 29 Septiembre a 1 de Octubre", dA[x++] = "20081002 Icelandic Fisheries Exhibition 2008/ 2 a 4 de Octubre", dA[x++] = "20081006 X Congreso Ecuatoriano de Acuicultura / 6 a 9 de Octubre", dA[x++] = "20081019 Agroalimentaria SIAL París / 19 a 23 de Octubre", dA[x++] = "20081020 5th World Fisheries Congress/ 20 al 24 de Octubre", dA[x++] = "20081028 Global Outlook for Aquaculture Leadership (Goal) 2008 en China", dA[x++] = "20081029 Expo Guadalajara/ 29 a 31 de Octubre 2008", dA[x++] = "20081104 China Fisheries & Seafood 2008/ 4 a 6 de Noviembre", dA[x++] = "20081112 II Conferencia de Agua Dulce /12 a 14 de Noviembre", dA[x++] = "20081203 North Atlantic Seafood Show (Noruega)/ 3 a 4 de marzo", dA[x++] = "20090107 II Congreso Nacional de Acuicultura-Temuco, Chile/ 7 al 9 de enero", dA[x++] = "20090201 Seafood Summit 2009 (California)/ 1 a 3 de febrero", dA[x++] = "20090215 Conferencia Aquaculture America (Seattle)/15 a 18 de febrero", dA[x++] = "20090305 I Expo Acuícola 2009-Callao, Perú/ 5 y 6 de marzo", dA[x++] = "20090315 The International Boston Seafood Show & Seafood Processing America-Boston, USA/ 15 al 17 de marzo", dA[x++] = "20090428 Seafood Processing Europe-Brussels, Belgium/ 28 al 30 de abril", dA[x++] = "20090525 Conferencia World Aquaculture 2009 (México)/ 25 a 29 de mayo", dA[x++] = "20090601 II Expo Acuicultura 2009-Buenos Aires, Argentina/ 1 al 30 de junio", dA[x++] = "20090616 Polfish, 10th International Fair of Fish Processing and Fish Products-Gdansk, Poland/ 16 al 18 de junio", dA[x++] = "20090701 Pescamar 2009-Ciudad de México, México/ 1 al 3 de julio", dA[x++] = "20090818 Feria Aquanor 2009 (Noruega), 18 a 21 de agosto", dA[x++] = "20091001 1er Congreso en Biotecnología Acuícola Ciencia-Empresa   ", dA[x++] = "20091029 Cumbre Iberoamerica de Inocuidad y Seguridad Alimentaria 2009", dA[x++] = "20091112 4º Versión Expo Pesca-Lima, Perú/ 12 al 14 de noviembre", dA[x++] = "20100118 X Reunión Bianual de Ictiología, Santiago, Chile", dA[x++] = "20100202 London Seafood Expo 2010, Londres, Reino Unido. ", dA[x++] = "20100221 12th Fish International, Bremen, Alemania", dA[x++] = "20100301 Aquaculture 2010, San Diego, California", dA[x++] = "20100302 IV Feria Internacional de Acuicultura de Galicia, Vilagarcía de Arousa, España", dA[x++] = "20100305 Aqua-Fisch, Alemania", dA[x++] = "20100420 III Congreso Global Food & Feed, Cancún, México", dA[x++] = "20100523 Australasian Aquaculture 2010, Hobart, Tasmania", dA[x++] = "20100607 AquaVision 2010, Open your Eyes, Stavanger, Noruega", dA[x++] = "20100609 Global Conference on Aquaculture 2010, Bangkok, Tailandia", dA[x++] = "20100817 Nor Fishing2010, Trondheim, Noruega", dA[x++] = "20101005 Aquaculture Europe2010, Porto, Portugal", dA[x++] = "20101020 AQUA SUR 2010, Puerto Montt, Chile", dA[x++] = "20101021 V Conferencia AQUA SUR 2010, Puerto Varas, Chile", dA[x++] = "20101110 5° Foro Internacional de Acuicultura, Sonora, México", dA[x++] = "20110131 Seafood Summit, Vancouver, Canadá/ 31enero-2 febrero", dA[x++] = "20110303 ExpoAcuícola 2011, Callao, Perú/ 3-5 de marzo", dA[x++] = "20110320 Boston International Seafood Show/ 20-22 de marzo", dA[x++] = "20110503 European Seafood Exhibition, Bruselas/ 3-5 de mayo", dA[x++] = "20110606 Was 2011 y Feria Internacional del Camarón, Natal, Brasil/ 6-10 de Junio", dA[x++] = "20110816 AquaNor 2011, Trondheim 16 a 19 de agosto", dA[x++] = "20110817 AquaNor 2011, Trondheim 16 a 19 de agosto", dA[x++] = "20110818 AquaNor 2011, Trondheim 16 a 19 de agosto", dA[x++] = "20110819 AquaNor 2011, Trondheim 16 a 19 de agosto", dA[x++] = "20110907 III Conferencia de Agua Dulce - Chile 2011", dA[x++] = "20110908 III Conferencia de Agua Dulce - Chile 2011", dA[x++] = "20110909 III Conferencia de Agua Dulce - Chile 2011", dA[x++] = "20111026 Pesca Sur; IV Feria Internacional de Pesca/ 26-29 de octubre", dA[x++] = "20111102 China Fisheries & Seafood Expo, China/ 2-4 de noviembre", dA[x++] = "20111110 Expo Pesca & Acui Perú/10-12 de Noviembre"
var dList = new Array(); var y = 0;
dList[y++] = ""
// 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();var selDate = today.getFullYear()+getmmdd(today.getMonth()+1,today.getDate());
function dispCal(yy,mm) {if (mm < 0 || mm > 12) {alert('month must be between 1 and 12'); return false;} if (yy != 0 && (yy < 1901 || yy > 2100)) {alert('year must be after 1900 and before 2101'); return false;} var dow = ['Lu','Mar','Mi','Jue','Vie','Sá','Do']; var calendar = new Date();  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) % 7;; var daysInMonth = monthlength(month+1,year); var hilite_start = '<td width="30" style="background:' + todaybg + '" align="center"><b>'; var td_start = '<td width="30" align="center">'; var cal = '<div id="cal"><div style="border:1pt solid #cccccc;height:150px;width:180px"><table border="0" cellspacing="0" cellpadding="2" align="center" class="events2"><tr><td colspan="7" style="background:' + headbg + '"><table border ="0" width="100%" class="calendarHeading"><tr><td align="left" ><b>' + moy[month]  + '</b></td><td align="right"><b> ' + year + '<\/b></td></tr></table><\/td><\/tr><tr>'; for(dex=0; dex < 7; dex++) {cal += td_start + dow[dex] + '</td>';} cal += '<\/tr><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>'; for(dex=1; dex <= daysInMonth; dex++) {if(weekday == 7) {cal += '</tr><tr>'; weekday = 0;} if(selDate==year+getmmdd(month+1,dex)) cal += hilite_start +'<span'+clickDate(dex,month,year) + '>'+ dex + '<\/span><\/b><\/td>'; else cal += td_start + '<span '+clickDate(dex,month,year) + '>' + dex + '<\/span><\/td>'; weekday += 1;} for(dex=weekday; dex < 7; dex++) cal += td_start + ' <\/td>';if (document.getElementById) {var mmb = month;  mm = month + 1; var yya = yyb = yy; if (mmb <1) {mmb += 12; yyb--;} var mma = month + 2; if (mma > 12) {mma -= 12; yya++;} var yb = yy -1; var ya = yy +1; cal += '<table border="0" cellspacing="0" cellpadding="2" width="177"><tr><td><a href="#" onclick="if (cala = dispCal('+yyb+','+mmb+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}"><img src="/internet/SkrettingChile/webInternet.nsf/pil_linkV.gif" border="0" ></a></td><td align="right"><a href="#" onclick="if (cala = dispCal('+yya+','+mma+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}"><img src="/internet/SkrettingChile/webInternet.nsf/pil_link.gif" border="0" ></a></td></tr></table><\/tr><\/table><\/div>';} else {cal += '<div> </div>';} cal += '</div>'; return cal;}
function start() {
var x = '<br><div id="calDate" style="border:0pt solid #cccccc;width:180px"><\/div>'; 
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+'"'; else return 'style="text-decoration: underline;cursor:pointer;color:'+linkclr+'" onclick="selDate = '+year+ getmmdd(month+1,day)+'; isDate(' + day + ',' + month + ',' + year + '); return false;"';
}
function isDate(dayVal,monthVal,yearVal) {
var ct = nextDate(yearVal + getmmdd(monthVal+1,dayVal));
var ctlist = nextDateMultipleList(yearVal + getmmdd(monthVal+1,dayVal));
//if (ct == '') ct = nextDate('0000' + getmmdd(monthVal+1,dayVal));
//if (ct == '') ct = noMessage;document.getElementById('calDate').innerHTML ='<div class="events">'+selDate.toString().substr(6,2)+"."+selDate.toString().substr(4,2)+"."+ //selDate.toString().substr(0,4) + ':<br \/>' +ct + '<br><br><b>'+nextEvent+'</b><br><table border ="0" class="events"></table></div>'
;
if (ctlist == '') ct = nextDateMultipleList('0000' + getmmdd(monthVal+1,dayVal));
if (ctlist == '') ct = noMessage;document.getElementById('calDate').innerHTML ='<div class="events">'+ctlist+ '<br><br><b>'+nextEvent+'</b><br><table border ="0" class="events"></table></div>';
return false;}
function nextDate(yymmdd) {
var x = dA.length;
var output = '';
//output = output + "<div class=\"events\">";
	for (var i = 0; i < x; i++) {
		if (dA[i].substr(0,8) == yymmdd) {
			output = output + dA[i].substr(8) + "<br>";
		}
 	}
//output = output + "</div>";
return output;
}
function nextDateMultipleList(yymmdd) {
var x = dA.length;
var y = dList.length;
var output = '';
var check = false;
output = output + "<table border =\"0\" class=\"events\">";
	
	for (var t = 0; t < y; t++) {
		if (dList[t] != '') {
			
			//get current string
			var currentString =dList[t];
			
			var stringArray = currentString.split('¤');
			var date = stringArray [4];
			if(date == yymmdd && stringArray != null) {
					
					var realdate = stringArray[0];
					var title = stringArray[1];
					var URL = stringArray[2];
					var target = stringArray[3];
					if(dateFormat == 2) {
						var tempdate = new Array;
						tempdate = realdate.split('.');
						var dateFormatted = '';
						dateFormatted = tempdate[1]+'/'+tempdate[0]+'/'+tempdate[2];
					}
					
					if(URL == '' || URL == null) {
						//change date format
						if(dateFormat == 2) {
							output = output + "<tr><td valign=\"top\">" + dateFormatted+ " </td><td>  "+title+"</td></tr>";
						}
						else {
							output = output + "<tr><td valign=\"top\">" + realdate + " </td><td>  "+title+"</td></tr>";
						}
					} else {
						//change date format
						if(dateFormat == 2) {
							output = output + "<tr><td valign=\"top\">" + dateFormatted+ "</td><td>   <a href=\""+URL+"\" 										target=\""+target+"\">"+title+"</a></td></tr>";;
						}
						else {
							output = output + "<tr><td valign=\"top\">" + realdate+ "</td><td>   <a href=\""+URL+"\" 										target=\""+target+"\">"+title+"</a></td></tr>";
}
					}
					check = "true";
			}
		}
 	}
output = output + "</table>";
return output;
}
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; document.getElementById('calDate').innerHTML ='<div class="events">'+ct+'</div>';
}