[BACK]Return to db.cgi CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.50 and 1.51

version 1.50, 2001/12/11 12:30:23 version 1.51, 2001/12/13 00:01:58
Line 105  sub GetTourQuestions { Line 105  sub GetTourQuestions {
         my (@arr, @Questions);          my (@arr, @Questions);
   
         my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions          my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions
                 WHERE ParentId=$ParentId ORDER BY QuestionId");                  WHERE ParentId=$ParentId");
   
         $sth->execute;          $sth->execute;
   
Line 157  sub printform Line 157  sub printform
                          -default=>param('sstr')||'',                           -default=>param('sstr')||'',
                          -size=>30,                           -size=>30,
                          -maxlength=>30);                           -maxlength=>30);
     my $qnumber="Выводить по".br. textfield(-name=>'kvo',
                            -default=>param('kvo')||'150',
                            -size=>3,
                            -maxlength=>5). br."вопросов";
   
   my @df=keys %searchin;    my @df=keys %searchin;
   @df=('Question', 'Answer') unless @df;    @df=('Question', 'Answer') unless @df;
   my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df],    my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df],
Line 179  table(Tr Line 184  table(Tr
 (  (
   td({-valign=>'TOP'},$inputstring.$submit.p."Метод: $metod".p."Слова: $all"),    td({-valign=>'TOP'},$inputstring.$submit.p."Метод: $metod".p."Слова: $all"),
   td({-valign=>'TOP'},(' 'x 8).'Поля:'),    td({-valign=>'TOP'},(' 'x 8).'Поля:'),
   td({-valign=>'TOP'},$fields)    td({-valign=>'TOP'},$fields), td(" "x5),
     td({-valign=>'TOP'},$qnumber)
 )   ) 
 )  )
     
Line 558  sub PrintList { Line 564  sub PrintList {
    my ($dbh,$Questions,$shablon)=@_;     my ($dbh,$Questions,$shablon)=@_;
   
         my $first=param('first') ||1;          my $first=param('first') ||1;
         my $kvo=param('kvo') ||30;          my $kvo=param('kvo') ||150;
   
         $first=$first-($first-1)%$kvo;          $first=$first-($first-1)%$kvo;
         my $last=$first+$kvo-1;          my $last=$first+$kvo-1;
Line 568  sub PrintList { Line 574  sub PrintList {
         my $qs=query_string;          my $qs=query_string;
         $qs=~s/\;/\&/g;          $qs=~s/\;/\&/g;
         $qs=~s/\&first\=[^\&]+//g;          $qs=~s/\&first\=[^\&]+//g;
           my $sstr=param('sstr');
           $qs=~s/sstr=[^\&]+/sstr=$sstr/;
         if ($first>$kvo*3+1)          if ($first>$kvo*3+1)
         {          {
            $nav.=             $nav.=
Removed from v.1.50  
changed lines
  Added in v.1.51

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>