Changeset 2588


Ignore:
Timestamp:
Jan 9, 2012, 2:55:56 PM (8 years ago)
Author:
teymour
Message:

Cas du gras placé après le Le de "Le Président..."
+ cas du président sans nom

File:
1 edited

Legend:

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

    r2587 r2588  
    288288            $intervenant = setIntervenant($1.$2);
    289289            $found = 1;
    290         }elsif ($line =~ s/^\s*\|\s*[Ll][ea] ([pP]résidente?) (([A-ZÉ][^\.: \|]+ ?)+)[\.: \|]*//) {
     290        }elsif ($line =~ s/^[Llea\s]*\|[Llea\s]*([pP]résidente?) (([A-ZÉ][^\.: \|]+ ?)+)[\.: \|]*//) {
    291291                $f = $1;
    292292                $i = $2;
     
    295295                setFonction($f, $i);
    296296                $intervenant = setIntervenant($i);
     297        }elsif ($line =~ s/^[Llea\s]*\|[Llea\s]*([pP]résidente?|[rR]apporteure?)[\.: \|]*//) {
     298                $tmpfonction = lc($1);
     299                $tmpintervenant = $fonction2inter{$tmpfonction};
     300                if ($tmpintervenant) {
     301                        checkout();
     302                        $intervenant = $tmpintervenant;
     303                        $found = $majIntervenant = 1;
     304                }
    297305        }
    298306        $line =~ s/^\s+//;
Note: See TracChangeset for help on using the changeset viewer.