Changeset 2464


Ignore:
Timestamp:
Nov 4, 2011, 2:43:27 PM (9 years ago)
Author:
komodo
Message:

fix encoding + chgt section on didascalie + points de suspension

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/branches/senat/project/batch/hemicycle/parse_hemicycle.pl

    r2462 r2464  
    132132foreach (split /\n/, $doc) {
    133133    s/&(nbsp|#160);/ /ig;
     134    utf8::decode($_);
    134135    s/ n<sup>[0os\s]+<\/sup>\s*/ n° /ig;
    135     utf8::decode($_);
    136136    $_ = decode_entities($_);
    137137    if (/<\/span><span([^>]*>)/ && $1 !~ /orateur_qualite/) {
     
    211211        }
    212212
    213         while (s/([^>]*)<(i|span class="info_entre_parentheses")>\(([^\)]*)\)?<\/(i|span)>([\.\s\)]*)//) {
     213        if (!(/"titre_S([123][^"]*)"/ || /"mention_(article)"/)) {
     214            while (s/([^>]*)<(i|span class="info_entre_parentheses")>\(([^\)]*)\)?<\/(i|span)>([\.\s\)]*)//) {
    214215                $i = $1;
    215216                $didasc = $3;
    216217                $i =~ s/<[^>]*>//g;
    217218                $i =~ s/\s+/ /g;
    218                 $intervention .= "<p>".$i."</p>";
    219                 $didasc =~ s/<[^>]*>//gi;
    220                 $didasc =~ s/\)//g;
    221                 $predida_inter = $inter;
    222                 $predida_urlinter = $url_inter;
    223                 $predida_fonction = $fonction;
    224                 print_inter();
    225                 $intervention = '<p>'.$didasc.'</p>';
    226                 print_inter();
    227                 $inter = $predida_inter;
    228                 $url_inter = $predida_urlinter;
    229                 $fonction = $predida_fonction;
    230         }
     219                $i =~ s/\s+$//;
     220                $intervention .= "<p>".$i."</p>";
     221                $didasc =~ s/<[^>]*>//gi;
     222                $didasc =~ s/\)//g;
     223                $predida_inter = $inter;
     224                $predida_urlinter = $url_inter;
     225                $predida_fonction = $fonction;
     226                print_inter();
     227                $intervention = '<p>'.$didasc.'</p>';
     228                print_inter();
     229                $inter = $predida_inter;
     230                $url_inter = $predida_urlinter;
     231                $fonction = $predida_fonction;
     232            }
     233        }
     234
    231235        if (/class="titre_/) {
    232236                if ($inter) {
     
    234238                }
    235239        }
     240
    236241        $iscontext = '';
    237242        if (/"titre_S([123][^"]*)"/ || /"mention_(article)"/) {
     
    241246        if (s/.*id="(intv_|)par_[^>]*>\s*(.*)\s*<\/p>.*/$2/i) {
    242247                s/(<span.*|)<\/span>\s*//i;
    243                 s/\.\.+//g;
     248                s/\.\.\.\.+//g;
    244249                s/\s+$//;
    245250                s/<\/sup><i>/<\/sup> <i>/gi;
     
    272277                }
    273278        }
     279
    274280}
    275281print_inter();
Note: See TracChangeset for help on using the changeset viewer.