Changeset 1750 for cpc/trunk/project/batch

Timestamp:

Dec 9, 2010, 1:23:56 AM (10 years ago)

Author:

roux

Message:

ajout parsing délégations et offices

File:

• cpc/trunk/project/batch/depute/parse_depute.pl (modified) (2 diffs)

cpc/trunk/project/batch/depute/parse_depute.pl

@@ -86 +86 @@
         last if ($t->[0] =~ /^\//);
         $_ = $p->get_text('/span');
-        if (/Mandat|Commission|Mission/) {
+        if (/Mandat|Commission|Mission|Office|Délégation/) {
             $text = $p->get_text('ul', '/ul');
             if ($text =~ /Date de début de mandat : ([\d\/]+) /) {
@@ -92 +92 @@
             }
             while ($t = $p->get_tag('li', '/li', '/ul')) {
+print $t->[0];
                 last if ($t->[0] =~ /^\//);
                 $text = $p->get_text('/li');