Ignore:
Timestamp:
Feb 13, 2012, 8:55:22 PM (9 years ago)
Author:
goya
Message:

fix amdmts identiques

File:
1 edited

Legend:

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

    r2639 r2640  
    9090    $line =~ s/\s*EXPOSÉ SOMMAIRE\s*//g;
    9191    $line =~ s/\s+,/,/g;
    92     if (!$line =~ /^$/) {
     92    $line =~ s/^de M/M/;
     93    if (!$line =~ /^$/ && (!$amdmt{'auteurs'} || $amdmt{'auteurs'} !~  /, $line/)) {
    9394        $amdmt{'auteurs'} = $amdmt{'auteurs'}.", ".$line;
    9495    }
     
    102103    if ($line2 !~ /^$/ && !($line2 =~ /\s*Adt\s+n°\s*$/)) {
    103104        $output = 'texte';
    104         if ($texte == 2) { $output = 'expose'; }
     105        if ($texte == 2) {
     106           return if $line2 =~ /^\s*\d+\s*$/;
     107           $output = 'expose';
     108        }
    105109        if (!$amdmt{$output}) { $amdmt{$output} = "<p>".$line2."</p>"; }
    106110        else { $amdmt{$output} = $amdmt{$output}."<p>".$line2."</p>"; }
     
    206210            $line =~ s/<[^>]+>//g;
    207211            $amdmt{'sujet'} = $line;
    208     } elsif ($line =~ /class="presente"/i) {
    209         if ($presente == 0) {
     212    } elsif ($line =~ /class="presente"/i || $line =~ /<div>\s*(de )?M[Mmel.s]+ /) {
     213        $texte = 0 if ($texte == 2);
     214        if ($presente != 1) {
    210215            $presente = 1;
    211216        } elsif ($texte >= 1 && $line =~ /font-style: italic/i) {
Note: See TracChangeset for help on using the changeset viewer.