-Cambiaron la estructura del archivo resultados.dbf

diff --git a/contratados/Contratados.pl b/contratados/Contratados.pl
index 71e2da1ae132631a7d68d402c8448caf1b767ece..bddbefd27f37734071effcee3c97f71d8294a473 100755 (executable)
--- a/contratados/Contratados.pl
+++ b/contratados/Contratados.pl
@@ -49,13 +49,12 @@ $re_select->execute();
 
 while ($res = $re_select->fetchrow_hashref()){
    #VERIFICO SI CAMBIARON LA ESTRUCTURA DEL ARCHIVO Resultados.dbf
-   if (!exists($res->{NUMDOC})     || !exists($res->{TIPDOC})     || !exists($res->{APELLIDO}) || !exists($res->{NOMBRE})  || 
+   if (!exists($res->{NUMDOC})     || !exists($res->{TIPODOC})     || !exists($res->{APELLIDO}) || !exists($res->{NOMBRE})  || 
        !exists($res->{CODIGO_ACT}) || !exists($res->{TIPOCONTRA}) || !exists($res->{PARTIME})  || !exists($res->{HENTRA})  || 
        !exists($res->{HSALE})      || !exists($res->{OFICINA})    || !exists($res->{EDIFICIO}) || !exists($res->{INTERNO}) || 
        !exists($res->{FEVIG})      || !exists($res->{FEBAJA})     || !exists($res->{FELIMITA}) || !exists($res->{RESPONSA})) {
        
-       #$address='mmarre@mecon.gov.ar, sotton@mecon.gov.ar, msklar@mecon.gov.ar, eneme@mecon.gov.ar, gagric@mecon.gov.ar, gmeray@mecon.gov.ar';
-       $address='mmarre@mecon.gov.ar';
+       $address='mmarre@mecon.gov.ar, sotton@mecon.gov.ar, msklar@mecon.gov.ar, eneme@mecon.gov.ar, gagric@mecon.gov.ar, gmeray@mecon.gov.ar';
        $linea = "echo 'Hubo un error. Se Modifico la estructura del archivo Resultados.dbf.\nMientras no se deje como la version anterior este proceso va a fallar.\nSi esto pasa, cambia la linea para que les mande un mail a todos. ' | mail $address ";
        $ret = system ($linea);
        $dbh_local->disconnect();
@@ -64,7 +63,7 @@ while ($res = $re_select->fetchrow_hashref()){
    }
 #   print Dumper($res);
 #   last;
-   $re_insert->execute($res->{NUMDOC}, $res->{TIPDOC}, $res->{APELLIDO}.' '.$res->{NOMBRE},$res->{CODIGO_ACT},$res->{TIPOCONTRA},
+   $re_insert->execute($res->{NUMDOC}, $res->{TIPODOC}, $res->{APELLIDO}.' '.$res->{NOMBRE},$res->{CODIGO_ACT},$res->{TIPOCONTRA},
                        $res->{PARTIME},$res->{HENTRA},$res->{HSALE},$res->{OFICINA},$res->{EDIFICIO},$res->{INTERNO},$res->{FEVIG},
                       $res->{FEBAJA},$res->{FELIMITA},$res->{RESPONSA});
 }