--- db/prgsrc/updatedb.pl	2000/10/17 01:54:16	1.2
+++ db/prgsrc/updatedb.pl	2000/10/17 02:24:47	1.3
@@ -22,7 +22,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.2 2000/10/17 01:54:16 boris Exp $
+=head1 $Id: updatedb.pl,v 1.3 2000/10/17 02:24:47 boris Exp $
 
 =cut
 
@@ -35,6 +35,10 @@ my (%RevMonths) =
 	 'οΛΤ', '9', 'ξΟΡ', '19', 'δΕΛ', '11');
 my ($sth);
 
+use vars qw($/);
+
+$/=/\n
*/;
+
 use DBI;
 use strict;
 
@@ -171,7 +175,7 @@ MAIN:
 						WHERE Id=$TourId");
 				}
 				$qnum = 0;
-				$qtype = "'ώ'";
+				$qtype = "ώ";
 				$sth = $dbh->prepare("INSERT INTO Tournaments
 					(Title, Type, ParentId, CreatedAt) 
 					VALUES ($value, 'τ', $TournamentId, $CreatedAt)");
@@ -187,7 +191,7 @@ MAIN:
 				$sth = $dbh->prepare("INSERT INTO Questions 
 					(ParentId, Number, Type) 
 					VALUES ($TourId, $qnum+1, $qtype)");
-				$sth->execute;
+				$sth->execute or print "Problem at $qnum";
 				$QuestionId = $sth->{mysql_insertid};
 				&UpdateQuestion($dbh, $QuestionId, "Question", $value);
 				$qnum++;