Changeset 2433


Ignore:
Timestamp:
Oct 31, 2011, 2:51:14 AM (9 years ago)
Author:
komodo
Message:

fix division seance à 17h

File:
1 edited

Legend:

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

    r2432 r2433  
    124124
    125125$doc =~ s/(class="titre_S1"[^>]*>[^<]*)\s*<[^\n]*\n[^\n]*class="titre_S1"[^>]*>\s*/\1 /g;
    126 $resetcontexte = 0;
     126$resetcontexte = $oldhtab = 0;
    127127foreach (split /\n/, $doc) {
    128128    s/&(nbsp|#160);/ /ig;
     
    144144                        $h = heurize($3);
    145145                        ($htab) = split /:/, $h;
    146                         if (!$heure || ($htab >= 14 && $oldhtab < 14) || ($htab >= 20 && $oldhtab < 20)) {
     146print "TEST : $oldhtab / $htab\n";
     147                        if (!$heure || ($htab >= 14 && $oldhtab < 15) || ($htab >= 20 && $oldhtab < 20)) {
    147148                            print_inter();
    148                             $resetcontexte = 1 if ($heure);
     149                            $intervention = "<p>$didasc</p>";
     150                            $oldhtab = $htab;
    149151                            if (!$heure) {
    150                                 $intervention = "<p>$didasc</p>";
    151152                                $heure = $h;
    152153                                print_inter();
    153154                                next;
    154155                            }
    155                             $intervention  = "<p>$didasc</p>";
    156156                            print_inter();
     157                            $resetcontexte = 1 if ($heure);
    157158                            $heure = $h;
    158                             $oldhtab = $htab;
    159159                            $timestamp = 0;
    160160                        }
     
    208208                $i = $1;
    209209                $i =~ s/<[^>]*>//g;
     210                $i =~ s/\s+/ /g;
    210211                $intervention .= "<p>".$i."</p>";
    211212                $didasc = $2;
     
    234235        if (s/.*id="(intv_|)par_[^>]*>\s*(.*)\s*<\/p>.*/$2/i) {
    235236                s/(<span.*|)<\/span>\s*//i;
     237                s/\.\.+//g;
    236238                s/\s+$//;
    237                 s/\.\.+//g;
    238239                s/<\/sup><i>/<\/sup> <i>/gi;
    239240                if ($_) {
     
    251252                                $subcontext = $_;
    252253                                $subcontext =~ s/<[^>]+>//g;
     254                                $subcontext =~ s/\s+/ /g;
    253255                                $intervention = "<p>$subcontext</p>";
    254256                                print_inter();
Note: See TracChangeset for help on using the changeset viewer.