Changeset 1750


Ignore:
Timestamp:
Dec 9, 2010, 1:23:56 AM (10 years ago)
Author:
roux
Message:

ajout parsing délégations et offices

File:
1 edited

Legend:

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

    r1728 r1750  
    8686        last if ($t->[0] =~ /^\//);
    8787        $_ = $p->get_text('/span');
    88         if (/Mandat|Commission|Mission/) {
     88        if (/Mandat|Commission|Mission|Office|Délégation/) {
    8989            $text = $p->get_text('ul', '/ul');
    9090            if ($text =~ /Date de début de mandat : ([\d\/]+) /) {
     
    9292            }
    9393            while ($t = $p->get_tag('li', '/li', '/ul')) {
     94print $t->[0];
    9495                last if ($t->[0] =~ /^\//);
    9596                $text = $p->get_text('/li');
Note: See TracChangeset for help on using the changeset viewer.