Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.21, 2002/01/07 01:32:26 | 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 90 sub getField { | Line 91 sub getField { |
} | } |
} | } |
if ($key && $value) { | if ($key && $value) { |
$value=~s/\s+$//; | |
$value = $dbh->quote($value); | $value = $dbh->quote($value); |
return ($key, $value); | return ($key, $value); |
} | } |