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

Diff for /db/prgsrc/db.cgi between versions 1.79 and 1.80

version 1.79, 2002/11/26 05:34:39 version 1.80, 2002/12/19 23:55:55
Line 779  print "$query" if $printqueries; Line 779  print "$query" if $printqueries;
   
 sub PrintRandom {  sub PrintRandom {
    my ($dbh, $type, $num, $text) = @_;     my ($dbh, $type, $num, $text) = @_;
      my $razd=param('razd');
      my $answer=$razd?0:1;
    my (@Questions) = &Get12Random($dbh, $type, $num);     my (@Questions) = &Get12Random($dbh, $type, $num);
         my ($output, $i) = ('', 0);          my ($output, $i) = ('', 0);
   
Line 793  sub PrintRandom { Line 795  sub PrintRandom {
                 # Passing DB handler, question ID, print answer, question                  # Passing DB handler, question ID, print answer, question
                 # number, print title, print text/html                  # number, print title, print text/html
                 $output .=                  $output .=
                         &PrintQuestion($dbh, $Questions[$i], 1, $i + 1, 0, $text);                          &PrintQuestion($dbh, $Questions[$i], $answer, $i + 1, 0, $text);
         }          }
           unless ($answer )
           { 
            $output.=$text?"\n".('-'x 20)."\nОтветы\n~~~~~~\n\n":h2('Ответы');
            for ($i = 0; $i <= $#Questions; $i++) {
                   $output .=
                           &PrintQuestion($dbh, $Questions[$i], -1, $i + 1, 0, $text);
            }
           }
   
         return $output;          return $output;
 }  }
   
Line 1062  sub PrintQuestion { Line 1073  sub PrintQuestion {
         $qnum = $Question{'Number'}          $qnum = $Question{'Number'}
                 if ($qnum == 0);                  if ($qnum == 0);
         if (!$text) {          if (!$text) {
                 $output .= hr({width=>"50%"});                  $output .= hr({width=>"50%"}) if $answer>=0;
                 if ($title) {                  if ($title) {
                         my (%Tour) = GetTournament($dbh, $Question{'ParentId'});                          my (%Tour) = GetTournament($dbh, $Question{'ParentId'});
                         my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'});                          my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'});
                         my $fname=$Tournament{'FileName'};                          my $fname=$Tournament{'FileName'};
 return "" if $fname=~/mgp0203/;  #return "" if $fname=~/mgp0203/;
                         $fname=~s/\.txt//;                          $fname=~s/\.txt//;
                         $titles .=                          $titles .=
                                 dd(img({src=>"/icons/folder.open.gif"}) . " " .                                  dd(img({src=>"/icons/folder.open.gif"}) . " " .
Line 1082  return "" if $fname=~/mgp0203/; Line 1093  return "" if $fname=~/mgp0203/;
   
         $output.= "<a NAME=\"$qnum\">" unless $text;          $output.= "<a NAME=\"$qnum\">" unless $text;
   
         $output .=          if ($answer>=0) {$output .=
                 &PrintField("Вопрос $qnum", $Question{'Question'}, $text);                  &PrintField("Вопрос $qnum", $Question{'Question'}, $text);}
           else {$output .="$qnum. "}
         if ($answer==1) {          if ($answer==1|| $answer==-1) {
                 $output .=                  $output .=
                         &PrintField("Ответ", $Question{'Answer'}, $text);                          &PrintField("Ответ", $Question{'Answer'}, $text);
   
Line 1163  $output.="</span>" Line 1174  $output.="</span>"
   
         }          }
         $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p          $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p
              if $answer && !$text;               if $answer>0 && !$text;
         return $output;          return $output;
 }  }
   
Removed from v.1.79  
changed lines
  Added in v.1.80

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