db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.6, 2000/10/20 04:06:54	version 1.7, 2000/10/20 05:17:03
Line 480 sub Get12Random {	Line 480 sub Get12Random {
WHERE QuestionId=$q");	WHERE QuestionId=$q");
$sth->execute;	$sth->execute;
$t = ($sth->fetchrow)[0];	$t = ($sth->fetchrow)[0];
} until !$chosen{$q} && $t =~ /$type/;	} until !$chosen{$q} && $type =~ /[$t]/;
$chosen{$q} = 'y';	$chosen{$q} = 'y';
push @questions, $q;	push @questions, $q;
}	}
Line 603 MAIN:	Line 603 MAIN:
}	}

if (param('rand')) {	if (param('rand')) {
my ($type, $qnum) = ('ž', 12);	my ($type, $qnum) = ('', 12);
$type = 'ā' if (param('brain'));	$type .= 'ā' if (param('brain'));
	$type .= 'ž' if (param('chgk'));
$qnum = param('qnum') if (param('qnum') =~ /^\d+$/);	$qnum = param('qnum') if (param('qnum') =~ /^\d+$/);
	$qnum = 0 if (!$type);
if (param('email') && -x $SENDMAIL &&	if (param('email') && -x $SENDMAIL &&
open(F, "\| $SENDMAIL -t -n")) {	open(F, "\| $SENDMAIL -t -n")) {
my ($Email) = param('email');	my ($Email) = param('email');