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

Diff for /db/prgsrc/db.cgi between versions 1.23 and 1.24

version 1.23, 2001/10/18 19:45:26 version 1.24, 2001/10/18 19:53:17
Line 8  use Time::Local; Line 8  use Time::Local;
 use POSIX qw(locale_h);  use POSIX qw(locale_h);
 use locale;  use locale;
 open STDERR, ">errors";  open STDERR, ">errors";
 my $printqueries=1;  my $printqueries=0;
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments');  my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments');
 my %searchin;  my %searchin;
   
Line 20  my $thislocale; Line 20  my $thislocale;
 $searchin{'question'}=param('Question');  $searchin{'question'}=param('Question');
 $searchin{'answer'}=param('Answer');  $searchin{'answer'}=param('Answer');
 $searchin{'comment'}=param('Comment');  $searchin{'comment'}=param('Comment');
   $printqueries||=param('debug');
 my $all=param('all');  my $all=param('all');
 $all=0 if lc $all eq 'no';  $all=0 if lc $all eq 'no';
 my ($PWD) = `pwd`;  my ($PWD) = `pwd`;
Line 216  print "$query\n",br if $printqueries; Line 217  print "$query\n",br if $printqueries;
               {                {
                 @blob=(@blob,unpack 'C*',$arr[0]);                  @blob=(@blob,unpack 'C*',$arr[0]);
               }                }
 print "blob=@blob";  
               $query="select number from nf where ".(join ' OR ', @arr1);                $query="select number from nf where ".(join ' OR ', @arr1);
 print "$query\n",br if $printqueries;  print "$query\n",br if $printqueries;
               $sth=$dbh -> prepare($query);                $sth=$dbh -> prepare($query);
Line 248  print "$query\n",br if $printqueries; Line 248  print "$query\n",br if $printqueries;
                     ($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)];                      ($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)];
                     $ii+=4;                      $ii+=4;
                     $number=$lo+$hi*256;                      $number=$lo+$hi*256;
 print "f1=$field\n";  
                     $field=$fieldname{$field};                      $field=$fieldname{$field};
 print "f2=$field\n";  
                     if ($searchin{lc $field})                      if ($searchin{lc $field})
                     {                      {
   
Line 269  print "f2=$field\n"; Line 267  print "f2=$field\n";
                }                 }
             }    #foreach $i              }    #foreach $i
   
 print "keys tasksof", keys %tasksof;  print "keys tasksof", keys %tasksof if $printqueries;
 #Ищем пересечение или объединение списков вопросов (значений %tasksof)  #Ищем пересечение или объединение списков вопросов (значений %tasksof)
            foreach $sf (keys %tasksof)             foreach $sf (keys %tasksof)
            {             {
Line 292  foreach (keys %wordsof) Line 290  foreach (keys %wordsof)
   
 ############  ############
   
 print "tasks=@tasks";  print "tasks=@tasks" if $printqueries;;
   
 #print "$_ $relevance{$_} | " foreach @tasks;  #print "$_ $relevance{$_} | " foreach @tasks;
 #print br;  #print br;
Removed from v.1.23  
changed lines
  Added in v.1.24

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