--- db/prgsrc/updatedb.pl	2002/01/12 00:55:33	1.22
+++ db/prgsrc/updatedb.pl	2002/01/12 05:01:36	1.23
@@ -22,7 +22,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.22 2002/01/12 00:55:33 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.23 2002/01/12 05:01:36 roma7 Exp $
 
 =cut
 
@@ -74,6 +74,7 @@ sub getField {
 		$value =~ s/-(.*)-/-$month-/;
 		$value =~ s/-00*$/-01/;
 	    }
+            $value =~ s/\s+$//;
 	    $value = $dbh->quote($value);
 	    return ($key, $value);
 	}
@@ -90,6 +91,7 @@ sub getField {
 	}
     }
     if ($key && $value) {
+        $value=~s/\s+$//;
 	$value = $dbh->quote($value);
 	return ($key, $value);
     }
@@ -135,7 +137,6 @@ sub UpdateTournament {
 
 sub UpdateQuestion {
     my ($dbh, $QuestionId, $field, $value) = @_;
-    $value=~s/\s*$//;
     $dbh->do("UPDATE Questions SET $field=$value 
 		WHERE QuestionId=$QuestionId")
 	or die $dbh->errstr;