--- db/prgsrc/mkdb.pl	2002/01/08 01:08:08	1.14
+++ db/prgsrc/mkdb.pl	2004/08/28 23:47:41	1.16
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: mkdb.pl,v 1.14 2002/01/08 01:08:08 boris Exp $
+=head1 $Id: mkdb.pl,v 1.16 2004/08/28 23:47:41 roma7 Exp $
 
 =cut
 
@@ -37,7 +37,7 @@ sub CheckTable
 	my ($TabName) = @_;
 	my ($ans);
 
-	if (scalar(grep(/^$TabName$/, @tbl_list))) {
+	if (scalar(grep(/^$TabName$/i, @tbl_list))) {
 		print "Table $TabName exists. Do you want to delete it? ";
 		$ans = <STDIN>;
 		if ($ans =~ /[yY]/) {
@@ -71,6 +71,7 @@ print "Connected successfully\n";
 		        KEY TypeKey (Type),
 		Question 	TEXT,
 		Answer 		TEXT,
+		PassCriteria	TEXT,
 		Authors 	TEXT,
 		Sources 	TEXT,
 		Comments 	TEXT,