Changeset 2491


Ignore:
Timestamp:
Nov 13, 2011, 6:42:05 PM (9 years ago)
Author:
goya
Message:

plus correct

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/hemicycle/parse_hemicycle.pl

    r2487 r2491  
    116116    $intervention = lc shift;
    117117    foreach $k (keys %ploi) {
    118         $k =~ s/[\(\)]/./g;
    119         if ($intervention =~ /$k/i) {
     118        $k2 = $k;
     119        $k2 =~ s/[\(\)]/./g;
     120        if ($intervention =~ /$k2/i) {
    120121            $ploi{$titre} = $ploi{$k};
    121122            return $ploi{$k};
Note: See TracChangeset for help on using the changeset viewer.