Changeset 2640 for cpc/trunk/project

Timestamp:

Feb 13, 2012, 8:55:22 PM (9 years ago)

Author:

goya

Message:

fix amdmts identiques

File:

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

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

@@ -90 +90 @@
     $line =~ s/\s*EXPOSÉ SOMMAIRE\s*//g;
     $line =~ s/\s+,/,/g;
-    if (!$line =~ /^$/) {
+    $line =~ s/^de M/M/;
+    if (!$line =~ /^$/ && (!$amdmt{'auteurs'} || $amdmt{'auteurs'} !~  /, $line/)) {
         $amdmt{'auteurs'} = $amdmt{'auteurs'}.", ".$line;
     }
@@ -102 +103 @@
     if ($line2 !~ /^$/ && !($line2 =~ /\s*Adt\s+n°\s*$/)) {
         $output = 'texte';
-        if ($texte == 2) { $output = 'expose'; }
+        if ($texte == 2) {
+           return if $line2 =~ /^\s*\d+\s*$/;
+           $output = 'expose';
+        }
         if (!$amdmt{$output}) { $amdmt{$output} = "<p>".$line2."</p>"; }
         else { $amdmt{$output} = $amdmt{$output}."<p>".$line2."</p>"; }
@@ -206 +210 @@
             $line =~ s/<[^>]+>//g;
             $amdmt{'sujet'} = $line;
-    } elsif ($line =~ /class="presente"/i) {
-        if ($presente == 0) {
+    } elsif ($line =~ /class="presente"/i || $line =~ /<div>\s*(de )?M[Mmel.s]+ /) {
+        $texte = 0 if ($texte == 2);
+        if ($presente != 1) {
             $presente = 1;
         } elsif ($texte >= 1 && $line =~ /font-style: italic/i) {