* BUGFIX : Se estaba haciendo mal es split y cuando habia muchos split (como

[z.facultad/75.06/emufs.git] / emufs / tipo3.c

diff --git a/emufs/tipo3.c b/emufs/tipo3.c
index 4330731b89c08b5cc97a06bd0a6148af83735572..a28b635f5a0d120031b4ba3de425ae98b04e3320 100644 (file)
--- a/emufs/tipo3.c
+++ b/emufs/tipo3.c
@@ -59,15 +59,17 @@ void* emufs_tipo3_leer_registro(EMUFS *emu, CLAVE clave,
                cant_bloques = 1;
        
        /*si existe, lo busco en el archivo de bloques*/
-       if (emu->indices != NULL) {
+       if ((emu->indices != NULL) && (*err != 1)) {
                /* TODO : Verificar donde esta el indice primario */
                dato = emu->indices->existe_entrada(emu->indices, clave);
                block = dato.bloque;
                ID = dato.id;
+               PERR("Use indice");
        } else {
                /* Si no tengo claves, uso el campo entero para pasar un ID
                 * directamente.
                 */
+               PERR("Use directo");
                ID = clave.i_clave;
                block = emufs_idx_buscar_registro(emu,ID); /*me devuelve el nro de bloque al que pertenece el registro*/
        }