Changeset 2652

Timestamp:

Apr 4, 2012, 1:45:30 PM (9 years ago)

Author:

goya

Message:

fix parsing amdmts

File:

• cpc/trunk/project/batch/amendements/cut_amdmt.pl (modified) (2 diffs)

cpc/trunk/project/batch/amendements/cut_amdmt.pl

@@ -39 +39 @@
 $string =~ s/(\<p class="presente".*)\s*\<br[\/]?\>\s*[\n]?\s*(.*)/\1, \2/g;
 $string =~ s/\<br\>.*\n//g;
-$string =~ s/&#8217;/'/g;
+$string =~ s/(&#8217;|’)/'/g;
 $string =~ s/&#339;/oe/g;
 $string =~ s/&#8211;/-/g;
@@ -107 +107 @@
            $output = 'expose';
         }
+        $line2 =~ s/"\s*([^"]*)\s*"/« \1 »/g;
         if (!$amdmt{$output}) { $amdmt{$output} = "<p>".$line2."</p>"; }
         else { $amdmt{$output} = $amdmt{$output}."<p>".$line2."</p>"; }