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

Diff for /db/prgsrc/db.cgi between versions 1.32 and 1.35

version 1.32, 2001/11/19 07:53:27 version 1.35, 2001/11/21 02:02:09
Line 7  use strict; Line 7  use strict;
 use Time::Local;  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 $debug=1; #added by R7  my $debug=0; #added by R7
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');  my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
 my %searchin;  my %searchin;
   
Line 179  print "$query",br if $printqueries; Line 179  print "$query",br if $printqueries;
   
             my $kvo=0;              my $kvo=0;
             push @$allnf, @{$_} foreach @nf;              push @$allnf, @{$_} foreach @nf;
 print "nf=@$allnf";              print "nf=@$allnf" if $printqueries;
   
             foreach $i (0..$#w) #запросы в базу...              foreach $i (0..$#w) #запросы в базу...
             {              {
Line 293  foreach (keys %wordsof) Line 293  foreach (keys %wordsof)
   
 ############  ############
   
 print "tasks=@tasks";  print "tasks=@tasks" if $printqueries;
   
 #print "$_ $relevance{$_} | " foreach @tasks;  #print "$_ $relevance{$_} | " foreach @tasks;
 #print br;  #print br;
Line 983  sub PrintAuthors Line 983  sub PrintAuthors
      my $ar=$sth->fetchall_arrayref;       my $ar=$sth->fetchall_arrayref;
   
   
   =head
        foreach my $arr(@$ar)
        {
           $sth = 
                $dbh->prepare("SELECT count(*) FROM A2Q where Author=".$$arr[0]);      
           $sth->execute;
   
           my ($kvo)=$sth->fetchrow;
   
   
   
           push @$arr, $kvo;
        }
   
   =cut
     
   
   #     sort { }@{$ar}
           
     foreach my $arr(@$ar)      foreach my $arr(@$ar)
      {       {
                       
            my ($id,$name,$surname,$kvo)=@$arr;             my ($id,$name,$surname,$kvo)=@$arr;
            if (!$name || !$surname) {#print "Opanki at $id\n"             if (!$name || !$surname) {print "Opanki at $id\n"} else
                                     } else  
            {             {
              my $add=Tr(td([a({href=>url."?qofauthor=$id"},'[Q] ')."$name $surname", $kvo+1]))."\n";              print  "!";
   
                my $add=Tr(td([a({href=>"/cgi-bin/db.cgi?qofauthor=$id"},'[Q] ')."$name $surname", $kvo]))."\n";
              print STDERR $add;               print STDERR $add;
              $output.=$add;               $output.=$add;
            }             }
Removed from v.1.32  
changed lines
  Added in v.1.35

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