Changeset 2459


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

oups

File:
1 edited

Legend:

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

    r2458 r2459  
    168168                        $tmpintervenant =~ s/^M[mlmes\.\s]{1,4}//i;
    169169                        $tmpintervenant =~ s/ et /, /g;
    170                         if ($tmpintervenant =~ s/^([^,]+)(,[^,]+)*,\s*([^,]*)\W*$/$1/g) {
     170                        if ($tmpintervenant =~ s/^([^,]+),\s*([^,]+,\s*)*([^,]*)\W*$/$1/g) {
    171171                                $tmpfonction = $3;
     172                                $tmpfonction = $2.$tmpfonction if ($2 !~ / M[mlmes\.\s]/);
    172173                                $fonctions{$tmpintervenant} = $tmpfonction;
    173174                        } elsif ($tmpintervenant =~ s/^([^,]+), ([^,]*).*/$1/g) {
     
    194195                $sfonction = $fonction;
    195196                $sfonction =~ s/([\(\)\*])/\\$1/g;
    196                 $inter =~ s/^[^\w\&]*$sintervenant[^\w\&]*($sfonction[^\w\&]*|)//;
     197                $inter =~ s/^[^\w\&]*(M[mlmes\.\s]{1,4})?$sintervenant[^\w\&]*($sfonction[^\w\&]*|)//;
    197198                $intervention .= '<p>'.$inter.'</p>' if ($inter =~ /[a-z]/i);
    198199        }
Note: See TracChangeset for help on using the changeset viewer.