--- db/prgsrc/updatedb.pl 2001/07/21 23:59:52 1.20 +++ 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.20 2001/07/21 23:59:52 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); } @@ -229,7 +231,8 @@ MAIN: # my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', 'Автор' => 'Authors', 'Рейтинг'=>'Rating', - 'Источник' => 'Sources'); + 'Источник' => 'Sources', + 'Тема' => 'Topic'); my($source);