db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.11, 2000/10/24 17:59:25	version 1.13, 2001/01/26 12:09:32
Line 176 sub PrintSearch {	Line 176 sub PrintSearch {

$sstr =~ s/(.)/&NoCase($1)/ge;	$sstr =~ s/(.)/&NoCase($1)/ge;

my(@sar) = split(/\s/, $sstr);	my(@sar) = split(' ', $sstr);
for ($i = 0; $i <= $#Questions; $i++) {	for ($i = 0; $i <= $#Questions; $i++) {
$output = &PrintQuestion($dbh, $Questions[$i], 1, $i + 1, 1);	$output = &PrintQuestion($dbh, $Questions[$i], 1, $i + 1, 1);
foreach (@sar) {	foreach (@sar) {
Line 465 sub GetQNum {	Line 465 sub GetQNum {
$sth->execute;	$sth->execute;
return ($sth->fetchrow)[0];	return ($sth->fetchrow)[0];
}	}
	sub GetMaxQId {
	my ($dbh) = @_;
	my ($sth) = $dbh->prepare("SELECT MAX(QuestionId) FROM Questions");
	$sth->execute;
	return ($sth->fetchrow)[0];
	}

# Returns Id's of 12 random questions	# Returns Id's of 12 random questions
sub Get12Random {	sub Get12Random {
my ($dbh, $type, $num) = @_;	my ($dbh, $type, $num) = @_;
my ($i, @questions, $q, $t, $sth);	my ($i, @questions, $q, $t, $sth);
my ($qnum) = &GetQNum($dbh);	my ($qnum) = &GetMaxQId($dbh);
my (%chosen);	my (%chosen);
srand;	srand;