Changeset 2460


Ignore:
Timestamp:
Nov 3, 2011, 7:53:24 PM (9 years ago)
Author:
komodo
Message:

fix longues fonctions

File:
1 edited

Legend:

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

    r2459 r2460  
    166166                        $tmpintervenant = $2;
    167167                        $tmpintervenant =~ s/<[^>]*>//g;
    168                         $tmpintervenant =~ s/^M[mlmes\.\s]{1,4}//i;
    169                         $tmpintervenant =~ s/ et /, /g;
     168                        $tmpintervenant =~ s/ et /, /g if ($tmpintervenant =~ /^Mm(\.|es)/);
     169                        $tmpintervenant =~ s/^M[mlmes\.\s]{1,4}//;
     170                        $tmpintervenant =~ s/[\s-_\.,;"'<>«»]+$//;
    170171                        if ($tmpintervenant =~ s/^([^,]+),\s*([^,]+,\s*)*([^,]*)\W*$/$1/g) {
    171172                                $tmpfonction = $3;
Note: See TracChangeset for help on using the changeset viewer.