Changeset 2488 for cpc/trunk/project/batch

Timestamp:

Nov 12, 2011, 11:57:15 PM (9 years ago)

Author:

goya

Message:

fix pb fonctions

File:

• cpc/trunk/project/batch/commission/parse_commission.pl (modified) (1 diff)

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

@@ -112 +112 @@
     my $intervenant = shift;
     $fonction =~ s/\W+$//;
+    $fonction =~ s/<[^>]+>\s*//g;
+    $fonction =~ s/<[^>]*$//;
     my $kfonction = lc($fonction);
     $kfonction =~ s/[^a-z]+/ /gi;