Changeset 3071


Ignore:
Timestamp:
Jan 21, 2013, 12:43:32 AM (7 years ago)
Author:
nosdeputes
Message:

fix parsing grpes amitié

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/presences/parse_orga_inter.pl

    r2864 r3071  
    8080                $titre =~ s/^\s*//;
    8181                $titre =~ s/\s*$//;
    82                 $titre =~ s/\’/\'/g;
     82                $titre =~ s/’/\'/g;
    8383                $titre =~ s/’/'/g;
    8484                $titre =~ s/–/-/g;
     
    106106        while (/fiches_id.(\d+).asp">([^<]*)<\/a>/g) {
    107107                $nom = $2; $id = $1;
     108                $nom =~ s/\xc2\x92/'/g;
    108109                $nom =~ s/députée?s?//;
    109110                next if ($id{$id});
    110111                $id{$id} = 1;
    111112                $nom =~ s/&nbsp;/ /g;
     113                $nom =~ s/\s+/ /g;
     114                $nom =~ s/^hil/Phil/g;
    112115                $organisme = $deforganisme unless($organisme);
    113116                foreach $d (@date) {
Note: See TracChangeset for help on using the changeset viewer.