Changeset 2456


Ignore:
Timestamp:
Nov 3, 2011, 5:52:45 PM (9 years ago)
Author:
komodo
Message:

fix pbs noms

File:
1 edited

Legend:

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

    r2455 r2456  
    183183                        print_inter() if ($tmpintervenant ne $intervenant);
    184184                        $intervenant = $tmpintervenant;
     185                        $intervenant =~ s/[\s-_\(\)\[\],;"'<>«»]+$//;
    185186                        $fonction = $tmpfonction;
    186187                        $url_intervenant = $1 if ($inter =~ /href="([^"]+senfic\/[^"]+)"/i);
    187188                }
    188189                $inter =~ s/<[^>]+>//g;
    189                 print_inter() if ($inter =~ /^La commission /);
     190                print_inter() if ($inter =~ /^La (com)?mission /);
    190191                $sintervenant = $intervenant;
    191192                $sintervenant =~ s/([\(\)\*])/\\$1/g;
Note: See TracChangeset for help on using the changeset viewer.