--- db/prgsrc/updatedb.pl	2000/11/11 04:05:52	1.19
+++ db/prgsrc/updatedb.pl	2001/07/21 23:59:52	1.20
@@ -22,7 +22,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.19 2000/11/11 04:05:52 boris Exp $
+=head1 $Id: updatedb.pl,v 1.20 2001/07/21 23:59:52 boris Exp $
 
 =cut
 
@@ -70,8 +70,9 @@ sub getField {
 	    chomp $key;
 	    if ($key eq 'δΑΤΑ') {
 		$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;
-		my($month) = $RevMonths{$2} || '000';
-		$value =~ s/$2/$month/;
+		my($month) = $RevMonths{$2} || '01';
+		$value =~ s/-(.*)-/-$month-/;
+		$value =~ s/-00*$/-01/;
 	    }
 	    $value = $dbh->quote($value);
 	    return ($key, $value);