version 1.29, 2001/11/19 00:59:44
|
version 1.32, 2001/11/19 07:53:27
|
Line 988 sub PrintAuthors
|
Line 988 sub PrintAuthors
|
{ |
{ |
|
|
my ($id,$name,$surname,$kvo)=@$arr; |
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+1]))."\n"; |
print STDERR $add; |
print STDERR $add; |
$output.=$add; |
$output.=$add; |
} |
} |