Ignore:
Timestamp:
Feb 7, 2011, 4:16:51 AM (10 years ago)
Author:
roux
Message:

tout corrigé avec check diff old-new

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/depute/parse_depute.pl

    r1776 r1779  
    9595                last if ($t->[0] =~ /^\/li/);
    9696                $text = $p->get_text('/li');
    97                 if  ($text =~ /^([^(]\S+\s*\S*\s*(\S\S\S+\s*\S*\s*\S*|))( du | de la | de l')\s*(.*)/) {
     97                if  ($text =~ /^\(?(\S+\s*\S*\s*(\S\S\S+\s*\S*\s*\S*\)?|))( du | de la | de l')\s*(.*)/) {
    9898                    $fonction = $1;
    9999                    next if ($fonction =~ /Mandat/);
    100100                    $orga = $4;
    101                     next if ($orga =~ /mandat/);
    102101                    $fonction =~ s/ au nom//;
    103102                    $fonction =~ s/ par les groupes//;
     
    105104                    $orga =~ s/\s+$//;
    106105                    $orga =~ s/Assemblée Nationale/Bureau de l'Assemblée Nationale/;
     106                    $orga =~ s/^commission.*\)( du | de la | de l')//i;
    107107                    $deb = "";
    108                     if ($orga =~ s/ depuis le : ([\d\/]+)//) {
    109                         $deb = $1;
     108                    if ($orga =~ s/( depuis)? le : ([\d\/]+)//) {
     109                        $deb = $2;
    110110                    }
    111                     $orga =~ s/ :.*//;
    112                 }
    113                 if ($fonction =~ /reprise de l'exercice/i) {
    114                     $orga =~ /(\d{2}\/\d{2}\/\d+)/;
    115                     $depute{'Debut_Mandat'} = $1;
    116                 }elsif ($orga !~ /^\s*$/) {
    117 #                   ${$depute{'Fonctions'}}{lc($orga)." / ".lc($fonction)." / ".$deb} = 1;
     111                    $orga =~ s/\s?:.*//;
     112                    $orga =~ s/(commission des finances) sur.*/\1/i;
     113                }
     114                if ($fonction =~ /reprise de l'exercice/i && $deb) {
     115                    $depute{'Debut_Mandat'} = $deb;
     116                }elsif ($orga !~ /^\s*$/ && (!($fonctions{lc($orga)}) || $fonctions{lc($orga)} =~ /membre/)) {
    118117                    $fonctions{lc($orga)} = lc($orga)." / ".lc($fonction)." / ".$deb;
    119118                }
Note: See TracChangeset for help on using the changeset viewer.