--- db/prgsrc/db.cgi	2001/11/19 00:59:44	1.29
+++ db/prgsrc/db.cgi	2001/11/19 01:52:25	1.31
@@ -988,9 +988,10 @@ sub PrintAuthors
      {
           
            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=>"/cgi-bin/db.cgi?qofauthor=$id"},'[Q] ')."$name $surname", $kvo]))."\n";
+             my $add=Tr(td([a({href=>url."?qofauthor=$id"},'[Q] ')."$name $surname", $kvo]))."\n";
              print STDERR $add;
              $output.=$add;
            }