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

Diff for /db/prgsrc/db.cgi between versions 1.15 and 1.21

version 1.15, 2001/05/17 01:33:59 version 1.21, 2001/05/18 20:16:33
Line 7  use strict; Line 7  use strict;
 use Time::Local;  use Time::Local;
 use POSIX qw(locale_h);  use POSIX qw(locale_h);
 my $debug=1; #added by R7  my $debug=1; #added by R7
   open STDERR, ">/tmp/errors" if $debug;
 my ($PWD) = `pwd`;  my ($PWD) = `pwd`;
 chomp $PWD;  chomp $PWD;
 my ($SRCPATH) = "$PWD/../dimrub/src";  my ($SRCPATH) = "$PWD/../dimrub/src";
Line 109  sub Search { Line 110  sub Search {
         my ($dbh, $sstr, $metod) = @_;          my ($dbh, $sstr, $metod) = @_;
         my (@arr, @Questions, @fields);          my (@arr, @Questions, @fields);
         my (@sar, $i, $sth,$where);          my (@sar, $i, $sth,$where);
           my $btime=time; 
   
 #       push @fields, 'Question';  #       push @fields, 'Question';
   
Line 158  sub Search { Line 160  sub Search {
           } else {            } else {
                 $sstr = join " OR $f LIKE ", @sar;                  $sstr = join " OR $f LIKE ", @sar;
           }            }
           
           $sth = $dbh->prepare("SELECT QuestionId FROM Questions  ### Changed by R7 to prevent showing similar questions#########
                 WHERE $f LIKE $sstr ORDER BY QuestionId");  
              if (param('showequal') eq 'yes') {
                $sth = $dbh->prepare("SELECT QuestionId FROM Questions
                   WHERE $f LIKE $sstr ORDER BY QuestionId");
              } else {
                $sth = $dbh->prepare("SELECT QuestionId FROM Questions LEFT JOIN equalto
                   ON equalto.First=QuestionId WHERE (First IS NULL) AND 
                   ($f LIKE $sstr) ORDER BY QuestionId");
              }
   
   
         } #else -- processing old-style query (R7)          } #else -- processing old-style query (R7)
   
Line 168  sub Search { Line 179  sub Search {
         while (@arr = $sth->fetchrow) {          while (@arr = $sth->fetchrow) {
                 push @Questions, $arr[0];                  push @Questions, $arr[0];
         }          }
                   print br, "Search time: ",time-$btime," sec",br if $debug;
         return @Questions;          return @Questions;
 }  }
   
Removed from v.1.15  
changed lines
  Added in v.1.21

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