db/prgsrc/mkdb.pl - diff

Return to mkdb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.14, 2002/01/08 01:08:08	version 1.16, 2004/08/28 23:47:41
Line 37 sub CheckTable	Line 37 sub CheckTable
my ($TabName) = @_;	my ($TabName) = @_;
my ($ans);	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? ";	print "Table $TabName exists. Do you want to delete it? ";
$ans = <STDIN>;	$ans = <STDIN>;
if ($ans =~ /[yY]/) {	if ($ans =~ /[yY]/) {
Line 71 print "Connected successfully\n";	Line 71 print "Connected successfully\n";
KEY TypeKey (Type),	KEY TypeKey (Type),
Question TEXT,	Question TEXT,
Answer TEXT,	Answer TEXT,
	PassCriteria TEXT,
Authors TEXT,	Authors TEXT,
Sources TEXT,	Sources TEXT,
Comments TEXT,	Comments TEXT,