Changeset 2587


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

Meilleure gestion du repérage des président-e-s de commission

File:
1 edited

Legend:

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

    r2586 r2587  
    110110sub setFonction {
    111111    my $fonction = shift;
    112     my $intervenant = shift;
     112    my $intervenant = setIntervenant(shift);
    113113    $fonction =~ s/\W+$//;
    114114    $fonction =~ s/<[^>]+>\s*//g;
    115115    $fonction =~ s/<[^>]*$//;
    116116    my $kfonction = lc($fonction);
    117     $kfonction =~ s/[^a-z]+/ /gi;
     117    $kfonction =~ s/[^a-zéàè]+/ /gi;
    118118    $fonction2inter{$kfonction} = $intervenant;
    119 #    print "$fonction ($kfonction)  => $intervenant \n";
     119#    print "$fonction ($kfonction)  => $intervenant-".$inter2fonction{$intervenant}."\n";
    120120    if (!$inter2fonction{$intervenant}) {
    121121        $inter2fonction{$intervenant} = $fonction;
     
    288288            $intervenant = setIntervenant($1.$2);
    289289            $found = 1;
     290        }elsif ($line =~ s/^\s*\|\s*[Ll][ea] ([pP]résidente?) (([A-ZÉ][^\.: \|]+ ?)+)[\.: \|]*//) {
     291                $f = $1;
     292                $i = $2;
     293                $found = $majIntervenant = 1;
     294                checkout();
     295                setFonction($f, $i);
     296                $intervenant = setIntervenant($i);
    290297        }
    291298        $line =~ s/^\s+//;
     
    299306                checkout();
    300307                $intervenant = setIntervenant($1);
    301             }elsif($line =~ s/^\s*L[ea] (Présidente?) ([^\.:\|]+)//i) {
     308            }elsif($line =~ s/^\s*[Ll][ea] ([pP]résidente?) (([A-ZÉ][^\.: \|]+ ?)+)[\.: \|]*//) {
    302309                setFonction($1, $2);
    303310                checkout();
Note: See TracChangeset for help on using the changeset viewer.