db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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;