--- db/prgsrc/db.cgi	2001/11/19 07:53:27	1.32
+++ db/prgsrc/db.cgi	2001/11/21 02:02:09	1.35
@@ -7,9 +7,9 @@ use strict;
 use Time::Local;
 use POSIX qw(locale_h);
 use locale;
-open STDERR, ">errors";
-my $printqueries=1;
-my $debug=1; #added by R7
+#open STDERR, ">errors";
+my $printqueries=0;
+my $debug=0; #added by R7
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
 my %searchin;
 
@@ -179,7 +179,7 @@ print "$query",br if $printqueries;
 
             my $kvo=0;
             push @$allnf, @{$_} foreach @nf;
-print "nf=@$allnf";
+	    print "nf=@$allnf" if $printqueries;
 
             foreach $i (0..$#w) #запросы в базу...
             {
@@ -293,7 +293,7 @@ foreach (keys %wordsof)
 
 ############
 
-print "tasks=@tasks";
+print "tasks=@tasks" if $printqueries;
 
 #print "$_ $relevance{$_} | " foreach @tasks;
 #print br;
@@ -983,15 +983,34 @@ sub PrintAuthors
      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)
      {
           
            my ($id,$name,$surname,$kvo)=@$arr;
-           if (!$name || !$surname) {#print "Opanki at $id\n"
-                                    } else
+           if (!$name || !$surname) {print "Opanki at $id\n"} 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;
              $output.=$add;
            }