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

Diff for /db/prgsrc/db.cgi between versions 1.60 and 1.66

version 1.60, 2002/01/15 03:34:31 version 1.66, 2002/05/14 00:12:35
Line 161  sub printform Line 161  sub printform
   my $inputstring=textfield(-name=>'sstr',    my $inputstring=textfield(-name=>'sstr',
                          -default=>param('sstr')||'',                           -default=>param('sstr')||'',
                          -size=>30,                           -size=>30,
                          -maxlength=>30);                           -maxlength=>50);
   my $qnumber="÷Ù×ÏÄÉÔØ ÐÏ".br. textfield(-name=>'kvo',    my $qnumber="÷Ù×ÏÄÉÔØ ÐÏ".br. textfield(-name=>'kvo',
                          -default=>param('kvo')||'150',                           -default=>param('kvo')||'150',
                          -size=>3,                           -size=>3,
Line 645  sub PrintList { Line 645  sub PrintList {
   
         print "$nav".br."\n";          print "$nav".br."\n";
         for (my $i = $first; $i <= $last; $i++) {          for (my $i = $first; $i <= $last; $i++) {
                 my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, $i, 1);                  my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, 0, 1);
                 if (param('metod') eq 'rus' || param('metod') eq 'proxy')                  if (param('metod') eq 'rus' || param('metod') eq 'proxy')
                 {                  {
                      $output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi;                       $output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi;
Line 840  sub PrintTournament { Line 840  sub PrintTournament {
                         $qnum = '';                          $qnum = '';
                 }                  }
                 if ($Tournament{'Type'} =~ /ç/) {                  if ($Tournament{'Type'} =~ /ç/) {
                       $SingleTour=0;
                         $imgsrc = "/icons/folder.gif";                          $imgsrc = "/icons/folder.gif";
                         $alt = "[*]";                          $alt = "[*]";
                 } else {                  } else {
Line 1009  sub PrintField { Line 1010  sub PrintField {
             $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;              $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
             $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;              $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;
             $value =~ s/\s+-+\s+/&nbsp;&#0150; /mg;              $value =~ s/\s+-+\s+/&nbsp;&#0150; /mg;
             $value =~ s/(\s)"/$1&#147;/mg;  #           $value =~ s/(\s)"/$1&#147;/mg;
             $value =~ s/^"/&#147;/mg;  #           $value =~ s/^"/&#147;/mg;
             $value =~ s/"/&#148;/mg;  #           $value =~ s/"/&#148;/mg;
         }          }
   
   
Line 1025  sub PrintQuestion { Line 1026  sub PrintQuestion {
         my ($dbh, $Id, $answer, $qnum, $title, $text) = @_;          my ($dbh, $Id, $answer, $qnum, $title, $text) = @_;
         my ($output, $titles) = ('', '');          my ($output, $titles) = ('', '');
         my (%Question) = &GetQuestion($dbh, $Id);          my (%Question) = &GetQuestion($dbh, $Id);
           $qnum = $Question{'Number'}
                   if ($qnum == 0);
         if (!$text) {          if (!$text) {
                 $output .= hr({width=>"50%"});                  $output .= hr({width=>"50%"});
                 if ($title) {                  if ($title) {
Line 1037  sub PrintQuestion { Line 1040  sub PrintQuestion {
                                          a({href=>url . "?tour=$fname"}, $Tournament{'Title'}, $Tournament{'PlayedAt'}));                                           a({href=>url . "?tour=$fname"}, $Tournament{'Title'}, $Tournament{'PlayedAt'}));
                         $titles .=                          $titles .=
                                 dl(dd(img({src=>"/icons/folder.open.gif"}) . " " .                                  dl(dd(img({src=>"/icons/folder.open.gif"}) . " " .
                                         a({href=>url . "?tour=$fname.$Tour{Number}"}, $Tour{'Title'})));                                          a({href=>url . "?tour=$fname.$Tour{Number}#$qnum"}, $Tour{'Title'})));
                 }                  }
                 $output .= dl(strong($titles));                  $output .= dl(strong($titles));
         }          }
   
         $qnum = $Question{'Number'}  
                 if ($qnum == 0);          $output.= "<a NAME=\"$qnum\">";
   
         $output .=          $output .=
                 &PrintField("÷ÏÐÒÏÓ $qnum", $Question{'Question'}, $text);                  &PrintField("÷ÏÐÒÏÓ $qnum", $Question{'Question'}, $text);
Line 1650  $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ Line 1653  $sstr=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔ
                     $tour = ($sth->fetchrow)[0];                      $tour = ($sth->fetchrow)[0];
                     $sth->finish;                      $sth->finish;
                 }                  }
                 print &PrintTournament($dbh, $tour, param('answer'));                  my $QuestionNumber=0;
                   my $qnum;
                   if ($qnum=param('qnumber')){
                     my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions
                        WHERE ParentId=$tour AND Number=$qnum");
                     $sth->execute;
                     $QuestionNumber=($sth->fetchrow)[0]||0;
                   }
                   if ($QuestionNumber) {
                     print &PrintQuestion($dbh, $QuestionNumber, param('answer')||0, $qnum, 1);
   #                                        $dbh, $Id, $answer, $qnum, $title, $text
                   } else  {
                      print &PrintTournament($dbh, $tour, param('answer'));
                   }
         }          }
         if (!$text) {          if (!$text) {
                 print &Include_virtual("../dimrub/db/footer.html");                  print &Include_virtual("../dimrub/db/footer.html");
Removed from v.1.60  
changed lines
  Added in v.1.66

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