Changeset 2463


Ignore:
Timestamp:
Nov 3, 2011, 10:18:57 PM (9 years ago)
Author:
komodo
Message:

fix M. Mme commissions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/branches/senat/project/batch/commission/parse_commission.pl

    r2461 r2463  
    172172                        $tmpintervenant = $2;
    173173                        $tmpintervenant =~ s/<[^>]*>//g;
    174                         $tmpintervenant =~ s/ et /, /g if ($tmpintervenant =~ /^Mm(\.|es)/);
    175                         $tmpintervenant =~ s/^M[mlmes\.\s]{1,4}//;
     174                        $tmpintervenant =~ s/ et /, /g if ($tmpintervenant =~ /^Mm([\.\s]|es)/);
     175                        $tmpintervenant =~ s/^M[mles]{0,3}[\.\s]+//;
    176176                        $tmpintervenant =~ s/[\s-_\.,;"'<>«»]+$//;
    177177                        if ($tmpintervenant =~ s/^([^,]+),\s*([^,]+,\s*)*([^,]*)\W*$/$1/g) {
    178178                                $tmpfonction = $3;
    179                                 $tmpfonction = $2.$tmpfonction if ($2 !~ / M[mlmes\.\s]/);
     179                                $tmpfonction = $2.$tmpfonction if ($2 !~ / M[mles\.\s]/);
    180180                                $fonctions{$tmpintervenant} = $tmpfonction;
    181181                        } elsif ($tmpintervenant =~ s/^([^,]+), ([^,]*).*/$1/g) {
     
    202202                $sfonction = $fonction;
    203203                $sfonction =~ s/([\(\)\*])/\\$1/g;
    204                 $inter =~ s/^[^\w\&]*(M[mlmes\.\s]{1,4})?$sintervenant[^\w\&]*($sfonction[^\w\&]*|)//;
     204                $inter =~ s/^[^\w\&]*(M[mles]{0,3}[\.\s]+)?$sintervenant[^\w\&]*($sfonction[^\w\&]*|)//;
    205205                $intervention .= '<p>'.$inter.'</p>' if ($inter =~ /[a-z]/i);
    206206        }
Note: See TracChangeset for help on using the changeset viewer.