-->












<!--
function enviar_mail(form)
var filter=/^([w-]+(?:.[w-]+)*)@((?:[w-]+.)*w[w-]0,66).([a-z]2,6(?:.[a-z]2)?)$/i;
var str="";
if (form.from_address.value == "")
alert( "No has introducido el E-mail del remitente." );
form.from_address.focus();
return false ;
else
str=form.from_address.value;
if (!filter.test(str))
alert( "El E-mail del remitente no es correcto." );
form.from_address.focus();
return false ;



if (form.to_address.value == "")
alert( "No has introducido el E-mail del destinatario." );
form.to_address.focus();
return false ;
else
str=form.to_address.value;
if (!filter.test(str))
alert( "El E-mail del destinatario no es correcto." );
form.to_address.focus();
return false ;



document.form_sendtofriend.from_address.value=form.from_address.value;
document.form_sendtofriend.to_address.value=form.to_address.value;
document.form_sendtofriend.subject.value=form.subject.value;
document.form_sendtofriend.URL.value=form.URL.value;
document.form_sendtofriend.text.value=form.text.value+"nn"+form.URL.value;
document.form_sendtofriend.submit()
toggleEnviarAmigo();


function stats(form)
var label;
var min_date=form.min_date.value;
var max_date=form.max_date.value;

var day0=min_date.substring(min_date.length-2,min_date.length);
var month0=min_date.substring(min_date.length-4,min_date.length-2)
var year0=min_date.substring(0,min_date.length-4)

var day1=max_date.substring(max_date.length-2,max_date.length);
var month1=max_date.substring(max_date.length-4,max_date.length-2)
var year1=max_date.substring(0,max_date.length-4)


if ( year0==year1)
label='enero';
segment="month:"+"01";
for (var i=2; i<=12; i++) "+label_tmp;
segment_tmp="00"+i
segment_tmp=segment_tmp.substring(segment_tmp.length-2,segment_tmp.length);
segment=segment+"
else
var requested_years=parseInt(year1,10)-parseInt(year0,10)+1;
step=Math.floor(requested_years/11)+1;
if (step==1)
label=year0;
segment="year:"+year0;
for (var i=parseInt(year0,10)+1; i<=parseInt(year1,10); i++) "+i;
segment=segment+"
else
var range_end=parseInt(year0,10);
range_end=Math.min(range_end+step-1,parseInt(year1,10));
label=year0+" - "+range_end;
segment="year:["+year0+" TO "+range_end+"]";
for (var i=parseInt(year0,10)+step; i<=parseInt(year1,10); i=i+step) "+i+" - "+range_end;
segment=segment+"



form.label.value=label;
form.segment.value=segment;
form.fn.value="counts";
form.xslt.value="ABC-counts";

form.submit();
return true;



function view_PDF(form, place, publication, day, month, year, id, filename, url_high, page)
form.fn.value='main';
form.xslt.value='ABC-pagina';
form.target='PDF';
form.place.value=place;
form.publication.value=publication;
form.day.value=day;
form.month.value=month;
form.year.value=year;
form.id.value=id;
form.filename.value=filename;
form.url_high.value=url_high;
form.page.value=page;
form.submit();


function download_PDF(form, place, publication, day, month, year, id, filename, url_high, page)
form.fn.value='commandselect';
form.tampon.value=publication+' ('+place+') '+day+'/'+month+'/'+year+'. Página '+page
form.nombre_pdf.value=publication+' '+day+'/'+month+'/'+year+' - página '+page
form.id.value=id;
form.action="/cgi-bin/pagina.pdf";
form.command.value='download_pdf';
form.submit();
form.action="/detalle.stm";



function init(id)
var save_link = document.getElementById('save_'+id);
var remove_link = document.getElementById('remove_'+id);
if (isSaved(id))
save_link.style.display = 'none';
remove_link.style.display = 'inline';
else
save_link.style.display = 'inline';
remove_link.style.display = 'none';



function savedIds()
var ids = CookieJar.map().dossier;
return ids?ids:'';


function isSaved(id)
id = parseInt(id, 10);
return savedIds().search(idRegExp(id)) !== -1;


function updateIds(ids)
ids = ids.replace(/ +/, ' ');
ids = ids.replace(/^ +/, '');
ids = ids.replace(/ +$/, '');
var now=new Date();
var expires=new Date(now.getTime()+24*3600*1000);
CookieJar.add(
'dossier', ids, expires, '/'
);


function idRegExp(id)
return new RegExp('\b' + id + '\b');


function saveId(id)
id = parseInt(id, 10);
var ids=savedIds();
if (!isSaved(id))
ids += ' ' + id;

updateIds(ids);


function removeId(id)
id = parseInt(id, 10);
var ids=savedIds();
ids = ids.replace(idRegExp(id), '');
updateIds(ids);


function removeWire(id)
removeId(id);
init();


function save_to_dossier(id)
saveId(id);
init(id);


function remove_from_dossier(id)
removeId(id);
init(id);


function pushPart(parts, part, defaultPart)
if (part!='')
parts.push('('+part+')');
else if (defaultPart!=null)
parts.push('('+defaultPart+')');



function range(field, start, end)
if (start==end)
return equal(field, start);
else
return field+':['+start+' TO '+end+']';



function equal(field, value)
return field+':'+value;


function date_range(form, date_limit, pa_donde)
var DAY='day';
var MONTH='month';
var YEAR='year';
if (pa_donde=='next')
var day0=parseInt(form.day.value,10);
day0=day0+1;
var que_dia="00"+day0;
que_dia=que_dia.substring(que_dia.length-2,que_dia.length);
day0=que_dia;
var month0=form.month.value;
var year0=form.year.value;
var limite=date_limit;
var day1=limite.substring(limite.length-2,limite.length);
var month1=limite.substring(limite.length-4,limite.length-2)
var year1=limite.substring(0,limite.length-4)
var nextMonth0=pad(parseInt(month0, 10)+1);
var prevMonth1=pad(parseInt(month1, 10)-1);
var nextYear0=pad(parseInt(year0, 10)+1);
var prevYear1=pad(parseInt(year1, 10)-1);


if (pa_donde=='previous')
var day1=parseInt(form.day.value,10);
day1=day1-1;
var que_dia="00"+day1;
que_dia=que_dia.substring(que_dia.length-2,que_dia.length);
day1=que_dia;
var month1=form.month.value;
var year1=form.year.value;
var limite=date_limit;
var day0=limite.substring(limite.length-2,limite.length);
var month0=limite.substring(limite.length-4,limite.length-2)
var year0=limite.substring(0,limite.length-4)
var nextMonth0=pad(parseInt(month0, 10)+1);
var prevMonth1=pad(parseInt(month1, 10)-1);
var nextYear0=pad(parseInt(year0, 10)+1);
var prevYear1=pad(parseInt(year1, 10)-1);

var query='';
var orParts;

if (month0==month1 && year0==year1)
return [
range(DAY, day0, day1),
equal(MONTH, month0),
equal(YEAR, year0)
].join(' AND ');
else
orParts=new Array();
pushPart(
orParts, [
range(DAY, day0, '31'),
equal(MONTH, month0),
equal(YEAR, year0)
].join(' AND ')
);
if (year0==year1)
pushPart(
orParts, [
range(MONTH,nextMonth0,prevMonth1),
equal(YEAR, year0)
].join(' AND ')
);
else
pushPart(
orParts, [
range(MONTH, nextMonth0, '12'),
equal(YEAR, year0)
].join(' AND ')
);
pushPart(
orParts, range(YEAR, nextYear0, prevYear1)
);
pushPart(
orParts, [
range(MONTH, '01', prevMonth1),
equal(YEAR, year1)
].join(' AND ')
)

pushPart(
orParts, [
range(DAY, '01', day1),
equal(MONTH, month1),
equal(YEAR, year1)
].join(' AND ')
);
return orParts.join(' OR ');



function pad(i)
if (i<10)
return '0'+i;
else
return i.toString();



function navigate_next_date(form)
date_limit='20090605';
text=date_range(form, date_limit, 'next');
form.query.value="("+text+") AND page:001 AND sort_place:madrid";
form.sort.value="+year +month +day";
form.skip.value='0';
form.xslt.value='redirect2navigate';
form.action='/cgi-bin/Pandora.exe'
form.submit();


function navigate_previous_date(form)
date_limit='19030101';
text=date_range(form, date_limit, 'previous');
form.query.value="("+text+") AND page:001 AND sort_place:madrid";
form.sort.value="-year -month -day";
form.skip.value='0';
form.xslt.value='redirect2navigate';
form.action='/cgi-bin/Pandora.exe'
form.submit();


function navigate_page(form, page)
form.fn.value='select';
form.command.value='';
form.skip.value='0';
var place='place:('+'Madrid'+')';
var publication='publication:('+'ABC'+')';
var day='day:('+'24'+')';
var month='month:('+'12'+')';
var year='year:('+'1953'+')';
var que_page="000"+page;
que_page=que_page.substring(que_page.length-3,que_page.length);
que_page='page:('+que_page+')';
form.query.value=place+" AND "+publication+" AND "+day+" AND "+month+" AND "+year+" AND "+que_page;
form.xslt.value='ABC-detalle_PDF';
form.submit();


function navigate(form, skip, xslt, modify)

form.target='_self';

form.saved_skip.value=skip
form.saved_current.value=skip+1

form.fn.value='select';
form.command.value='';
form.skip.value=skip;
form.xslt.value=xslt;
form.query.value=form.saved_query.value;
form.sort.value=form.saved_sort.value;

if (form.length.value=="")
form.length.value="10";

if (form.sort.value=="")
if (form.text_query.value=="")
form.sort.value="-year -month -day +publication +page";
else
form.sort.value="+score";


form.submit();


function details(form,id) {
var posicion=0;
for (i = 0; i















<!--