Changeset 2638 for cpc/trunk/project


Ignore:
Timestamp:
Feb 10, 2012, 9:42:26 PM (9 years ago)
Author:
goya
Message:

refix

File:
1 edited

Legend:

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

    r2636 r2638  
    9898    $line2 = $line;
    9999    $line2 =~ s/\s*\<\/?[^\>]+\>//g;
    100     $line2 =~ s/^[ \s]*//;
    101     $line2 =~ s/[\s ]*$//;
     100    $line2 =~ s/^[ \s]+(\w)/\1/;
     101    $line2 =~ s/[\s ]+$//;
    102102    if ($line2 !~ /^$/ && !($line2 =~ /\s*Adt\s+n°\s*$/)) {
    103103        $output = 'texte';
     
    123123    } elsif ($line =~ /adopt/i) {
    124124        $amdmt{'sort'} = 'Adopté';
     125    } elsif ($line =~ /Re/) {
     126        $amdmt{'sort'} = 'Retiré';
    125127    }
    126128}
     
    171173
    172174$string =~ s/\r//g;
    173 $string =~ s/\t//g;
     175$string =~ s/\t+/ /g;
    174176$string =~ s/\s*\n+\s*/\n/g;
    175177$string =~ s/&nbsp;/ /g;
    176178$string =~ s/\|(\W+)\|/$1/g;
    177 $string =~ s/([^>])\n/\1/g;
    178 $string =~ s/>\n([^<])/> \1/g;
     179$string =~ s/([^\n>]+)\n/\1 /g;
     180$string =~ s/>\n([^\n<]+)/> \1/g;
    179181foreach $line (split /\n/, $string)
    180182{
Note: See TracChangeset for help on using the changeset viewer.