db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

-version 1.32, 2001/11/19 07:53:27
+version 1.33, 2001/11/19 13:02:15
  Line 983  sub PrintAuthors
       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)
       {
             my ($id,$name,$surname,$kvo)=@$arr;
-            if (!$name || !$surname) {#print "Opanki at $id\n"
+            if (!$name || !$surname) {print "Opanki at $id\n"} else
-                                     } else
             {
-              my $add=Tr(td([a({href=>url."?qofauthor=$id"},'[Q] ')."$name $surname", $kvo+1]))."\n";
+             print  "!";
+              my $add=Tr(td([a({href=>"/cgi-bin/db.cgi?qofauthor=$id"},'[Q] ')."$name $surname", $kvo]))."\n";
               print STDERR $add;
               $output.=$add;
             }