Changeset 2458


Ignore:
Timestamp:
Nov 3, 2011, 7:31:01 PM (9 years ago)
Author:
komodo
Message:

on vire les M. Mme

File:
1 edited

Legend:

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

    r2457 r2458  
    166166                        $tmpintervenant = $2;
    167167                        $tmpintervenant =~ s/<[^>]*>//g;
    168                         if ($tmpintervenant =~ s/^Mm\./M./i || $tmpintervenant =~ s/^Mmes/Mme/i) {
    169                                 $tmpintervenant =~ s/ et /, /g;
    170                                 $tmpintervenant =~ s/^([^,]+)(,[^,]+)*,\s*([^,]*)\W*$/$1/g;
     168                        $tmpintervenant =~ s/^M[mlmes\.\s]{1,4}//i;
     169                        $tmpintervenant =~ s/ et /, /g;
     170                        if ($tmpintervenant =~ s/^([^,]+)(,[^,]+)*,\s*([^,]*)\W*$/$1/g) {
    171171                                $tmpfonction = $3;
    172172                                $fonctions{$tmpintervenant} = $tmpfonction;
Note: See TracChangeset for help on using the changeset viewer.