db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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);