version 1.30, 2001/11/19 01:31:47
|
version 1.34, 2001/11/20 21:33:36
|
Line 7 use strict;
|
Line 7 use strict;
|
use Time::Local; |
use Time::Local; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
use locale; |
use locale; |
open STDERR, ">errors"; |
#open STDERR, ">errors"; |
my $printqueries=1; |
my $printqueries=1; |
my $debug=1; #added by R7 |
my $debug=0; #added by R7 |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources'); |
my %searchin; |
my %searchin; |
|
|
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) |
{ |
{ |
|
|
my ($id,$name,$surname,$kvo)=@$arr; |
my ($id,$name,$surname,$kvo)=@$arr; |
if (!$name || !$surname) {#print "Opanki at $id\n" |
if (!$name || !$surname) {print "Opanki at $id\n"} else |
} 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; |