Ignore:
Timestamp:
Jan 30, 2012, 8:38:49 AM (9 years ago)
Author:
goya
Message:

fix commissions plantées et manquantes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/commission/parse_presents.pl

    r1691 r2607  
    4949        return ;
    5050    }
     51    $commission =~ s/"//g;
    5152    foreach $depute (@presents) {
    5253        $depute =~ s/[\/<\|]//g;
     
    8687        if ($line =~ /<a name=["']([^"']+)["']/) {
    8788            $source = $url."#$1";
    88         }elsif($line =~/class="menu"/ && $line =~ /<a[^>]+>([^<]+)</) {
     89        }elsif($line =~/class="menu"/ && $line =~ /<a[^>]+>([^<]+)<?/) {
    8990            $test = $1;
    9091            if (!$commission && $test =~ /Commission|mission/) {
Note: See TracChangeset for help on using the changeset viewer.