Changeset 3256


Ignore:
Timestamp:
Jul 1, 2013, 2:59:34 AM (7 years ago)
Author:
roux
Message:

catch personnalités militaires

File:
1 edited

Legend:

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

    r3222 r3256  
    413413        $line =~ s/^[\.\:]\s*//;
    414414        if (!$found) {
    415             if ($line =~ s/^\s*((Dr|M(mes?|[e\.]))(\s([dl][eaus'\s]+)*[^\.:\s]{2,}){1,4})[\.:]//) {
     415            if ($line =~ s/^\s*((Dr|(Géné|Ami|Capo)ral|M(mes?|[e\.]))(\s([dl][eaus'\s]+)*[^\.:\s]{2,}){1,4})[\.:]//) {
    416416            checkout();
    417417            $intervenant = setIntervenant($1);         
Note: See TracChangeset for help on using the changeset viewer.