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

Diff for /db/prgsrc/db.cgi between versions 1.55 and 1.59

version 1.55, 2001/12/31 00:57:07 version 1.59, 2002/01/14 11:31:43
Line 354  print "$query\n",br if $printqueries; Line 354  print "$query\n",br if $printqueries;
                  {                   {
                     ($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)];                      ($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)];
                     $ii+=4;                      $ii+=4;
                     $number=$lo+$hi*256;                      my $addnumber=($field >> 4) << 16;
                     $field=$fieldname{$field};                      $number=(($field >> 4) << 16)+($hi << 8) + $lo;
                       $field=$fieldname{$field & 0xF};
                     if ($searchin{$field})                      if ($searchin{$field})
                     {                      {
                       push @{$tasksof{$i}{$number}}, $wordnumber;                        push @{$tasksof{$i}{$number}}, $wordnumber;
Line 585  sub PrintList { Line 586  sub PrintList {
             ("&nbsp;"x4).              ("&nbsp;"x4).
             a({href=>url."?".$qs."\&first=1"},"<<").("&nbsp;"x4).              a({href=>url."?".$qs."\&first=1"},"<<").("&nbsp;"x4).
             a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").("&nbsp;"x4)              a({href=>(url."?".$qs."\&first=".($first-$kvo))},"<").("&nbsp;"x4)
         }                  }
   
         else {$nav.='&nbsp;'x15;}          else {$nav.='&nbsp;'x15;}
   
Line 668  sub PrintSearch { Line 669  sub PrintSearch {
           $sth->execute;            $sth->execute;
           my ($q,$nf);            my ($q,$nf);
           ($sstr, $q,$nf)=($sth->fetchrow);            ($sstr, $q,$nf)=($sth->fetchrow);
           @Questions=unpack 'S*',$q;                    @Questions=unpack 'L*',$q; 
           @allnf=unpack 'S*',$nf;                    @allnf=unpack 'L*',$nf;        
           $sth->finish;            $sth->finish;
         } else           } else 
         {          {
              @Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf);               @Questions=&Search($dbh, \$sstr,$metod,$all,\@allnf);
              my $tmp=$dbh->quote(pack("S*",@Questions));               my $tmp=$dbh->quote(pack("L*",@Questions));
              my $qsstr=$dbh->quote($sstr);               my $qsstr=$dbh->quote($sstr);
              my $nf=$dbh->quote(pack("S*", @allnf));               my $nf=$dbh->quote(pack("L*", @allnf));
              my $ss=200;               my $ss=200;
              do                do 
              {               {
Line 867  sub PrintTournament { Line 868  sub PrintTournament {
                   "вопросы + ответы") . "]")                    "вопросы + ответы") . "]")
                                 );                                  );
                 } else {                  } else {
                         $list .= dd(a({href=>url . "?tour=$textid&comp=1"},                          $list .= dd(#a({href=>url . "?tour=$textid&comp=1"},
                                 img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1}))                                  #img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). " " . 
                                 . " " . img({src=>$imgsrc, alt=>$alt})                                  img({src=>$imgsrc, alt=>$alt})
                                 . " " . a({href=>url . "?tour=$textid&answer=0"},                                  . " " . a({href=>url . "?tour=$textid&answer=0"},
                                 $Tournament{'Title'}. " ".                                  $Tournament{'Title'}. " ".
                                           $Tournament{'PlayedAt'}) . $qnum);                                            $Tournament{'PlayedAt'}) . $qnum);
Line 999  sub PrintTour { Line 1000  sub PrintTour {
 sub PrintField {  sub PrintField {
         my ($header, $value, $text) = @_;          my ($header, $value, $text) = @_;
         if ($text) {          if ($text) {
             $value =~ s/<[\/\w]*>//sg;              $value =~ s/<[\/\w]*?>//sg;
         } else {          } else {
             $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;
         }          }
   
   
         return $text ? "$header:\n$value\n\n" :          return $text ? "$header:\n$value\n\n" :
                 strong("$header: ") . $value . p . "\n";                  strong("$header: ") . $value . p . "\n";
 }  }
Line 1428  EOT Line 1431  EOT
           elsif (param('sstr')||param('was')) {            elsif (param('sstr')||param('was')) {
                 &PrintSearch($dbh, param('sstr'), param('metod'),param('was'));                  &PrintSearch($dbh, param('sstr'), param('metod'),param('was'));
                 $dbh->do("delete from lastqueries where                  $dbh->do("delete from lastqueries where
                            time_to_sec(now())-time_to_sec(t) >3600")                        (TO_DAYS(NOW()) - TO_DAYS(t) >= 2) OR
                              (time_to_sec(now())-time_to_sec(t) >3600)")
         }           } 
           elsif (param('qid')) {            elsif (param('qid')) {
               my $qid=param('qid');                my $qid=param('qid');
Removed from v.1.55  
changed lines
  Added in v.1.59

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