function calcula_cajascomentarios() {
	clase_comentario='comentario';
	vertical_pos=document.getElementById("vertical").offsetTop + document.getElementById("vertical").offsetHeight;
	comentarios=getElementsByClass(clase_comentario);
	for (x=0;x<comentarios.length;x++) {
		comentario_pos=comentarios[x].offsetTop + comentarios[x].offsetHeight;
		if (comentario_pos - vertical_pos > comentarios[x].offsetHeight)
			comentarios[x].style.width='100%';
	}
}
function comprobar_formulario_comentario() {
	if (comprobar_spam('spam'))
		if (comprobar_correo('email'))
			if (comprobar_pagina('webpage'))
				return true;
			else
				return false;
		else
			return false;
	else
		return false;
}
function comprobar_spam(formulario) {
	campo=document.getElementById(formulario);
	if (campo.value==false || campo.value.length != 4) {
		alert("Falta completar la protección anti-spam o está incompleta");
		campo.style.border="4px solid red";
		return false;
	}
	else {
		return true;
	}
}
function comprobar_correo(formulario) {
	campo=document.getElementById(formulario);
	var re=/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/;
	if (!checkRegularExpression(campo.value,re) && campo.value != '') {
		alert("\"" + campo.value + "\" no es una dirección de correo válida");
		return false;
	}
	else
		return true;
}
function comprobar_pagina(formulario) {
	campo=document.getElementById(formulario);
	/* Coincide con:
		http://www.flores.com
		http://www.flores.com/
		http://flores.com
		http://flores.com/
		http://www.flores.com/carmela
		http://flores.com/carmela
		http://www.flores.com/carmela/
		http://flores.com/carmela/
	*/
	var re_full=/^http:\/\/(\w+\.)*\w+\.(\w){2,3}(\/\w+)*(\/)?$/;
	var re_simp=/^http:\/\/$/;
	if (!checkRegularExpression(campo.value,re_full) && !checkRegularExpression(campo.value,re_simp || campo.value!='')) {
		alert("\"" + campo.value + "\" no es una dirección HTTP válida");
		return false;
	}
	else
		return true;
}