Changeset 3064


Ignore:
Timestamp:
Jan 6, 2013, 3:42:31 PM (8 years ago)
Author:
roux
Message:

catch more sections titles

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/loi/parse_loi.pl

    r1674 r3064  
    103103sub handle_text {
    104104  if ($deftitre =~ /^none$/) {
    105     if (($titre_chap =~ /^titre$/ && $content =~ /^\s*(T|t)(itre|ITRE)\s+(\d+|[IVX]+)(ER|er)?/) || (!($titre_chap =~ /^titre$/) && $content =~ /^\s*(T|CHAP|Chap)(itre|ITRE)\s+(\d+|[IVX]+)(ER|er)?/)) {
     105    if (($titre_chap =~ /^titre$/ && $content =~ /^\s*(T|t)(itre|ITRE)\s+(\d+|[IVX]+)(ER|er)?/) || (!($titre_chap =~ /^titre$/) && $content =~ /^\s*(T|CHAP|Chap)(itre|ITRE)\s+(\d+|[IVXivx]+)(ER|er)?/)) {
    106106      $chapitre++;
    107107      $section = 0;
    108108      $deftitre = 'chapitre';
    109     } elsif (($titre_chap =~ /^titre$/ && $content =~ /^\s*(C|c)(HAPITRE|hapitre)\s+(\d+|[IVX]+)(ER|er)?/) || (!($titre_chap =~ /^titre$/) && $content =~ /^\s*section\s+\d+/i)) {
     109    } elsif (($titre_chap =~ /^titre$/ && $content =~ /^\s*(C|c)(HAPITRE|hapitre)\s+(\d+|[IVXivx]+)(ER|er)?/) || (!($titre_chap =~ /^titre$/) && $content =~ /^\s*section\s+\d+/i)) {
    110110      $section++;
    111111      $deftitre = 'section';
Note: See TracChangeset for help on using the changeset viewer.