
//http://www.kalyani.com/2008/08/xhtml-compliant-technique-for-passing-parameters-to-javascript-script-files/

var myParams = getScriptUrlParams();
//alert(myParams["w"]);
//alert(myParams["h"]);

function getScriptUrlParams()
{
	var scriptTags = document.getElementsByTagName("script");

	// This code is assumed to be in a file so the "src" attribute
	// is guaranteed to be present...no error-checking is needed
	var urlFrags = scriptTags[scriptTags.length-1].src.split("#");

	var urlParams=[];
	var urlParamRaw = [];
	if (urlFrags.length > 1)
	{
	    urlParamRaw = urlFrags[1].split("/");
	    if (urlParamRaw.length >= 2)
	    {
	    	for(var param=0;param<urlParamRaw.length;param+=2)
	            urlParams[urlParamRaw[param]] = (urlParamRaw.length >= param + 1 ? unescape(urlParamRaw[param+1]) : null);
    	    }
	}

	return(urlParams);
}

/*
Cross browser Marquee script- © Dynamic Drive (www.dynamicdrive.com)
For full source code, 100's more DHTML scripts, and Terms Of Use, visit http://www.dynamicdrive.com
Credit MUST stay intact
*/

var myW = myParams["w"] ? myParams["w"] : '435';
var myH = myParams["h"] ? myParams["h"] : '17';

//Specify the marquee's width (in pixels)
var marqueewidth=myW+"px"
//Specify the marquee's height
var marqueeheight=myH+"px"
//Specify the marquee's marquee speed (larger is faster 1-10)
var marqueespeed=1
//configure background color:
var marqueebgcolor=""
//Pause marquee onMousever (0=no. 1=yes)?
var pauseit=1

//Specify the marquee's content (don't delete <nobr> tag)
//Keep all content on ONE line, and backslash any single quotations (ie: that's great):

var marqueecontent="<nobr><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89683' target='_blank'>Homilia do cardeal-patriarca de Lisboa na missa de quarta-feira de Cinzas</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89696' target='_blank'>Quaresma: Cardeal-patriarca lamenta perda do «sentido do pecado»</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89695' target='_blank'>Quaresma: Papa convida à humildade diante de Deus</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89694' target='_blank'>Algarve: Campanha de recolha de bens para casais carenciados</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89693' target='_blank'>Óbito: D. Manuel Falcão (1922-2012), homem da cultura e do espírito</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89692' target='_blank'>Óbito: Presidente da República lembra D. Manuel Falcão como «personalidade marcante» da Igreja Católica em Portugal</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89691' target='_blank'>Quaresma: Propostas litúrgicas para 2012</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89690' target='_blank'>Quaresma: Arcebispo de Évora fala na necessidade de dignificar a sociedade</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89689' target='_blank'>Crise: Caritas alerta para emergência social</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89688' target='_blank'>Mensagem quaresmal do arcebispo de Évora</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89687' target='_blank'>Migrações: Milhares de portugueses vagueiam pelas ruas da Suíça</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89686' target='_blank'>Escuteiros: Chefe nacional assinala 155 anos do nascimento do fundador</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89685' target='_blank'>Beja: D. Manuel Falcão fez trabalho «excecional» e deixa «marca inultrapassável», diz presidente da Câmara</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89684' target='_blank'>Óbito: Sé de Beja encheu-se para despedida a D. Manuel Falcão</a><a href='http://www.agencia.ecclesia.pt/cgi-bin/noticia.pl?id=89682' target='_blank'>Brasil: Papa pede justiça na distribuição dos rendimentos e saúda «Campanha da Fraternidade»</a></nobr>";

////NO NEED TO EDIT BELOW THIS LINE////////////
marqueespeed=(document.all)? marqueespeed : Math.max(1, marqueespeed-1) //slow speed down by 1 for NS
var copyspeed=marqueespeed
var pausespeed=(pauseit==0)? copyspeed: 0
var iedom=document.all||document.getElementById
if (iedom)
document.write('<span id="temp" style="visibility:hidden;position:absolute;top:-100px;left:-9000px">'+marqueecontent+'</span>')
var actualwidth=''
var cross_marquee, ns_marquee

function populate(){
if (iedom){
cross_marquee=document.getElementById? document.getElementById("iemarquee") : document.all.iemarquee
cross_marquee.style.left=parseInt(marqueewidth)+8+"px"
cross_marquee.innerHTML=marqueecontent
actualwidth=document.all? temp.offsetWidth : document.getElementById("temp").offsetWidth
}
else if (document.layers){
ns_marquee=document.ns_marquee.document.ns_marquee2
ns_marquee.left=parseInt(marqueewidth)+8
ns_marquee.document.write(marqueecontent)
ns_marquee.document.close()
actualwidth=ns_marquee.document.width
}
lefttime=setInterval("scrollmarquee()",20)
}
window.onload=populate

function scrollmarquee(){
if (iedom){
if (parseInt(cross_marquee.style.left)>(actualwidth*(-1)+8))
cross_marquee.style.left=parseInt(cross_marquee.style.left)-copyspeed+"px"
else
cross_marquee.style.left=parseInt(marqueewidth)+8+"px"

}
else if (document.layers){
if (ns_marquee.left>(actualwidth*(-1)+8))
ns_marquee.left-=copyspeed
else
ns_marquee.left=parseInt(marqueewidth)+8
}
}

if (iedom||document.layers){
with (document){
document.write('<table border="0" cellspacing="0" cellpadding="0"><td>')
if (iedom){
write('<div style="position:relative;width:'+marqueewidth+';height:'+marqueeheight+';overflow:hidden">')
write('<div style="position:absolute;width:'+marqueewidth+';height:'+marqueeheight+';background-color:'+marqueebgcolor+'" onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed">')
write('<div id="iemarquee" style="position:absolute;left:0px;top:0px"></div>')
write('</div></div>')
}
else if (document.layers){
write('<ilayer width='+marqueewidth+' height='+marqueeheight+' name="ns_marquee" bgColor='+marqueebgcolor+'>')
write('<layer name="ns_marquee2" left=0 top=0 onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed"></layer>')
write('</ilayer>')
}
document.write('</td></table>')
}
}

