--- db/prgsrc/mkdb.pl	2003/01/08 21:54:49	1.15
+++ db/prgsrc/mkdb.pl	2005/07/05 16:12:12	1.17
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: mkdb.pl,v 1.15 2003/01/08 21:54:49 roma7 Exp $
+=head1 $Id: mkdb.pl,v 1.17 2005/07/05 16:12:12 boris Exp $
 
 =cut
 
@@ -57,7 +57,7 @@ print "Before connecting to the DB\n";
 		or die "Can't connect to DB chgk\n" . $dbh->errstr;
 print "Connected successfully\n";
 
-	@tbl_list = $dbh->func( '_ListTables' );
+	@tbl_list = $dbh->tables();
 
  	&CheckTable("Questions");
 	$dbh->do("CREATE TABLE Questions (
@@ -71,6 +71,7 @@ print "Connected successfully\n";
 		        KEY TypeKey (Type),
 		Question 	TEXT,
 		Answer 		TEXT,
+		PassCriteria	TEXT,
 		Authors 	TEXT,
 		Sources 	TEXT,
 		Comments 	TEXT,