Changeset 3054


Ignore:
Timestamp:
Jan 4, 2013, 5:41:25 AM (8 years ago)
Author:
roux
Message:

fix missions temporaires mal indiquées par AN

File:
1 edited

Legend:

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

    r2971 r3054  
    3232my %groupes;
    3333my %orgas;
     34my %mission;
    3435
    3536sub clean_vars {
    3637  $encours = $lieu = $organisme = $fonction = "";
     38  $mission = 0;
    3739}
    3840
     
    123125    if ($line =~ /(Bureau|Commissions?|Missions? (temporaire|d'information)s?|Délégations? et Offices?)/) {
    124126      $encours = "fonctions";
     127      if ($line =~ /Missions temporaires/) {
     128        $mission = 1;
     129      }
    125130    } elsif ($line =~ /(Organismes? extra-parlementaires?|Fonctions? dans les instances internationales ou judiciaires)/) {
    126131      $encours = "extras";
     
    203208    } else {
    204209      next if ($line =~ /Rapporteure? spécial/i);
    205       if ($line =~ /^(.*)\((.*) - mission débutée.*\)/i) {
     210      if ($mission && $line =~ /^(.*)\((.*) - mi(ssion|nistère).*\)/i) {
    206211        $organisme = trim($1);
    207212        $minist = $2;
     
    221226        $line =~ s/^\s*(\S+) Comité/\1 du Comité/i;
    222227        $line =~ s/^\s*(\S+) (c?o?m?mission)/\1 de la \2/i;
    223         $line =~ s/ à la délégation/ de la délégation/i;
     228        $line =~ s/ à la délégation/ de la délégation/i;
    224229        $fonction = lc($1) if ($line =~ s/^\s*((\S+\s*){1,3}(du [bB]ureau)?) d((u|e la) |e l')(.*)$/\6/);
    225230        $organisme = ucfirst($line);
Note: See TracChangeset for help on using the changeset viewer.