--- db/prgsrc/updatedb.pl	2002/01/12 05:01:36	1.23
+++ db/prgsrc/updatedb.pl	2002/01/15 03:34:31	1.24
@@ -22,7 +22,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.23 2002/01/12 05:01:36 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.24 2002/01/15 03:34:31 roma7 Exp $
 
 =cut
 
@@ -67,6 +67,7 @@ sub getField {
 	s/[
]//g;
 	if ($key && /^\s*$/) {
 	    chomp $value;
+            $value =~ s/\s+$//;
 	    chomp $key;
 	    if ($key eq 'δΑΤΑ') {
 		$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;
@@ -74,7 +75,6 @@ sub getField {
 		$value =~ s/-(.*)-/-$month-/;
 		$value =~ s/-00*$/-01/;
 	    }
-            $value =~ s/\s+$//;
 	    $value = $dbh->quote($value);
 	    return ($key, $value);
 	}