version 1.29, 2001/11/19 00:59:44
|
version 1.35, 2001/11/21 02:02:09
|
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=0; |
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 179 print "$query",br if $printqueries;
|
Line 179 print "$query",br if $printqueries;
|
|
|
my $kvo=0; |
my $kvo=0; |
push @$allnf, @{$_} foreach @nf; |
push @$allnf, @{$_} foreach @nf; |
print "nf=@$allnf"; |
print "nf=@$allnf" if $printqueries; |
|
|
foreach $i (0..$#w) #запросы в базу... |
foreach $i (0..$#w) #запросы в базу... |
{ |
{ |
Line 293 foreach (keys %wordsof)
|
Line 293 foreach (keys %wordsof)
|
|
|
############ |
############ |
|
|
print "tasks=@tasks"; |
print "tasks=@tasks" if $printqueries; |
|
|
#print "$_ $relevance{$_} | " foreach @tasks; |
#print "$_ $relevance{$_} | " foreach @tasks; |
#print br; |
#print br; |
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; |