====== Migración de Aguapey a Catalis ======

<note important>
Este es un borrador de migración de registros de Aguapey a Catalis. Fue realizada aproximadamente el 07/sep/2005, junto a Rodolfo García. Sigue pendiente, y desde luego son bienvenidas las colaboraciones para concluirla. --- //[[fjgomez@gmail.com|Fernando Gómez]] 2009/05/16 18:29//

Actualizado al 13/sep/2011. Con esta versión del //script// (todavía en versión borrador) se obtiene una base de datos para ser utilizada directamente por Catalis.  --- //[[vmferra@uns.edu.ar|Victor Ferracutti]] 2012/02/16 10:15//
</note>

Agregar:

  * Documentación sobre la forma en que se representan los registros MARC en Aguapey, incluyendo una muestra representativa de registros.


===== Script de migración =====


<code dos>
:: Migración AGUAPEY -> CATALIS
    
    :: 1. indicadores en blanco: colocar #
    :: reemplaza '  ' por '##' en indicadores
    :: mx aguapey "proc='d1a1`',replace(v1,'!  ^','!##^'),'`'" now -all create=aguapey2
    :: reemplaza '1 ' por '1#' en indicadores
    :: mx aguapey2 "proc='d1a1`',replace(v1,'!1 ^','!1#^'),'`'" now -all create=aguapey3
    :: seguir con otros casos no considerados...
    
    :: 2. campo 001: quitar el prefijo BNM
    mx aguapey "proc='d1a1`',v1*3,'`'" now -all create=aguapey3
	
    :: 3. campo 008: corregir (a partir del campo 018)
    :: reemplaza ' ' por '#' y '|' por '#'
    mx aguapey3 "proc='d8d18a8`',replace(v18,' ','#'),'`'" now -all copy=aguapey3
    mx aguapey3 "proc='d8a8`',replace(v8,'|','#'),'`'" now -all create=aguapey4
	
    :: 4. campo 020: eliminar guiones
    mx aguapey4 "proc='d20a20`',replace(v20,'-',''),'`'" now -all create=aguapey5
	 
    :: 5. campo 859: mapear subcampos
    :: $a -> $p
    mx aguapey5 "proc='d859',('a859@',replace(v859,'^a','^p'),'@')" now -all create=aguapey6
    :: seguir con otros subcampos...

    :: 6. añadir datos de la cabecera
    mx aguapey6 proc=@leader.pft create=aguapey7 now -all

    :: 7. eliminar campos no utilizados y agregar faltantes:
    ::    campo 991: 'SI' son registros migrados
    mx aguapey7 proc='d2d900d9508' copy=aguapey7 now -all
    mx aguapey7 proc='a991~SI~' create=aguapeyn now -all

    :: pasos finales
    :: se reemplaza la a volada ('ª') por: 
    ::    'a.' en el campo 260
    ::    'a' en el resto de los campos
    :: (la a volada impide la correcta inversión)
	mx aguapeyn gizmo=cambio,250,260 copy=aguapeyn now -all
	mx aguapeyn gizmo=cambio2 copy=aguapeyn now -all
    :: acentos Web
	mx aguapeyn gizmo=asc2ans copy=aguapeyn now -all
    :: se eliminan fisicamente los registros borrados y 
    :: se comprime el espacio utilizado. 
        mxcp aguapeyn create=biblio clean
</code>


=== leader.pft ===

<file>
    /* generación de los datos de la cabecera */
    
    'd905d906d907d908d909d917d918d919',
    'a905@',v2*4.1,'@',
    'a906@',v2*5.1,'@',
    'a907@',v2*6.1,'@',
    'a908@#@',
    'a909@#@',
    'a917@5@', /* Encoding level: 5 - Partial (preliminary) level */
    'a918@a@', /* AACR2 */
    'a919@#@'
</file>

==== Anexos ====

* {{:aguapey:muestra.id|Muestra representativa de registros de Aguapey (fichero.id)}}


{{tag>catalis aguapey migracion}}