Changeset 2471 for cpc/branches/senat/project/batch/hemicycle/parse_hemicycle.pl

Timestamp:

Nov 5, 2011, 1:55:24 AM (9 years ago)

Author:

komodo

Message:

fix didascalies mal placées + m. mme restants

File:

• cpc/branches/senat/project/batch/hemicycle/parse_hemicycle.pl (modified) (4 diffs)

cpc/branches/senat/project/batch/hemicycle/parse_hemicycle.pl

@@ -178 +178 @@
                         $tmpinter = $1;
                 }
-                $tmpinter =~ s/^\s*M[mles]{0,3}[\.\s]+//;
                 $tmpfonction = '';
                 $tmpurl_inter = '';
@@ -189 +188 @@
                 $tmpinter =~ s/<[^>]*>//g;
                 $tmpinter =~ s/[\.,]\s*$//;
+                $tmpinter =~ s/^\s*M[mles]{0,3}[\.\s]+//;
                 $tmpfonction =~ s/[\.,]\s*$//;
                 #Cas mauvais formatage des interventions
@@ -212 +212 @@
                 s/<span class="info_entre_parentheses">([^\(][^<]*)<\/span>/<i>\1<\/i>/g;
         }
-
+        s/<\/sup><i>/<\/sup> <i>/gi;
         if (!(/"titre_S([123][^"]*)"/ || /"mention_(article)"/)) {
+            s/<\/?(sup|br?|strong)\/?>//gi;
             while (s/([^>]*)<(i|span class="info_entre_parentheses")>\(([^\)]*)\)?<\/(i|span)>([\.\s\)]*)//) {
                 $i = $1;
@@ -253 +254 @@
                 s/\.\.\.\.+//g;
                 s/\s+$//;
-                s/<\/sup><i>/<\/sup> <i>/gi;
                 if ($_) {
                         if ($iscontext) {