|
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); |
| } |
} |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updatedb.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc