Ignore:
Timestamp:
Oct 14, 2010, 12:04:43 AM (11 years ago)
Author:
teymour
Message:

correction du parsing pour avoir des fonctions canalisées

File:
1 edited

Legend:

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

    r1700 r1728  
    8787        $_ = $p->get_text('/span');
    8888        if (/Mandat|Commission|Mission/) {
    89             $text = $p->get_text('ul');
     89            $text = $p->get_text('ul', '/ul');
    9090            if ($text =~ /Date de début de mandat : ([\d\/]+) /) {
    9191                $depute{'Debut_Mandat'} = $1;
    9292            }
    93             while ($t = $p->get_tag('li', '/li')) {
     93            while ($t = $p->get_tag('li', '/li', '/ul')) {
    9494                last if ($t->[0] =~ /^\//);
    9595                $text = $p->get_text('/li');
     
    167167    }elsif (/Contacts et site internet/) {
    168168        contact($p);
    169     }elsif (/Mandats et fonctions à l'Assemblée nationale/) {
     169    }elsif (/Mandats et fonctions à l'Assemblée nationale/ && ! /Anciens/) {
    170170        mandat($p);
    171171    }elsif (/Organismes extra-parlementaires/) {
Note: See TracChangeset for help on using the changeset viewer.