Changeset 2446


Ignore:
Timestamp:
Nov 2, 2011, 5:25:35 AM (9 years ago)
Author:
komodo
Message:

fix titres suites + multiples auteurs commissions

File:
1 edited

Legend:

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

    r2441 r2446  
    126126                $context =~ s/ / /g;
    127127                $context =~ s/ -{1,2} / > /;
     128                $context =~ s/[\s\(]+suite[\s\)]*$//i;
    128129                $intervention = '<p>'.$titre.'</p>';
    129130                %fonctions = ();
     
    165166                        $tmpintervenant = $2;
    166167                        $tmpintervenant =~ s/<[^>]*>//g;
    167                         if ($tmpintervenant =~ s/^([^,]+), ([^,]*).*/$1/g) {
     168                        if ($tmpintervenant =~ s/^Mm\./M./i || $tmpintervenant =~ s/^Mmes/Mme/i) {
     169                                $tmpintervenant =~ s/^([^,]+)(,[^,]+)*,\s*([^,]*)\W*$/$1/g;
     170                                $tmpfonction = $3;
     171                                $fonctions{$tmpintervenant} = $tmpfonction;
     172                        } elsif ($tmpintervenant =~ s/^([^,]+), ([^,]*).*/$1/g) {
    168173                                $tmpfonction = $2;
    169174                                $tmpfonction =~ s/\W+$//;
Note: See TracChangeset for help on using the changeset viewer.