Ignore:
Timestamp:
Feb 5, 2011, 4:50:25 PM (10 years ago)
Author:
teymour
Message:

Ajout de la date d'une fonction

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/depute/parse_depute.pl

    r1767 r1775  
    2020sub infosgene {
    2121    $p = shift;
     22print $p;
    2223    $t = $p->get_tag("li");
    2324    $depute{'Nom'} = $p->get_text("/li");
     
    9495                last if ($t->[0] =~ /^\/li/);
    9596                $text = $p->get_text('/li');
    96                 if  ($text =~ /^([^(]\S+\s*\S*\s*(\S\S\S+\s*\S*\s*\S*|))( du | de la | de l')\s*([^:]*)/) {
     97                if  ($text =~ /^([^(]\S+\s*\S*\s*(\S\S\S+\s*\S*\s*\S*|))( du | de la | de l')\s*(.*)/) {
    9798                    $fonction = $1;
    9899                    next if ($fonction =~ /Mandat/);
     
    102103                    $fonction =~ s/ par les groupes//;
    103104                    $fonction =~ s/ du bureau//;
    104                     $orga =~ s/depuis le//;
    105105                    $orga =~ s/\s+$//;
    106106                    $orga =~ s/Assemblée Nationale/Bureau de l'Assemblée Nationale/;
     
    109109                        $deb = $1;
    110110                    }
     111                    $orga =~ s/ :.*//;
    111112                }
    112113                if ($fonction =~ /reprise de l'exercice/i) {
Note: See TracChangeset for help on using the changeset viewer.