--- db/prgsrc/mkdb.pl	2001/12/25 04:05:46	1.12
+++ db/prgsrc/mkdb.pl	2002/01/08 01:08:08	1.14
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: mkdb.pl,v 1.12 2001/12/25 04:05:46 roma7 Exp $
+=head1 $Id: mkdb.pl,v 1.14 2002/01/08 01:08:08 boris Exp $
 
 =cut
 
@@ -67,7 +67,7 @@ print "Connected successfully\n";
 			KEY ParentIdKey (ParentId),
 		Number 	       SMALLINT UNSIGNED NOT NULL,
 			KEY NumberKey (Number),
-		Type 		CHAR(5),
+		Type 		CHAR(5) NOT NULL DEFAULT 'þ',
 		        KEY TypeKey (Type),
 		Question 	TEXT,
 		Answer 		TEXT,
@@ -75,6 +75,7 @@ print "Connected successfully\n";
 		Sources 	TEXT,
 		Comments 	TEXT,
                 Rating          TEXT,
+                Topic           TEXT,
                 ProcessedBySearch  INT
 	)")
 	or die "Can't create Questions table: $!\n";