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