version 1.93, 2003/02/26 00:07:55
|
version 1.94, 2003/04/04 10:01:27
|
Line 9 use locale;
|
Line 9 use locale;
|
open STDERR, ">/var/tmp/errors1"; |
open STDERR, ">/var/tmp/errors1"; |
my $newsurl='http://news.chgk.info/'; |
my $newsurl='http://news.chgk.info/'; |
my $cashednumber=500; |
my $cashednumber=500; |
|
my $outputbumber=10; |
my ($proxyptext,$proxysstr); |
my ($proxyptext,$proxysstr); |
my $printqueries=0; |
my $printqueries=0; |
my %forbidden=(); |
my %forbidden=(); |
Line 170 sub printform
|
Line 171 sub printform
|
{ |
{ |
|
|
my $qnumber=(" "x10)."Выводить по ". textfield(-name=>'kvo', |
my $qnumber=(" "x10)."Выводить по ". textfield(-name=>'kvo', |
-default=>param('kvo')||'150', |
-default=>param('kvo')||$outputbumber, |
-size=>3, |
-size=>3, |
-maxlength=>5)." вопросов"; |
-maxlength=>5)." вопросов"; |
my $sstr=param('sstr'); |
my $sstr=param('sstr'); |
Line 621 sub PrintList {
|
Line 622 sub PrintList {
|
my ($dbh,$Questions,$shablon,$was)=@_; |
my ($dbh,$Questions,$shablon,$was)=@_; |
|
|
my $first=param('first') ||1; |
my $first=param('first') ||1; |
my $kvo=param('kvo') ||150; |
my $kvo=param('kvo') ||$outputbumber; |
|
|
$first=$first-($first-1)%$kvo; |
$first=$first-($first-1)%$kvo; |
my $fkvo=param('fkvo')||($#$Questions+1); |
my $fkvo=param('fkvo')||($#$Questions+1); |