Changeset 2607 for cpc/trunk/project/batch/commission/parse_presents.pl
- Timestamp:
- Jan 30, 2012, 8:38:49 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cpc/trunk/project/batch/commission/parse_presents.pl
r1691 r2607 49 49 return ; 50 50 } 51 $commission =~ s/"//g; 51 52 foreach $depute (@presents) { 52 53 $depute =~ s/[\/<\|]//g; … … 86 87 if ($line =~ /<a name=["']([^"']+)["']/) { 87 88 $source = $url."#$1"; 88 }elsif($line =~/class="menu"/ && $line =~ /<a[^>]+>([^<]+)< /) {89 }elsif($line =~/class="menu"/ && $line =~ /<a[^>]+>([^<]+)<?/) { 89 90 $test = $1; 90 91 if (!$commission && $test =~ /Commission|mission/) {
Note: See TracChangeset
for help on using the changeset viewer.