--- db/prgsrc/db.cgi 2001/12/11 12:19:31 1.49
+++ db/prgsrc/db.cgi 2001/12/21 11:54:37 1.53
@@ -12,6 +12,7 @@ my $printqueries=0;
my %forbidden=();
my $debug=0; #added by R7
if (param('debug')) {$debug=1; $printqueries=1}
+*STDERR=*STDOUT if $debug;
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
my %rusfieldname=('Question','Вопрос', 'Answer', 'Ответ',
'Comments', 'Комментарии', 'Authors', 'Автор',
@@ -29,11 +30,11 @@ my $Ll=qr/(?:[A-Z])|(?:${RL})/;
my $thislocale;
$searchin{$_}=1 foreach param('searchin');
-#$searchin{'Question'}=param('Question');
-#$searchin{'Answer'}=param('Answer');
-#$searchin{'Comments'}=param('Comments');
-#$searchin{'Authors'}=param('Authors');
-#$searchin{'Sources'}=param('Sources');
+my %TypeName=('children'=>'Д', 'game'=>'И',
+ 'chgk'=>'Ч', 'brain'=>'Б', 'beskrylka'=>'Л','ehruditka'=>'Э');
+
+
+
my $all=param('all');
$all=0 if lc $all eq 'no';
my ($PWD) = `pwd`;
@@ -70,12 +71,11 @@ sub GetTournament {
$sth->execute;
@arr = $sth->fetchrow;
- $sth->finish;
my($i, $name) = 0;
foreach $name (@{$sth->{NAME}}) {
$Tournament{$name} = $arr[$i++];
}
-
+ $sth->finish;
return %Tournament;
}
@@ -106,7 +106,7 @@ sub GetTourQuestions {
my (@arr, @Questions);
my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions
- WHERE ParentId=$ParentId ORDER BY QuestionId");
+ WHERE ParentId=$ParentId");
$sth->execute;
@@ -158,6 +158,11 @@ sub printform
-default=>param('sstr')||'',
-size=>30,
-maxlength=>30);
+ my $qnumber="Выводить по".br. textfield(-name=>'kvo',
+ -default=>param('kvo')||'150',
+ -size=>3,
+ -maxlength=>5). br."вопросов";
+
my @df=keys %searchin;
@df=('Question', 'Answer') unless @df;
my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df],
@@ -180,7 +185,8 @@ table(Tr
(
td({-valign=>'TOP'},$inputstring.$submit.p."Метод: $metod".p."Слова: $all"),
td({-valign=>'TOP'},(' 'x 8).'Поля:'),
- td({-valign=>'TOP'},$fields)
+ td({-valign=>'TOP'},$fields), td(" "x5),
+ td({-valign=>'TOP'},$qnumber)
)
)
@@ -559,7 +565,7 @@ sub PrintList {
my ($dbh,$Questions,$shablon)=@_;
my $first=param('first') ||1;
- my $kvo=param('kvo') ||30;
+ my $kvo=param('kvo') ||150;
$first=$first-($first-1)%$kvo;
my $last=$first+$kvo-1;
@@ -569,8 +575,8 @@ sub PrintList {
my $qs=query_string;
$qs=~s/\;/\&/g;
$qs=~s/\&first\=[^\&]+//g;
-
-
+ my $sstr=param('sstr');
+ $qs=~s/sstr=[^\&]+/sstr=$sstr/;
if ($first>$kvo*3+1)
{
$nav.=
@@ -727,6 +733,13 @@ sub PrintRandom {
return $output;
}
+sub PrintEditor {
+ my $t=shift; #ссылка на Хэш с полями
+ my $ed=$$t{'Editors'};
+ my $edname=($ed=~/\,/ ) ? "Редакторы" : "Редактор" ;
+ return h4({align=>"center"},"$edname: $ed" );
+}
+
sub PrintTournament {
my ($dbh, $Id, $answer) = @_;
my (%Tournament, @Tours, $i, $list, $qnum, $imgsrc, $alt,
@@ -740,7 +753,7 @@ sub PrintTournament {
my ($Copyright) = $Tournament{'Copyright'};
@Tours = &GetTours($dbh, $Id);
-
+ $list='';
if ($Id) {
for ($Tournament{'Type'}) {
/Г/ && do {
@@ -760,6 +773,7 @@ sub PrintTournament {
$output .= h2({align=>"center"},
"$title") . p . "\n";
+ $output.=&PrintEditor(\%Tournament);
last;
};
/Т/ && do {
@@ -826,10 +840,11 @@ sub PrintTournament {
$output .= p("Копирайт: " . $Copyright);
}
+
+
if ($Info) {
$output .= p($Info);
}
-
return $output;
}
@@ -869,6 +884,7 @@ sub PrintTour {
$Tournament{'PlayedAt'},
"
", $Tour{"Title"} .
" ($qnum вопрос$suffix)\n") . p;
+ $output .=&PrintEditor(\%Tour);
my (@Questions) = &GetTourQuestions($dbh, $Id);
for ($q = 0; $q <= $#Questions; $q++) {
@@ -1032,18 +1048,31 @@ sub Get12Random {
my (%chosen);
srand;
- for ($i = 0; $i < $num; $i++) {
- do {
- $q = int(rand($qnum));
- $sth = $dbh->prepare("SELECT Type FROM Questions
- WHERE QuestionId=$q");
- $sth->execute;
- $t = ($sth->fetchrow)[0];
- } until !$chosen{$q} && $t && $type =~ /[$t]/;
- $sth->finish;
- $chosen{$q} = 'y';
- push @questions, $q;
+ my $where=0;
+ my $r=int (rand(10000));
+
+ foreach (split '', $type)
+ {
+ $where.= " OR (Type ='$_') OR (Type ='$_Д') ";
+ }
+ $where.= "OR (Type='ЧБ')" if ($type=~/Ч|Б/);
+
+ $q="select QuestionId, QuestionId/$r-floor(QuestionId/$r) as val
+ from Questions where $where order by val limit $num";
+
+# Когда на куличках появится mysql >=3.23 надо заменить на order by rand();
+
+ $sth=$dbh->prepare($q);
+ $sth->execute;
+ while (($i)=$sth->fetchrow)
+ {
+ push @questions,$i;
}
+
+ for ($i=@questions; --$i;){
+ my $j=rand ($i+1);
+ @questions[$i,$j]=@questions[$j,$i] unless $i==$j;
+ }
return @questions;
}
@@ -1283,17 +1312,18 @@ if ((uc 'а') ne 'А') {print "Koi8-r loca
if (param('rand')) {
my ($type, $qnum) = ('', 12);
- $type .= 'Б' if (param('brain'));
- $type .= 'Ч' if (param('chgk'));
+ $type.=$TypeName{$_} foreach param('type');
+# $type .= 'Б' if (param('brain'));
+# $type .= 'Ч' if (param('chgk'));
$qnum = param('qnum') if (param('qnum') =~ /^\d+$/);
$qnum = 0 if (!$type);
- if (param('email') && -x $SENDMAIL &&
- open(F, "| $SENDMAIL -t -n")) {
- my ($Email) = param('email');
+ my $Email;
+ if (($Email=param('email')) && -x $SENDMAIL &&
+ open(F, "| $SENDMAIL $Email")) {
my ($mime_type) = $text ? "plain" : "html";
print F <Reload для получения еще одного пакета";
} else {
print &PrintRandom($dbh, $type, $qnum, $text);