![[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|
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); |
| } | } |