version 1.19, 2000/11/11 04:05:52
|
version 1.20, 2001/07/21 23:59:52
|
Line 70 sub getField {
|
Line 70 sub getField {
|
chomp $key; |
chomp $key; |
if ($key eq 'δΑΤΑ') { |
if ($key eq 'δΑΤΑ') { |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
my($month) = $RevMonths{$2} || '000'; |
my($month) = $RevMonths{$2} || '01'; |
$value =~ s/$2/$month/; |
$value =~ s/-(.*)-/-$month-/; |
|
$value =~ s/-00*$/-01/; |
} |
} |
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
return ($key, $value); |
return ($key, $value); |