--- db/prgsrc/updatedb.pl	2003/02/07 23:20:15	1.34
+++ db/prgsrc/updatedb.pl	2003/02/24 13:59:27	1.35
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.34 2003/02/07 23:20:15 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.35 2003/02/24 13:59:27 roma7 Exp $
 
 =cut
 
@@ -90,6 +90,7 @@ sub getField {
 		$value =~ s/-(.*)-/-$month-/;
 		$value =~ s/-00*$/-01/;
 	    }
+	    if ($key eq 'Автор') {$value=~s/\.$//;}
 	    $value = $dbh->quote($value);
 	    return ($key, $value);
 	}