--- db/prgsrc/db.cgi	2001/11/19 07:53:27	1.32
+++ db/prgsrc/db.cgi	2001/11/19 13:02:15	1.33
@@ -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;
            }