Changeset 3053

Timestamp:

Jan 4, 2013, 4:47:29 AM (8 years ago)

Author:

roux

Message:

fix cleaning presidents names

File:

• cpc/trunk/project/batch/commission/parse_commission.pl (modified) (3 diffs)

cpc/trunk/project/batch/commission/parse_commission.pl

@@ -143 +143 @@
         $inter2fonction{$intervenant} = $fonction;
     }
+    return $intervenant;
 }
 
@@ -172 +173 @@
         $intervenant =~ s/^l[ea]\s+//i;
         if ($intervenant =~ /([pP]résidente?|[rR]apporteur[a-zé\s]+)\s([A-Zé].*)/) { #\s([A-Z].*)/i) {
-            setFonction($1, $2);
-            return $2;
+            return setFonction($1, $2);
         }
         $conv = $fonction2inter{$intervenant};
@@ -362 +362 @@
         checkout();
         $found = $majIntervenant = 1;
-            setFonction($2, $1);
-            $intervenant = setIntervenant($1);
+            $intervenant = setFonction($2, $1);
         }elsif ($line =~ s/^[Llea\s]*\|[Llea\s]*([pP]résidente?) (([A-ZÉ][^\.: \|]+ ?)+)[\.: \|]*//) {
                 $f = $1;
                 $i = $2;
                 $found = $majIntervenant = 1;
-                checkout();
-                setFonction($f, $i);
-                $intervenant = setIntervenant($i);
+        checkout();
+        $intervenant = setFonction($f, $i);
         }elsif ($line =~ s/^[Llea\s]*\|[Llea\s]*([pP]résidente?|[rR]apporteure?)[\.: \|]*//) {
                 $tmpfonction = lc($1);