Function cortarTexto

/**
 *  Function cortarTexto
 *
 *   Recorta el texto recibido al limite especificado de caracteres.
 *   Caracteristicas:
 *   * Si el texto es HTML el texto no contendra tags incompletos
 *   * Si el texto no es HTML no se recortaran palabras
 *
 *   Notas: Se debe tener en cuenta que el texto podria quedar muy corto
 *   en el caso de que sea HTML al recortarse los tags finales 
 *   
 *   Parámetros:
 *   @param string $cadena -> texto a recortar
 *   @param int $size -> longitud maxima del texto
 *   @return boolean $es_html -> se trata de HTML ??
*/
    function cortarTexto($texto, $size, $es_html = true) {
        if (strlen($texto) > $size) {
            $texto = substr($texto, 0, $size);
            if ($es_html) {
                $lt_simbolo = strrpos($texto, "<");
                $gt_simbolo = strrpos($texto, ">");
                if ($lt_simbolo !== false && $gt_simbolo < $lt_simbolo) {
                    $texto = substr($texto, 0, $lt_simbolo - 1);
                }
                return $texto;
            }
            else
            {
                $pos_spc_final = strrpos($texto, " ");
                $texto = substr($texto, 0, $pos_spc_final - 1);
                return $texto;
            }
        }
        else
        {
            return $texto;
        }
    }