Changeset 2486


Ignore:
Timestamp:
Nov 12, 2011, 5:49:10 PM (9 years ago)
Author:
goya
Message:

fix annee manquante au jo

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/jo/parse_jo.pl

    r1748 r2486  
    33open FILE, shift;
    44$source = shift;
    5 
     5$anneepdf = $source;
     6$anneepdf =~ s/^.*\/.*\///;
    67
    78$mois{'janvier'} = '01';
     
    7273        s/ heures/:00/;
    7374        s/ h /:/;
    74         if (/([\d]+)[er]* ([\wéû]+) (\d+)/) {
    75             $reunion = "$3-".$mois{$2}."-$1";
     75        if (/([\d]+)[er]* ([\wéû]+) (à |\d+)/) {
     76            $reunion = $mois{$2}."-$1";
     77            $annee = $3;
     78            $annee = $anneepdf if ($annee !=~ /\d/);
     79            $reunion = "$annee-".$reunion;
    7680        }
    7781        if (/ à ([\d:]+)/) {
Note: See TracChangeset for help on using the changeset viewer.