--- db/prgsrc/updatedb.pl 2002/01/07 01:32:26 1.21 +++ 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.21 2002/01/07 01:32:26 boris 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); }