version 1.23, 2002/01/12 05:01:36
|
version 1.24, 2002/01/15 03:34:31
|
Line 67 sub getField {
|
Line 67 sub getField {
|
s/[
]//g; |
s/[
]//g; |
if ($key && /^\s*$/) { |
if ($key && /^\s*$/) { |
chomp $value; |
chomp $value; |
|
$value =~ s/\s+$//; |
chomp $key; |
chomp $key; |
if ($key eq 'δΑΤΑ') { |
if ($key eq 'δΑΤΑ') { |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
Line 74 sub getField {
|
Line 75 sub getField {
|
$value =~ s/-(.*)-/-$month-/; |
$value =~ s/-(.*)-/-$month-/; |
$value =~ s/-00*$/-01/; |
$value =~ s/-00*$/-01/; |
} |
} |
$value =~ s/\s+$//; |
|
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
return ($key, $value); |
return ($key, $value); |
} |
} |