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

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

version 1.24, 2001/10/18 19:53:17 version 1.25, 2001/10/22 20:12:29
Line 9  use POSIX qw(locale_h); Line 9  use POSIX qw(locale_h);
 use locale;  use locale;
 open STDERR, ">errors";  open STDERR, ">errors";
 my $printqueries=0;  my $printqueries=0;
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments');  my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
 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');
   $searchin{'authors'}=param('Authors');
   $searchin{'sources'}=param('Sources');
 $printqueries||=param('debug');  $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';
Line 245  print "$query\n",br if $printqueries; Line 247  print "$query\n",br if $printqueries;
                              # виде хэша, ключи которого -- номера вопросов,                               # виде хэша, ключи которого -- номера вопросов,
                              # а значения -- списки номеров вхождений. Вот.                               # а значения -- списки номеров вхождений. Вот.
                  {                   {
                     ($field,$hi,$lo,$wordnumber)=@blob[$ii..($ii+3)];                      ($field,$lo,$hi,$wordnumber)=@blob[$ii..($ii+3)];
                     $ii+=4;                      $ii+=4;
                     $number=$lo+$hi*256;                      $number=$lo+$hi*256;
                     $field=$fieldname{$field};                      $field=$fieldname{$field};
Removed from v.1.24  
changed lines
  Added in v.1.25

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