version 1.55, 2001/12/31 00:57:07
|
version 1.59, 2002/01/14 11:31:43
|
Line 354 print "$query\n",br if $printqueries;
|
Line 354 print "$query\n",br if $printqueries;
|
{ |
{ |
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)]; |
($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)]; |
$ii+=4; |
$ii+=4; |
$number=$lo+$hi*256; |
my $addnumber=($field >> 4) << 16; |
$field=$fieldname{$field}; |
$number=(($field >> 4) << 16)+($hi << 8) + $lo; |
|
$field=$fieldname{$field & 0xF}; |
if ($searchin{$field}) |
if ($searchin{$field}) |
{ |
{ |
push @{$tasksof{$i}{$number}}, $wordnumber; |
push @{$tasksof{$i}{$number}}, $wordnumber; |
Line 585 sub PrintList {
|
Line 586 sub PrintList {
|
(" "x4). |
(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>url."?".$qs."\&first=1"},"<<").(" "x4). |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").(" "x4) |
} |
} |
|
|
else {$nav.=' 'x15;} |
else {$nav.=' 'x15;} |
|
|
Line 668 sub PrintSearch {
|
Line 669 sub PrintSearch {
|
$sth->execute; |
$sth->execute; |
my ($q,$nf); |
my ($q,$nf); |
($sstr, $q,$nf)=($sth->fetchrow); |
($sstr, $q,$nf)=($sth->fetchrow); |
@Questions=unpack 'S*',$q; |
@Questions=unpack 'L*',$q; |
@allnf=unpack 'S*',$nf; |
@allnf=unpack 'L*',$nf; |
$sth->finish; |
$sth->finish; |
} else |
} else |
{ |
{ |
@Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf); |
@Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf); |
my $tmp=$dbh->quote(pack("S*",@Questions)); |
my $tmp=$dbh->quote(pack("L*",@Questions)); |
my $qsstr=$dbh->quote($sstr); |
my $qsstr=$dbh->quote($sstr); |
my $nf=$dbh->quote(pack("S*", @allnf)); |
my $nf=$dbh->quote(pack("L*", @allnf)); |
my $ss=200; |
my $ss=200; |
do |
do |
{ |
{ |
Line 867 sub PrintTournament {
|
Line 868 sub PrintTournament {
|
"вопросы + ответы") . "]") |
"вопросы + ответы") . "]") |
); |
); |
} else { |
} else { |
$list .= dd(a({href=>url . "?tour=$textid&comp=1"}, |
$list .= dd(#a({href=>url . "?tour=$textid&comp=1"}, |
img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})) |
#img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). " " . |
. " " . img({src=>$imgsrc, alt=>$alt}) |
img({src=>$imgsrc, alt=>$alt}) |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
. " " . a({href=>url . "?tour=$textid&answer=0"}, |
$Tournament{'Title'}. " ". |
$Tournament{'Title'}. " ". |
$Tournament{'PlayedAt'}) . $qnum); |
$Tournament{'PlayedAt'}) . $qnum); |
Line 999 sub PrintTour {
|
Line 1000 sub PrintTour {
|
sub PrintField { |
sub PrintField { |
my ($header, $value, $text) = @_; |
my ($header, $value, $text) = @_; |
if ($text) { |
if ($text) { |
$value =~ s/<[\/\w]*>//sg; |
$value =~ s/<[\/\w]*?>//sg; |
} else { |
} else { |
$value =~ s/^\s+/<br> /mg; |
$value =~ s/^\s+/<br> /mg; |
$value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg; |
$value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg; |
|
$value =~ s/\s+-+\s+/ – /mg; |
} |
} |
|
|
|
|
return $text ? "$header:\n$value\n\n" : |
return $text ? "$header:\n$value\n\n" : |
strong("$header: ") . $value . p . "\n"; |
strong("$header: ") . $value . p . "\n"; |
} |
} |
Line 1428 EOT
|
Line 1431 EOT
|
elsif (param('sstr')||param('was')) { |
elsif (param('sstr')||param('was')) { |
&PrintSearch($dbh, param('sstr'), param('metod'),param('was')); |
&PrintSearch($dbh, param('sstr'), param('metod'),param('was')); |
$dbh->do("delete from lastqueries where |
$dbh->do("delete from lastqueries where |
time_to_sec(now())-time_to_sec(t) >3600") |
(TO_DAYS(NOW()) - TO_DAYS(t) >= 2) OR |
|
(time_to_sec(now())-time_to_sec(t) >3600)") |
} |
} |
elsif (param('qid')) { |
elsif (param('qid')) { |
my $qid=param('qid'); |
my $qid=param('qid'); |