Changeset 296 for obsdata/trunk

Timestamp:

11/15/06 21:55:38 (18 years ago)

Author:

nanardon

Message:

• year is coded using 2 digit, so using usuall workaround, assume 21 centuries if year is less than 70

File:

• obsdata/trunk/ourplugins/ddu_trans.pl (modified) (2 diffs)

obsdata/trunk/ourplugins/ddu_trans.pl

@@ -43 +43 @@
             if ($line =~ /^(\x1B)(8) {63}([ \d]{2})-([ \d]{2})-([ \d]{2})  ([ \d]{2}):([ \d]{2})/) {
                 my %date = (
-                    annee => $5,
+                    annee => $5 + ($5 < 70 ? 2000 : 1900),
+                    annee2 => $5,
                     jour => $3,
                     mois => $4,
@@ -49 +50 @@
                     minute => $7,
                 );
-                $date{'annee2'} = ($date{annee} =~ /(\d\d)$/)[0];
                 return (1, %date, transnum => $transidx);
             }