version 1.55, 2001/12/31 00:57:07
|
version 1.57, 2002/01/08 23:15:31
|
Line 585 sub PrintList {
|
Line 585 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 668 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 'S*',$q; |
@allnf=unpack 'S*',$nf; |
@allnf=unpack 'S*',$nf; |
$sth->finish; |
$sth->finish; |
} else |
} else |
Line 1428 EOT
|
Line 1428 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'); |