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