Changeset 1691 for cpc/trunk/project/batch/commission/parse_presents.pl

Timestamp:

Oct 6, 2010, 11:01:45 AM (10 years ago)

Author:

teymour

Message:

nouveau parsing pour les présents

File:

• cpc/trunk/project/batch/commission/parse_presents.pl (modified) (1 diff)

cpc/trunk/project/batch/commission/parse_presents.pl

@@ -86 +86 @@
         if ($line =~ /<a name=["']([^"']+)["']/) {
             $source = $url."#$1";
-        }elsif($line =~ /<a[^>]+>([^<]+)</) {
+        }elsif($line =~/class="menu"/ && $line =~ /<a[^>]+>([^<]+)</) {
             $test = $1;
             if (!$commission && $test =~ /Commission|mission/) {