--- db/prgsrc/mkdb.pl	2005/12/10 00:03:55	1.19
+++ db/prgsrc/mkdb.pl	2009/12/12 13:15:08	1.23
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: mkdb.pl,v 1.19 2005/12/10 00:03:55 roma7 Exp $
+=head1 $Id: mkdb.pl,v 1.23 2009/12/12 13:15:08 roma7 Exp $
 
 =cut
 
@@ -56,7 +56,7 @@ print "Before connecting to the DB\n";
 	$dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")
 		or die "Can't connect to DB chgk\n" . $dbh->errstr;
 print "Connected successfully\n";
-        $dbh->do("SET NAMES 'koi8r'");
+if ($dbh->get_info( 18 )=~/^(5|(4.1))/)  {$dbh->do("SET NAMES 'koi8r'");}
 	@tbl_list = $dbh->tables();
 
  	&CheckTable("Questions");
@@ -77,7 +77,8 @@ print "Connected successfully\n";
 		Comments 	TEXT,
                 Rating          TEXT,
                 Topic           TEXT,
-                ProcessedBySearch  INT
+                ProcessedBySearch  INT,
+		FULLTExt key fullindex(Question, Answer, PassCriteria, Comments)
 	) TYPE=MyISAM"
 	. (($dbh->get_info( 18 )=~/^(5|(4.1))/)?' DEFAULT CHARSET=koi8r':'')
 )
@@ -101,6 +102,8 @@ print "Connected successfully\n";
                 Editors         TEXT,
                 EnteredBy       TEXT,
 		PlayedAt 	DATE,
+		PlayedAt2       DATE,		
+		KandId          INT,		
 		CreatedAt 	DATE NOT NULL
 	) TYPE=MyISAM"
 	. (($dbh->get_info( 18 )=~/^(5|(4.1))/)?' DEFAULT CHARSET=koi8r':'')