Ignore:
Timestamp:
Apr 4, 2012, 1:45:30 PM (9 years ago)
Author:
goya
Message:

fix parsing amdmts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/amendements/cut_amdmt.pl

    r2649 r2652  
    3939$string =~ s/(\<p class="presente".*)\s*\<br[\/]?\>\s*[\n]?\s*(.*)/\1, \2/g;
    4040$string =~ s/\<br\>.*\n//g;
    41 $string =~ s/&#8217;/'/g;
     41$string =~ s/(&#8217;|’)/'/g;
    4242$string =~ s/&#339;/oe/g;
    4343$string =~ s/&#8211;/-/g;
     
    107107           $output = 'expose';
    108108        }
     109        $line2 =~ s/"\s*([^"]*)\s*"/« \1 »/g;
    109110        if (!$amdmt{$output}) { $amdmt{$output} = "<p>".$line2."</p>"; }
    110111        else { $amdmt{$output} = $amdmt{$output}."<p>".$line2."</p>"; }
Note: See TracChangeset for help on using the changeset viewer.