Changeset 3051


Ignore:
Timestamp:
Jan 4, 2013, 3:47:05 AM (8 years ago)
Author:
roux
Message:

fix reco ministres

File:
1 edited

Legend:

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

    r3044 r3051  
    229229        foreach $l (@pieces) {
    230230            $l =~ s/, sur .*$//;
    231             if ($l ne $line && $l =~ /(M[me\.]+\s)?([^,]+), ([Mm]inistre ((, |et |([dl][eaus'\s]+))*(\S+\s+){1,4})+)/) {
     231            if ($l ne $line && $l !~ /^[\/\|]?l[ea]s? /i && $l =~ /(M[me\.]+\s)?([^,]+), ([Mm]inistre ((, |et |([dl][eaus'\s]+))*(\S+\s+){1,4})+)/) {
    232232                setFonction($3, $2);
    233233            }
Note: See TracChangeset for help on using the changeset viewer.