-->












<!--
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++) {
if (i==2) {
label_tmp='febrero';
}
if (i==3) {
label_tmp='marzo';
}
if (i==4) {
label_tmp='abril';
}
if (i==5) {
label_tmp='mayo';
}
if (i==6) {
label_tmp='junio';
}
if (i==7) {
label_tmp='julio';
}
if (i==8) {
label_tmp='agosto';
}
if (i==9) {
label_tmp='septiembre';
}
if (i==10) {
label_tmp='octubre';
}
if (i==11) {
label_tmp='noviembre';
}
if (i==12) {
label_tmp='diciembre';
}
label=label+"|"+label_tmp;
segment_tmp="00"+i
segment_tmp=segment_tmp.substring(segment_tmp.length-2,segment_tmp.length);
segment=segment+"|month:"+segment_tmp;
}
} 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++) {
label=label+"|"+i;
segment=segment+"|year:"+i;
}
} 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) {
range_end=Math.min(i+step-1,parseInt(year1,10));
label=label+"|"+i+" - "+range_end;
segment=segment+"|year:["+i+" TO "+range_end+"]";
}

}
}
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:('+'16'+')';
var month='month:('+'11'+')';
var year='year:('+'1989'+')';
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















<!--