Changeset 3053


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

fix cleaning presidents names

File:
1 edited

Legend:

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

    r3052 r3053  
    143143        $inter2fonction{$intervenant} = $fonction;
    144144    }
     145    return $intervenant;
    145146}
    146147
     
    172173        $intervenant =~ s/^l[ea]\s+//i;
    173174        if ($intervenant =~ /([pP]résidente?|[rR]apporteur[a-zé\s]+)\s([A-Zé].*)/) { #\s([A-Z].*)/i) {
    174             setFonction($1, $2);
    175             return $2;
     175            return setFonction($1, $2);
    176176        }
    177177        $conv = $fonction2inter{$intervenant};
     
    362362        checkout();
    363363        $found = $majIntervenant = 1;
    364             setFonction($2, $1);
    365             $intervenant = setIntervenant($1);
     364            $intervenant = setFonction($2, $1);
    366365        }elsif ($line =~ s/^[Llea\s]*\|[Llea\s]*([pP]résidente?) (([A-ZÉ][^\.: \|]+ ?)+)[\.: \|]*//) {
    367366                $f = $1;
    368367                $i = $2;
    369368                $found = $majIntervenant = 1;
    370                 checkout();
    371                 setFonction($f, $i);
    372                 $intervenant = setIntervenant($i);
     369        checkout();
     370        $intervenant = setFonction($f, $i);
    373371        }elsif ($line =~ s/^[Llea\s]*\|[Llea\s]*([pP]résidente?|[rR]apporteure?)[\.: \|]*//) {
    374372                $tmpfonction = lc($1);
Note: See TracChangeset for help on using the changeset viewer.