Changeset 2457


Ignore:
Timestamp:
Nov 3, 2011, 7:19:31 PM (9 years ago)
Author:
komodo
Message:

arf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/branches/senat/project/batch/commission/parse_commission.pl

    r2456 r2457  
    8888$interstrong = 1 if ($content =~ /<(a|strong)[^>]*>\s*($recointer[^<]*)<\/(a|strong)>/i);
    8989foreach (split /\n/, $content) {
     90        last if (/END : primary/);
    9091        s/ n<sup>[0os\s]+<\/sup>\s*/ n° /ig;
    9192        $begin = 1 if (/name="toc1"/);
     
    183184                        print_inter() if ($tmpintervenant ne $intervenant);
    184185                        $intervenant = $tmpintervenant;
    185                         $intervenant =~ s/[\s-_\(\)\[\],;"'<>«»]+$//;
     186                        $intervenant =~ s/[\s-_\.,;"'<>«»]+$//;
    186187                        $fonction = $tmpfonction;
    187188                        $url_intervenant = $1 if ($inter =~ /href="([^"]+senfic\/[^"]+)"/i);
Note: See TracChangeset for help on using the changeset viewer.