Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.34, 2003/02/07 23:20:15 | version 1.35, 2003/02/24 13:59:27 |
---|---|
Line 90 sub getField { | Line 90 sub getField { |
$value =~ s/-(.*)-/-$month-/; | $value =~ s/-(.*)-/-$month-/; |
$value =~ s/-00*$/-01/; | $value =~ s/-00*$/-01/; |
} | } |
if ($key eq 'Автор') {$value=~s/\.$//;} | |
$value = $dbh->quote($value); | $value = $dbh->quote($value); |
return ($key, $value); | return ($key, $value); |
} | } |