version 1.29, 2001/11/19 00:59:44
|
version 1.33, 2001/11/19 13:02:15
|
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) |
{ |
{ |
Line 990 sub PrintAuthors
|
Line 1008 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 |
{ |
{ |
|
print "!"; |
|
|
my $add=Tr(td([a({href=>"/cgi-bin/db.cgi?qofauthor=$id"},'[Q] ')."$name $surname", $kvo]))."\n"; |
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; |